(defun c:EE()
(terpri)(princ ” 사각형 박스내의 엔티티 전부 삭제 ” )
(setvar “cmdecho” 0)(setvar “osmode” 1)
(setq p1 (getpoint “n 첫번째 코-너 : “)
p2 (getcorner p1 “n 다음 코-너 : “)
mp (polar p1
(angle p1 p2)
(/ (distance p1 p2) 2.0)))
(command “pline” p1
(polar p1 (dtr 0) (- (car p2) (car p1)))
p2
(polar p2 (dtr 180) (- (car p2) (car p1)))
“c”
)
(setq kk (entlast)
p3 (polar p1 (dtr 45) 0.001)
p4 (polar p2 (dtr 235) 0.001)
s1 (ssget “l”)
s2 (ssget “c” p3 p4)
s 0)
(command “trim” s1 “”)
(while (ssname s2 s)
(command (list (ssname s2 s) mp))
(setq s (1+ s))
)
(command)
(command “erase” kk “”)
(command “erase” “w” p1 p2 “”)
(princ))
저는 엔드포인트, 교차점, 원의 중심 이 3개만 오스냅을 항상 켜놓는데요
이명령어만 사용하면 오스냅이 엔드포인트만 잡혀요
(이명령어 사용시도 엔드포인트만 잡힘, 사용후도 마찬가지)
여유되시면 좀 부탁드려요
논노님글보고 (스냅저장 다시 불러오기) 했는데
문법이 잘못되었는지 아에 안되네요 ㅠㅠ