找出封闭的图形
哪位高手能帮忙写个这样的插件，论谈里都是找出没有闭合的，我的要求刚好相返。找出封闭的。在这里先谢谢了。(defun c:tes ( / &k1 &kw1)
(vl-load-com)
(if (setq &kw1 (ssget '((0 . "CIRCLE,*POLYLINE,SPLINE,ELLIPSE"))));圆，多段线，样条曲线，椭圆
(progn
(while (setq &k1 (ssname &kw1 0))
(setq &kw1 (ssdel &k1 &kw1))
(if (vlax-curve-isClosed &k1) (vla-put-color (vlax-ename->vla-object &k1) 1) );闭合的变红色
);while
)
)
(princ)
) 亲，我试了一下，如果是闭合的图形可以检查出来，可是如果是炸开的图形就检查不出来了，能否修改一下，谢谢。 xiao88gang 发表于 2016-10-13 21:19
亲，我试了一下，如果是闭合的图形可以检查出来，可是如果是炸开的图形就检查不出来了，能否修改一下，谢谢 ...
这位大侠，麻烦有时间帮我改一下呗。非常感谢。 437271963 发表于 2016-10-13 21:09
这位大侠，麻烦有时间帮我改一下呗。非常感谢。 xiao88gang 发表于 2016-10-14 17:37
这位大侠，麻烦有时间帮我改一下呗。非常感谢。
炸开的图形检查封闭还没有好的思路 437271963 发表于 2016-10-14 22:02
炸开的图形检查封闭还没有好的思路
好的，那不麻烦了，谢谢你。
页:
[1]