当绘图时......

wuxjld · 发表于 2004-9-6 19:25:00

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

BDYCAD · 发表于 2004-9-7 08:39:00

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

wuxjld · 发表于 2004-9-7 11:36:00

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

meflying · 发表于 2004-9-7 11:56:00

加载以下代码后,使用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 · 发表于 2004-9-8 19:40:00

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

spring · 发表于 2004-9-8 20:18:00

这个问题比较复杂,呵呵
这种也只有你才用的习惯吧

当绘图时......

发表回复

精选推荐