[求助][0629]此一物件反应器范例疑问

xyz518mm

[求助][0629]此一物件反应器范例疑问

请教此一"线与圆的"范例的3个问题

01.如果对象反应器物件被删除时,该怎样使其失效及移除反应器呢?
02.如果对象反应器物件被删除后,该怎样使增加的物件连结到其反应器呢?
03.notifier-object reactor-object parameter-list 至三个值是可以任意取名的吗?
  还是说有涵义及规定呢?

烦请各位高手可以解答一下~
谢谢~


范例:
(VL-Load-Com)
(Defun Line-C (notifier-object reactor-object parameter-list)
       (SetQ cen (HandEnt (VLR-Data reactor-object)))
       (SetQ len (VLAX-VLA-Object->EName notifier-object)
     lel (EntGet len)
     pt1 (Cdr (Assoc 10 lel))
     pt2 (Cdr (Assoc 11 lel))
       )
       (SetQ cel (EntGet cen)
             cel (Subst (VL-List* 10 pt2) (Assoc 10 cel) cel)
             cel (Subst (VL-List* 40 (/ (Distance pt1 pt2) Pi 2))(Assoc 40 cel) cel)
       )
       (EntMod cel)
)

(Defun C:TR01 ()
      (SetQ pt1 (GetPoint "\n起点：")
            pt2 (GetPoint pt1 "\n末点：")
      )
      (Command "line" pt1 pt2 "")
      (SetQ len (EntLast))
      (Command "circle" pt2 (/ (Distance pt1 pt2) Pi 2))
      (SetQ chl (Cdr (Assoc 5 (EntGet (EntLast)))))
      (SetQ rlt (Cons (VLAX-EName->VLA-Object len) '()))
      (SetQ vrl (VLR-Pers (VLR-Object-Reactor rlt chl '((:vlr-modified . Line-C)))))
      (PrinC "\n已建立的反应器有: ")(PrinC (VLR-Reactors))
      (PrinC)
)

tctabc

也想好好了解反应器
不知道有谁可以解答吗?