[LISP程序]：确定边界的问题？

redapple

(defun c:blockb()
  (princ ":\n求块的外轮廓")
  (setq ben (car (entsel "\选定一个块:")) bss (ssadd));ben返回块名，bss为空选择集
  (vl-load-com)
  (vla-getboundingbox (vlax-ename->vla-object ben) 'minp 'maxp);
  (setq minp (vlax-safearray->list minp)
        maxp (vlax-safearray->list maxp));查询返回值
  (command "rectang" (list (- (car minp) 2)(-(cadr minp) 2))
                      (list (+ (car maxp) 2)(+(cadr maxp) 2)))
  (setq bbx (entlast));bbx为矩形的实体名
  (ssadd ben bss)(ssadd bbx bss);将块加入空选择集中，将矩形加入到空选择集中，bss包括块和矩形
  (command "-boundary" "a" "b" "n" bss "" "o" "p" ""
           (list (-(car minp) 1)(-(cadr minp) 1)) "";内部点
           "erase"  bbx  "")
  (princ)
  )
调试后得到几个边界，怎样区别哪个是块的外边界？怎样得到这个实体？
谢谢！

aeo

面积最大的不是.

redapple

我也想到过用面积大小来判定所需的边界，可是面积的获得应该需要得到边界实体的，这些多段线边界怎样当作选择实体（非交互式）？这个问题找不到解决办法，请问有没有办法？或者不通过面积的方法有更好的方法最好了！谢谢！