请教如何自动给新复制来的属性块下的属性添加反应器？

snddd2000

文档打开时已经给图纸中一种块名下的属性加了对象反应器，
如果在这图中又复制了一些或者从其他图里又拷来一些这种块
如何同时自动也给新来的属性块下的属性加上同样的反应器呢？
多谢！

snddd2000

自己顶一下，具体情况是
这个属性块（明细表）里有12个属性，其中三个分别为数量，单重，总重，
实现的功能是更改其中的数量或者单重，总重随之自动变更。
上边的功能打开文件的时候可以加载，使图中已有的块得到这个功能。
但是如果复制或者从其他图里粘贴来的新块就没有这个功能了，如何能让这些个后来的块也有这个功能？
成功与否就在这个地方了。
望高人指点一二。

snddd2000

Private Sub AcadDocument_EndCommand(ByVal CommandName As String)
    MsgBox "A drawing has just finished a " & CommandName & " command."
End Sub
vba里endcommand里自带了commandname变量
请问下边lisp反应器里如何得到运行的是哪个命令？
(setq command-reactor0
       (vlr-command-reactor
         nil
         '((:vlr-commandEnded . commandcallback))
       )
)

chg

在命令反应器的回调函数中有下列点对（event-name . callback_function)，其中event-name是命令反应器事件中的符号之一，如：vlr-commandEnded，callback_function为符号，代表事件发生时要调用的函数。每个回调函数都接受两个参数：reactor_boject和list，list中就存放了命令名。以下为简单的例子
首先定义一个命令反应器
（VLR-CommandReactor nil '((:vlr-commandEnded . lizi:command-ended)))
这里的回调函数名为LIZI:COMMAND-ENDED
然后在定义这个回调函数时：
(defun lizi:command-ended (reactor  command-list）
（setq commandname (car command-list))
)
回调函数中的参数COMMAND-LIST为触发回调函数时，自动赋予的，它是单个命令名的表，你用CAR即可获得。   

chg

用COPY时，你可以用command反应器（commandended)和object反应器(:vlr-copied)结合，为新增加的对象添加新的反应器，这样就可以实现新复制出来的对象也具有反应器，但对从黏贴板复制来的，我没有试验过，也不懂如何下手，请高手解答了。

snddd2000

谢谢chg指点，
我试试PASTECLIP和COPY命令能不能实现我要的功能再结合(entlast)判断是否复制的是此种块。
如果能行就发上源码供坛友参考指正。

snddd2000

功能基本能实现了，还有个问题。
在属性栏和用ddedit都能实现，可是当用命令 attedit编辑块属性时出现下面的错误

命令: ATTEDIT
选择块参照: error: Automation 错误。未提供说明。error: Automation 错误。未提供说明。error: Automation
错误。未提供说明。error: Automation 错误。未提供说明。


请教原因和解决之道？

snddd2000

还是不能用ATTEDIT来编辑
先把对象反应器的代码发上来看看吧。望能找到解决attedit问题的办法。

1. (vl-load-com)
   
