属性块的反应器问题，求指点

菜卷鱼

想做一个块属性反应器，本来是想用在动态块上，通过更改块的文字属性引发动态属性的改变
但是一用到  vla-getattributes 就报错了，所以后面的东西就整不下去了，
报错内容是;错误:Automation 错误。 对象已打开进行通知;
求指点啊！

1. (defun c:ff ( )
   
2. (setq ss(ssget '((0 . "INSERT"))))
   
3. (setq blkReactor (vlr-object-reactor (mapcar 'vlax-ename->vla-object (sslist ss))
   
4.          "getattributes" '((:vlr-subObjModified . b_drive))))
   
5. (prin1)
   
6. )
   
7. 
   
8. (defun b_drive (v r e )
   
9. (setq a v)
   
10. (setq        attlist        (vlax-safearray->list
    
11.                   (vlax-variant-value (vla-getattributes a))))       ;;;;;;;;;;;;到这来就报错了
    
12. (foreach att        attlist
    
13.     (setq att_txt (vla-get-textstring att))
    
14.     (setq tag_text (vla-get-TagString att))
    
15.     (setq stag (cons tag_text att_txt))
    
16.     (setq attxtlist (cons stag attxtlist))
    
17.     (reverse attxtlist)
    
18.     )
    
19. )

(defun c:ff ( )<br /> (setq ss(ssget '((0 . "INSERT"))))<br /> (setq blkReactor (vlr-object-reactor (mapcar 'vlax-ename->vla-object (sslist ss))<br />          "getattributes" '((:vlr-subObjModified . b_drive))))<br /> (prin1)<br /> )<br /> <br /> (defun b_drive (v r e )<br /> (setq a v)<br /> (setq        attlist        (vlax-safearray->list<br />                   (vlax-variant-value (vla-getattributes a))))       ;;;;;;;;;;;;到这来就报错了<br /> (foreach att        attlist<br />     (setq att_txt (vla-get-textstring att))<br />     (setq tag_text (vla-get-TagString att))<br />     (setq stag (cons tag_text att_txt))<br />     (setq attxtlist (cons stag attxtlist))<br />     (reverse attxtlist)<br />     )<br /> )

mmmmmm

你这样设计的逻辑应该有问题，因为修改属性本身就是会触发:vlr-subObjModified事件，所以程序是进行不下去的。

建议你尝试把反应器直接绑定到属性本身上，同时尽量不要链接块的:vlr-subObjModified，试试直接连接到动态控制参数本身上。

菜卷鱼

mmmmmm 发表于 2015-10-30 20:35
你这样设计的逻辑应该有问题，因为修改属性本身就是会触发:vlr-subObjModified事件，所以程序是进行不下去的 ...

ok,谢谢指导。

guankuiwu

请问这个解决了么？

菜卷鱼

guankuiwu 发表于 2022-7-28 17:29
请问这个解决了么？

这个问题这么多年了。。。
没有直接解决，因为之前是 文字属性与动态属性相互驱动，所以矛盾了，会报错，所以方向错了
后来我改成了属性文字单向驱动动态属性，成功用了一段时间
最后发现没必要，直接做一个对话框，抓取动态属性值，在对话框里改动态属性就行

guankuiwu

那这样把属性修改做成反应器了

guankuiwu

菜卷鱼 发表于 2022-7-28 17:43
这个问题这么多年了。。。
没有直接解决，因为之前是 文字属性与动态属性相互驱动，所以矛盾了，会报错 ...

厉害。思路不错！