(defun c:ret2(/ p1 p2 p12 p21 #plr #pud ent ent1 )
(setq osm (getvar “osmode”)) ; OS; 저장
(command “ortho” “off”)
(setq p1 (getpoint “n First end of diagonal line: “))
(setq p2 (getcorner p1 “n Second end of diagonal line: “))
(setq p12 (list (car p1) (cadr p2)))
(setq p21 (list (car p2) (cadr p1)))
(if (< (car p1) (car p2)) (setq #plr (list (- (car p2) (car p1)))) (setq #plr (list (- (car p1) (car p2)))))
(if (< (cadr p1) (cadr p2)) (setq #pud (list (- (cadr p2) (cadr p1)))) (setq #pud (list (- (cadr p1) (cadr p2)))))
(setvar “osmode” 0)
(if (< (car #plr) (car #pud) )
(progn
(command “line” p1 p21)
(setq ent (entlast))
(command “line” p2 p12)
(setq ent1 (entlast))
)
(progn
(command “line” p2 p21)
(setq ent (entlast))
(command “line” p1 p12)
(setq ent1 (entlast))
)
)
(command “trim” ent ent1 “”)
(setvar “osmode” osm) ; OS 불러오기
(princ)
)

두선을 ent ent1이라고 하고 그사이를 트림하고싶은데 잘안됩니다. 뭐가문젤까요?