2. (defun mxbzdszzl ( / attblock_object)
   
3.   (setq ss0 (ssget "X" '((0 . "INSERT"))))
   
4. ;;;筛选明细表图块
   
5.   (setq        attblock_object
   
6.          '()
   
7.         n 0
   
8.         ss1 (ssadd)
   
9.   )
   
10.   (repeat (sslength ss0)
    
11.     (setq ent0 (ssname ss0 n))
    
12.     (setq ent0-val (vlax-ename->vla-object ent0))
    
13.     (setq BlkName (vla-get-effectivename ent0-val))
    
14.     (if        (= "明细(DW)" BlkName)
    
15.       (progn
    
16.         (setq arr (vlax-invoke-method ent0-val 'GetAttributes))
    
17.         (setq arrlist (vlax-safearray->list (vlax-variant-value arr)))
    
18.         (setq attblock_object (cons (nth 9 arrlist) attblock_object))
    
19.                                         ;单重对象
    
20.         (setq attblock_object (cons (nth 5 arrlist) attblock_object))
    
21.                                         ;数量对象
    
22.       ) ;_ end progn
    
23.     ) ;_ end if
    
24.     (setq n (1+ n))
    
25.   ) ;_ end repeat
    
26. 
    
27. ;;;加对象反应器
    
28. (if attblock_objectReactor (vlr-remove attblock_objectReactor))        ;释放之前的反应器
    
29.   (setq        attblock_objectReactor
    
30.          (vlr-object-reactor
    
31.            attblock_object
    
32.            nil
    
33.            '((:vlr-objectClosed . total_mass))
    
34.          )
    
35.   )
    
36. ) ;_ end defun mxbzdszzl
    
37. 
    
38. (defun total_mass (notifier-object reactor-object parameter-list)
    
39.   (setq ent0 (vlax-vla-object->ename notifier-object))
    
40.   (setq entlist0 (entget ent0))
    
41.   (setq Blk0 (cdr (assoc 330 entlist0)))
    
42.   (setq Blk0-val (vlax-ename->vla-object Blk0))
    
43.   (setq arr (vlax-invoke-method Blk0-val 'GetAttributes))
    
44.   (setq arrlist (vlax-safearray->list (vlax-variant-value arr)))
    
45.   (setq att-text5 (vla-get-TextString (nth 5 arrlist)))
    
46.                                         ;数量数值-字符串
    
47. 
    
48.   (setq att-text9 (vla-get-TextString (nth 9 arrlist)))
    
49.                                         ;单重数值-字符串
    
50.   (setq att-text10 (vla-get-TextString (nth 10 arrlist)))
    
51.   (setq olddimzin (getvar "dimzin"))
    
52.   (setvar "dimzin" 0)
    
53.   (setq zzl (* (atof att-text9) (atof att-text5)))
    
54.   (setq zzl-rtos (rtos zzl))
    
55.   (setq zzl-5 (substr zzl-rtos 5 1))
    
56.   (cond
    
57.     ((< zzl 0.005) (setq zzl "0.00"))
    
58.     ((< zzl 100.0)
    
59.      (progn
    
60.        (if (>= (atoi zzl-5) 5)
    
61.          (setq zzl (strcat (substr zzl-rtos 1 3)
    
62.                            (itoa (1+ (atoi (substr zzl-rtos 4 1))))
    
63.                    )
    
64.          )
    
65.          (setq zzl (substr zzl-rtos 1 4))
    
66.        )
    
67.      )
    
68.     )
    
69.     (t (setq zzl (itoa (fix (+ 0.5 zzl)))))
    
70.   )
    
71. 
    
72.   (setvar "dimzin" olddimzin)
    
73.   (if (or (= "" att-text9) (= "" att-text5))
    
74.     (setq zzl att-text10)
    
75.   )
    
76.   (setq        att-text10
    
77.          (vla-put-TextString
    
78.            (nth 10 arrlist)
    
79.            zzl
    
80.          )
    
81.   )        ;赋值总重数值-字符串
    
82. ;;;  (alert "Ok!-Object")                       
    
83. ) ;_ end defun total_mass
    
84. 
    
85. (mxbzdszzl)
    
86. ;;加载即运行

(vl-load-com)<br /> (defun mxbzdszzl ( / attblock_object)<br />   (setq ss0 (ssget "X" '((0 . "INSERT"))))<br /> ;;;筛选明细表图块<br />   (setq        attblock_object<br />          '()<br />         n 0<br />         ss1 (ssadd)<br />   )<br />   (repeat (sslength ss0)<br />     (setq ent0 (ssname ss0 n))<br />     (setq ent0-val (vlax-ename->vla-object ent0))<br />     (setq BlkName (vla-get-effectivename ent0-val))<br />     (if        (= "明细(DW)" BlkName)<br />       (progn<br />         (setq arr (vlax-invoke-method ent0-val 'GetAttributes))<br />         (setq arrlist (vlax-safearray->list (vlax-variant-value arr)))<br />         (setq attblock_object (cons (nth 9 arrlist) attblock_object))<br />                                         ;单重对象<br />         (setq attblock_object (cons (nth 5 arrlist) attblock_object))<br />                                         ;数量对象<br />       ) ;_ end progn<br />     ) ;_ end if<br />     (setq n (1+ n))<br />   ) ;_ end repeat<br /> <br /> ;;;加对象反应器<br /> (if attblock_objectReactor (vlr-remove attblock_objectReactor))        ;释放之前的反应器<br />   (setq        attblock_objectReactor<br />          (vlr-object-reactor<br />            attblock_object<br />            nil<br />            '((:vlr-objectClosed . total_mass))<br />          )<br />   )<br /> ) ;_ end defun mxbzdszzl<br /> <br /> (defun total_mass (notifier-object reactor-object parameter-list)<br />   (setq ent0 (vlax-vla-object->ename notifier-object))<br />   (setq entlist0 (entget ent0))<br />   (setq Blk0 (cdr (assoc 330 entlist0)))<br />   (setq Blk0-val (vlax-ename->vla-object Blk0))<br />   (setq arr (vlax-invoke-method Blk0-val 'GetAttributes))<br />   (setq arrlist (vlax-safearray->list (vlax-variant-value arr)))<br />   (setq att-text5 (vla-get-TextString (nth 5 arrlist)))<br />                                         ;数量数值-字符串<br /> <br />   (setq att-text9 (vla-get-TextString (nth 9 arrlist)))<br />                                         ;单重数值-字符串<br />   (setq att-text10 (vla-get-TextString (nth 10 arrlist)))<br />   (setq olddimzin (getvar "dimzin"))<br />   (setvar "dimzin" 0)<br />   (setq zzl (* (atof att-text9) (atof att-text5)))<br />   (setq zzl-rtos (rtos zzl))<br />   (setq zzl-5 (substr zzl-rtos 5 1))<br />   (cond<br />     ((< zzl 0.005) (setq zzl "0.00"))<br />     ((< zzl 100.0)<br />      (progn<br />        (if (>= (atoi zzl-5) 5)<br />          (setq zzl (strcat (substr zzl-rtos 1 3)<br />                            (itoa (1+ (atoi (substr zzl-rtos 4 1))))<br />                    )<br />          )<br />          (setq zzl (substr zzl-rtos 1 4))<br />        )<br />      )<br />     )<br />     (t (setq zzl (itoa (fix (+ 0.5 zzl)))))<br />   )<br /> <br />   (setvar "dimzin" olddimzin)<br />   (if (or (= "" att-text9) (= "" att-text5))<br />     (setq zzl att-text10)<br />   )<br />   (setq        att-text10<br />          (vla-put-TextString<br />            (nth 10 arrlist)<br />            zzl<br />          )<br />   )        ;赋值总重数值-字符串<br /> ;;;  (alert "Ok!-Object")                        <br /> ) ;_ end defun total_mass<br /> <br /> (mxbzdszzl)<br /> ;;加载即运行

zhangcan0515

为啥不用字段就可以解决的