请教一个关于反应器的问题

王与韩1

(defun c:wz (/ SS GROUPTAG N E EL OBJ HAND)
  (setq        s1   (entsel)
        s2   (entsel)
        hand (cdr (assoc 5 (entget (car s2))))
        obj  (vlax-ename->vla-object (car s1))
  )
  (vlr-pers (VLR-Object-Reactor
              (list obj)
              (list hand)
              '((:VLR-modified .  tc))
            )
  )
)
(defun tc (TEXT-OBJECT
                        REACTOR-OBJECT
                        PARAMETER-LIST
                       )
  (setq        data   (vlr-data Reactor-Object)
        vs2    (vlax-ename->vla-object (handent (car data)))
        string (vla-get-textstring Text-Object)
        nstr   (strcat "wyuh" string)
  )
  (vla-put-textstring vs2 nstr)
  (princ)
)
这个程序怎么才能让复制后的数字也有反应器的效果呢？

chg

对你复制后的数字继续附加反应器
(vlr-pers (VLR-Object-Reactor
              (list obj)
              (list hand)
              '((:VLR-modified .  tc))
            )

王与韩1

chg 发表于 2015-10-22 12:42
对你复制后的数字继续附加反应器
(vlr-pers (VLR-Object-Reactor
              (list obj)

感谢你的回复，我的问题没描述清楚。比如以前"123"对应的是”wyuh123",我希望这两个都复制以后结果是，各自对应的，比如复制后的"123"改为“321”，复制的”wyuh123"就变成”wyuh321"

王与韩1

不要沉，自顶~~