当绘图时......

wuxjld

当绘图时，若出现图形闭合的情况，能自动改变闭合的多边形各边的颜色，或者给出提示。问题是：如何触发"改变闭合的多边形各边的颜色，或者给出提示"这一功能？还请高手指教，先谢了！

BDYCAD

可以这样做的: 写一个程序在执行时选一条线. 然后PEDIT的Join选项会进行把相关的对象转成pline 后再用entget涵数找出DXF组码, DXF组码里有个组面是说明对象有没有闭合的.

wuxjld

谢谢楼上的答复，问题不在于如何判断相关多边形是闭合的，而在于在画完图（如画完一条线时）时如何自动触发”判断相关多边形是闭合的“方法。

meflying

加载以下代码后,使用PLINE画闭合多线 (if (not cmdreactor)
(setq cmdreactor (vlr-command-Reactor nil '((:vlr-commandended . ChgClr))))
)
(defun ChgClr(calling-reactor commandInfo / ent)
(if (= (car commandinfo) "PLINE")
(progn
(setq ent (vlax-ename->vla-object (entlast)))
(if (= (vla-get-closed ent) :vlax-true)
(vla-put-color ent 1)
)
)
)
)

wuxjld

谢谢版主的答复，问题是构成的闭合多边形还可能包含圆弧、椭圆弧！

spring

这个问题比较复杂,呵呵


这种也只有你才用的习惯吧