Memotong beberapa garis

(DEFUN C:TF()(setq rr *error* *error* merr)
(setq osm (getvar"osmode"))
(setvar "osmode" 0)
(setq se(getp" AUTO TRIM FENCE \n First point: "))
(initget 1)(setq se2 (getPoint se"\n Second point: "))
(initget 1)(SETQ SE3 (GETCORNER SE"\n Tird point: "))
(COMMAND"LINE"SE se2"")
(setq o1(entlast))
(command"offset""th"(list(entlast)se) se3 "")
(setq o2 (entlast))
(command"trim"o1"""f" (CDR(assoc 10(entget o2))) (CDR(ASSOC 11(ENTGET O2))) """")
(ENTDEL O1)(ENTDEL O2)
(setvar"osmode"osm)
(setq *error* rr)(princ))

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)