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))

Tidak ada komentar:

Poskan Komentar

Yang Lain