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

changyiran

我有好多圆要移动，为了便于区分哪些移动了，哪些没移动，我就想让那些已经移动了的变为蓝色，因此我用了对象反应器中的对象已修改事件，但是在程序运行时提示“错误：对象正在通知”，我想应该是对象变为蓝色也是已修改事件，因此就造成了死循环，希望哪位高手帮忙解决这个问题！

2. (defun c:yqfyq()
   
3.   (setq ss(ssget'((0 . "circle")))j -1 dxb'())
   
4.   (repeat(sslength ss)
   
5.     (setq vla(vlax-ename->vla-object(ssname ss(setq j(1+ j)))))
   
6.     (setq dxb(cons vla dxb))
   
7.   )
   
8.   (vlr-pers(VLR-Object-Reactor dxb nil'((:VLR-modified . yqbs))))
   
9. )
   
10. (defun yqbs(not-o rea-o para)
    
11.   (vla-put-color not-o 5)
    
12. )

(defun c:yqfyq()<br />   (setq ss(ssget'((0 . "circle")))j -1 dxb'())<br />   (repeat(sslength ss)<br />     (setq vla(vlax-ename->vla-object(ssname ss(setq j(1+ j)))))<br />     (setq dxb(cons vla dxb))<br />   )<br />   (vlr-pers(VLR-Object-Reactor dxb nil'((:VLR-modified . yqbs))))<br /> )<br /> (defun yqbs(not-o rea-o para)<br />   (vla-put-color not-o 5)<br /> )

ymcui

你是要这样的程序吗?            

zyhandw

记得坛子里有类似的帖子，可以搜索下

zyhandw

帮你搜索了下，不知道这个帖子是否对楼主有用：http://bbs.mjtd.com/forum.php?mod=viewthread&tid=92263；
还有这个：http://bbs.mjtd.com/forum.php?mod=viewthread&tid=68745

changyiran

ymcui 发表于 2013-7-9 17:21  你是要这样的程序吗?

手机上的没法看啊！

changyiran

ymcui 发表于 2013-7-9 17:21
你是要这样的程序吗?

这有点复杂了啊，我的意思就是移动指定的一个圆后，该圆就改变颜色，但是改变颜色会诱导已修改事件，比较郁闷，不知怎么解决。

自贡黄明儒

手机大巴上，不好查。我猜是VLA—put—coLor

changyiran

zyhandw 发表于 2013-7-9 17:31
帮你搜索了下，不知道这个帖子是否对楼主有用：http://bbs.mjtd.com/forum.php?mod=viewthread&tid=92263； ...

老兄，那俩帖子感觉用不上啊，你能给个思路不？

zyhandw

changyiran 发表于 2013-7-9 17:38
老兄，那俩帖子感觉用不上啊，你能给个思路不？

再看看这个帖子，好多高手给出了自己的解决方法，应该有适合你的！
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=92227

Gu_xl

1. ;;命令反应器  (or *cmdvlr*
   
2.       (setq *cmdvlr* (vlr-command-reactor nil '((:vlr-commandWillStart . cmdstart) (:VLR-commandEnded . cmdEnd))))
   
3.       )
   
4.   ;;数据库反应器
   
5.   (or *acdbvlr*
   
6.       (setq *acdbvlr* (vlr-acdb-reactor nil
   
7.        '((:VLR-objectModified . acdbstart))))
   
8.       )
   
9. ;;命令开始反应器回调函数
   
10. (defun cmdstart (vlr lst)
    
11.   (if (= "MOVE" (car lst))
    
12.     (setq *Move_Start* t ;_ 设置Move命令标志
    
13.           *Move_Obj* nil ;_ 清空Move的对象图元名列表
    
14.           )
    
15.     )
    
16.   )
    
17. ;;命令结束反应器回调函数
    
18. (defun cmdEnd (vlr lst)
    
19.   (if (= "MOVE" (car lst))
    
20.     (progn
    
21.       (setq *Move_Start* nil) ;_ 清除启动Move命令标志
    
22.       ;;此处可自行添加对 *Move_Obj* 处理的代码,如将夹点拖拽物体颜色变红
    
23.       (mapcar
    
24.         '(lambda (x / o)
    
25.            (if
    
26.              (=        "AcDbCircle"
    
27.                 (vla-get-objectname (setq o (vlax-ename->vla-object x)))
    
28.              )
    
29.               (vla-put-color o 5)
    
30.            )
    
31.          )
    
32.         *Move_Obj*
    
33.       )
    
34.     )
    
35.   )
    
36. )
    
37. ;;数据库反应器回调函数
    
38. (defun acdbstart (vlr obj)
    
39.   (if *Move_Start*
    
40.     (setq *Move_Obj*
    
41.            (append *Move_Obj* (cdr obj)) ;_ Move的对象图元名列表
    
42.     )
    
43.   )
    
44. )

;;命令反应器  (or *cmdvlr*<br />       (setq *cmdvlr* (vlr-command-reactor nil '((:vlr-commandWillStart . cmdstart) (:VLR-commandEnded . cmdEnd))))<br />       )<br />   ;;数据库反应器<br />   (or *acdbvlr*<br />       (setq *acdbvlr* (vlr-acdb-reactor nil<br />        '((:VLR-objectModified . acdbstart))))<br />       )<br /> ;;命令开始反应器回调函数<br /> (defun cmdstart (vlr lst)<br />   (if (= "MOVE" (car lst))<br />     (setq *Move_Start* t ;_ 设置Move命令标志<br />           *Move_Obj* nil ;_ 清空Move的对象图元名列表<br />           )<br />     )<br />   )<br /> ;;命令结束反应器回调函数<br /> (defun cmdEnd (vlr lst)<br />   (if (= "MOVE" (car lst))<br />     (progn<br />       (setq *Move_Start* nil) ;_ 清除启动Move命令标志<br />       ;;此处可自行添加对 *Move_Obj* 处理的代码,如将夹点拖拽物体颜色变红<br />       (mapcar<br />         '(lambda (x / o)<br />            (if<br />              (=        "AcDbCircle"<br />                 (vla-get-objectname (setq o (vlax-ename->vla-object x)))<br />              )<br />               (vla-put-color o 5)<br />            )<br />          )<br />         *Move_Obj*<br />       )<br />     )<br />   )<br /> )<br /> ;;数据库反应器回调函数<br /> (defun acdbstart (vlr obj)<br />   (if *Move_Start*<br />     (setq *Move_Obj*<br />            (append *Move_Obj* (cdr obj)) ;_ Move的对象图元名列表<br />     )<br />   )<br /> )