Mengubah beberapa teks menjadi teks baru yang sama

(defun c:te (/ A F AN DI)
(prompt" Change some Text to be Same with dialog box.")
(setq rr *error* *error* merr)
(setq v1(ssget'((0 . "TEXT"))) F 0)
(command"ddedit"(ssname v1 0)"")
(setq A(assoc 1(entget(ssname v1 0))))
(if v1(while(< F(sslength v1))
(setq DI(assoc 1(setq AN(entget(ssname v1 F)))))
(entmod(subst A DI AN))
(setq F (1+ F))
) )(setq *error* rr) F)

Tidak ada komentar:

Poskan Komentar

Yang Lain