将反应器保留在复制的对象上
我试着这样做：(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
但是当我在同一份文件中复制pline时，反应堆不工作！？
帮助
谢谢
页:
[1]