使用反应器时:vlr-copied遇到的麻烦

阿然

在用反应器编程的时候给一个对象添加了

1. (vlr-object-reactor
   
2.      obj-list
   
3.      obj-Data
   
4.      '(
   
5.        (:vlr-modified . objmark-changed)
   
6.        (:vlr-copied . objmark-copied)
   
7.        (:vlr-erased . objmark-erased)
   
8.       )
   
9.    ) ;_ end of vlr-object-reactor
   

(vlr-object-reactor<br />      obj-list<br />      obj-Data<br />      '(<br />        (:vlr-modified . objmark-changed)<br />        (:vlr-copied . objmark-copied)<br />        (:vlr-erased . objmark-erased)<br />       )<br />    ) ;_ end of vlr-object-reactor<br />

三个对象反应器，当obj-list碰到copy时会触发objmark-copied的函数，但是获取不到copy后得到的实体，有什么办法解决？本人主要是学习CAD帮助里面自带的教程，所以很多内容不能很好的理解，请大侠指导下。

Gu_xl

copy后的实体图元名保存在回调函数第三个参数里，但在回调函数里不能对该实体进行任何读写，因为反应器没结束，该实体处于保护状态！
请看测试代码：

1. (defun c:tt()
   
2.   (setq e (car(entsel)))
   
3.   (if e
   
4.     (progn
   
5.       ;;添加反应器
   
6.       (vlr-object-reactor (list (vlax-ename->vla-object e)) nil '((:vlr-copied . obj-copied)))
   
7.       )
   
8.     )
   
9.   (princ)
   
10.   )
    
11. ;;回调函数
    
12. (defun obj-copied (obj vlrobj vlr-list)
    
13.   (if (= 'ename (type (car vlr-list)))
    
14.     (progn
    
15.       (princ (car vlr-list))
    
16.       (if (vlax-write-enabled-p (car vlr-list))
    
17. (princ "可读写")
    
18. (princ "不可读写")
    
19. )
    
20.       ;;此处entget得到的是nil
    
21.       (princ (entget (car vlr-list)))
    
22.       )
    
23.     )
    
24.   )
    

(defun c:tt()<br />   (setq e (car(entsel)))<br />   (if e<br />     (progn<br />       ;;添加反应器<br />       (vlr-object-reactor (list (vlax-ename->vla-object e)) nil '((:vlr-copied . obj-copied)))<br />       )<br />     )<br />   (princ)<br />   )<br /> ;;回调函数<br /> (defun obj-copied (obj vlrobj vlr-list)<br />   (if (= 'ename (type (car vlr-list)))<br />     (progn<br />       (princ (car vlr-list))<br />       (if (vlax-write-enabled-p (car vlr-list))<br /> (princ "可读写")<br /> (princ "不可读写")<br /> )<br />       ;;此处entget得到的是nil<br />       (princ (entget (car vlr-list)))<br />       )<br />     )<br />   )<br />

阿然

谢谢gu大！
是我太着急发贴了，应该多搜索下论坛，前面有帖子谈过这个问题。
下次会注意，不多耽误大伙时间。

zyhandw

还不会用反应器，向你学习！