[编程交流] 将反应器保留在复制的对象上

(command "pline" "0,0" (list 100. 100.) "")
(vlr-pers (vlr-object-reactor (list (vlax-ename->vla-object (entlast))) "Text" '( (:vlr-modified . mytext))))
(command "text" (list 45. 45. ) 15 45 "len")
(setq entT (entlast))
(defun mytext (notify-obj reactor-object parameter-list / e ent )
 (setq e entT
ent (entget e)
)
 (setq ent (subst (cons 1 (rtos (vla-get-length notify-obj) 2 0)) (assoc 1 ent) ent))
 (entmod ent)
 (entupd e)
);defun