외형 치수 뽑는 리습이 문제가 있습니다…

http://inventor.gocad.co.kr/2892286

글에서 상큼님에게 얻은 리습을 잘 애용중입니다.

그런데 수정이 불가피하다보니
텍스트나 치수선까지 선택하면 그곳까지 외곽으로 판단해서 치수를 가져오는 애로사항이 있더군요..ㅠ





이것을 얻기 전까지 사용하던건 아래와 같습니다.

(defun c:SDD( / se en ent pt maxx minx maxy miny minxp maxxp minyp maxyp)
 (if (setq sel (entsel “n폴리선 선택:”))
  (progn
   (setq en (car sel) ent (entget en))
   (foreach e ent
    (if (= (car e) 10)
     (progn
      (setq pt (trans (cdr e) 0 1) x (car pt) y (cadr pt))
      (if (or (null minx) (< x minx))
       (setq minx x minxp pt)
      )
      (if (or (null miny) (< y miny))
       (setq miny y minyp pt)
      )
      (if (or (null maxx) (> x maxx))
       (setq maxx x maxxp pt)
      )
      (if (or (null maxy) (> y maxy))
       (setq maxy y maxyp pt)
      )     
     )
    )
   )
   (
    (lambda (vs)
    ;최하단 : minyp, 최상단 : maxyp, 제일 좌측 : minxp, 제일 우측 maxxp
     (foreach p (list minxp maxxp minyp maxyp)
      (setq p (trans p 1 0))
      (grvecs
       ‘(6 (1 -1) (-1 1) (-1 -1) (1 1))
       (list
        (list vs 0.0 0.0 (car p))
        (list 0.0 vs 0.0 (cadr p))
        (list 0.0 0.0 vs 0.0)
        (list 0.0 0.0 1.0 0.0)
       )
      )
     )
    )
    (* (/ (getvar “VIEWSIZE”) (cadr (getvar “SCREENSIZE”))) 10)
   )  
  )
 )
 (setq pt1 (polar minxp (angtof “180”) 12))
 (setq pt2 (polar maxyp (angtof “90”) 12))
 (command “dim” “ver” maxyp minyp pt1 “” “hor” minxp maxxp pt2 “” “exit”)
 (princ)
)




단점은 반원같은게 들어갈경우

최외곽에 있는 ‘점’ 을 가져오니… 원의 외곽을 무시하게 되더라구요…..






상큼님 소스를 수정할수 있다면
아래문의한 것 + 제외필터를 걸어보려했었는데 말이죠..ㅠ