[求助]面域转多义线

kry

面域怎么转多义线?

yucpp

我有一个笨方法，不好大家别扔砖头啊。先炸了它，再合并成多线。

TANER

(defun region2bounary (ent / curobj curset objarr)
  (setq curset (ssadd)
 curobj (vlax-ename->vla-object ent)
 objarr (vlax-safearray->list (vlax-variant-value (vla-explode curobj)))
  )
  (foreach memb objarr
    (setq curset (ssadd (vlax-vla-object->ename memb) curset))
  )
  (vla-delete curobj)
  (vl-cmdf "_.PEDIT" (ssname curset 0) "_YES" "_JOIN" curset "" "")
  (entlast)
)