닫힌 폴리선이나 원, 사각형 등이 내부에 있는지를 아는것이 필요합니다.

그런 깊은뜻이…..

저는 그림을 봐야만 이해가 잘가는 편이라 거들 수나 있을지 모르겠습니다.

제생각에는 분류를  포함  교차  분리의 세가지로 구분할 필요와 vla-getboundingbox와  ssget의 wp와 cp를 활용할 여지가  없을까라는 생각이드네요.

그리고 상큼메론90님 만큼 꾸준히 다른 분께 신경써주시는 분이 간단한 소스의 내용을 비밀로 하시지는 않을것 같은데요. 제가 보기에는 피시님이 바로 알 수 있는 간단한 것이라서 말씀을 안하셧을 것입니다. 아마 피시님이 사탕하나 만드셔서 우는 조카딸한테 나눠주길 바라실지도…

최외각에 있다는 것은 area가 가장 크다는 것입니다. 소트하여 area가 가장 큰 객체부터 시작하여 그 안에 든 객체들을 제거 하면 속도도 빠르겠죠.

………일단 임시적으로 막장소스 타이핑..

(defun c:aaaa ()  (if (setq ss (ssget (list (cons 0 "LWPOLYLINE,CIRCLE"))))   (progn    (setq doc (vla-get-activedocument (vlax-get-acad-object)))    (vla-startundomark doc)    (setq index 0)    (setq getnum 0)    (setq getara 0)    (repeat (sslength ss)     (setq e (ssname ss index))     (setq obj (vlax-ename->vla-object e))     (setq ara (vlax-get obj 'Area))     (if (< getara ara)      (progn       (setq getara ara)       (setq getnum index)      )     )     (setq index (1+ index))    )    (setq index 0)    (setq addara 0)    (repeat (sslength ss)     (setq e (ssname ss index))     (setq obj (vlax-ename->vla-object e))     (setq ara (vlax-get obj 'Area))     (if (/= index getnum)      (setq addara (+ addara ara))     )     (setq index (1+ index))    )    (setq e (ssname ss getnum))    (setq obj (vlax-ename->vla-object e))    (setq len (vlax-get obj 'Length))    (setq ara (- getara addara))    (princ "n")    (princ (rtos ara))    (princ "n")    (princ (rtos len))    (princ "n")    (vla-endundomark doc)   )  ) )

아니면 hatch 로 선택해서 해치영역을 가지고 영역과 둘레값을 구하는게 낳을까요? (속도면에서 좀 느린거같은느낌이)

vlax-get obj 'Area vlax-get obj 'Length

찾았다…….. 으윽 자문자답…돋네요 orz

아?! 제가 바보였네요.

선택한객체들의 영역값중 제일 큰거 – 작은것들….을 하면 되는건데………….

질문을 바꾸겠습니다. 혹시 (setq e (ssname ss index)) ; index 는 증가     (setq obj (vlax-ename->vla-object e)) 형태로 객체들을 선택해서 순회하여

obj나 e 값을 이용하여 객체의 영역과 둘레 값을 얻어오는 명령어를 알수 있을까요? 나머지는 제가 어떻게든 해보겠습니다.