(defun c:pte0()
(setq #a(ssget “x”)
#n 0
#len(sslength #a)
)
(repeat #len
(vl-load-com)
(vla-getboundingbox (vlax-ename->vla-object (ssname #a #n)) ‘Minpt ‘Maxpt)
(setq #Minpt (vlax-safearray->list Minpt)
#n (+ 1 #n)
#x (car #minpt)
#y (cadr #minpt)
)
(if (= #n 1) (setq #x1 #x #y1 #y)
(setq #x1(min #x #x1) #y1(min #y #y1))
)
);repeat
(command “zoom” “e”)
(princ #x1)
(princ #y1)
);end defun
도면의 죄측하단점을 구하는 리습입니다.
얼마전에 스톰님의 조언을 구해 만들었는데. 이상하게 되는도면이 있고 안되는 도면이 있습니다.
안되는 도면에는 엉뚱한점을 좌측하단이라고 나오는데 그점에는 아무것도 없거든요;
캐드에도 유령객체가 있는건지 리습이 잘못되었는지 조언부탁드립니다 _ _)
참고로 리습이 엉뚱한점을 되는 도면을 첨부로 올립니다. ㅠㅠ