如何移动圆后，该圆变为蓝色

changyiran

Gu_xl 发表于 2013-7-9 19:10

大神呐，先膜拜一下，接下来仔细研究

yxp

如果对象已被包括在对象反应器的所有者列表中，那么就不能在回调函数中修改该对象，如果这样做，将会导致一个出错消息并使AutoCAD崩溃。

逻辑上也很好理解，就是对象编辑反应器将不停的自我回调，形成一个死循环。

比如，回调 (vla-get-color not-o) 就没问题，不会循环激发编辑反应器。

解决的办法就是跳出这个循环，在回调函数中用命令行对象再调用一个被调函数，被调函数不会受到反应器规则的限制，可以使用 entme 图元列表，可以使用 command /entmod /entmake 函数

参见我昨天发的那个鼠标反应器的帖子。

实现如下：
;;主函数
(defun c:yfy()
  (setq ss (ssget'((0 . "circle"))) j -1 dxb'())
  (repeat (sslength ss)
    (setq vla (vlax-ename->vla-object (ssname ss (setq j(1+ j)))))
    (setq dxb (cons vla dxb))
  )
  (VLR-Object-Reactor dxb nil '((:VLR-modified . yqbs)))
)
;;你原来的主函数没有考虑反应器重复建立的情况，需要完善。

;;回调函数
(defun yqbs(not-o rea-o para)
(setq *temp* not-o *finish* nil)
(dcl_SendString "(modificircle) ") ;;这里调用了 openDCL 函数，你也可以使用命令行对象。
(princ)
)
;;被调函数
(defun modificircle()
(cond ((null *finish*)
  (vla-put-color *temp* 5) ;;在这里修改颜色
  (setq *finish* t)))
)

changyiran

yxp 发表于 2013-7-9 19:27  如果对象已被包括在对象反应器的所有者列表中，那么就不能在回调函数中修改该对象，如果这样做，将会导致一 ...

你理解的真是透彻，我有几个疑问再请教下，1是我那个主程序需要怎么完善才能避免你说的问题，2是那个dcl函数我这怎么用不了，该怎样用命令行代替呢？水平有限，希望高人不吝赐教！

sicky111

学习一下各位大神的方法。

winerfjy

sicky111 发表于 2013-7-17 21:14
学习一下各位大神的方法。

学习学习一下

知行ooo李肖坪

也需要学习一下，谢谢楼上…………