kry 发表于 2009-8-21 23:21:00

[求助]面域转多义线

面域怎么转多义线?

yucpp 发表于 2009-8-22 00:43:00

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

TANER 发表于 2009-8-22 13:37:00

(defun region2bounary (ent / curobj curset objarr)<br/>&nbsp; (setq curset (ssadd)<br/>&nbsp;curobj (vlax-ename-&gt;vla-object ent)<br/>&nbsp;objarr (vlax-safearray-&gt;list (vlax-variant-value (vla-explode curobj)))<br/>&nbsp; )<br/>&nbsp; (foreach memb objarr<br/>&nbsp;&nbsp;&nbsp; (setq curset (ssadd (vlax-vla-object-&gt;ename memb) curset))<br/>&nbsp; )<br/>&nbsp; (vla-delete curobj)<br/>&nbsp; (vl-cmdf "_.PEDIT" (ssname curset 0) "_YES" "_JOIN" curset "" "")<br/>&nbsp; (entlast)<br/>)<br/>
页: [1]
查看完整版本: [求助]面域转多义线