对象反应器的反应对象删除后如何恢复反应器。

zhaochang71

如图，建立反应器，圆跟随线动，圆周长等于线长。当圆被删除后，再次移动线时，如何恢复圆？
自己的思路是：回调函数中查看圆是否有信息，如无表示圆已被删除，重新绘制圆，并建立反应器。但此时的反应器总是不行。线再次移动每次都新绘制一个圆。
下面是我想要的效果：文字为图形面积，随图面积改变。文字删除后，面积变，文字重新注记并可随图变化。

2. (VL-Load-Com)
   
3. (Defun Line-C(notifier-object reactor-object parameter-list)
   
4.   
   
5. (SetQ cen(HandEnt(VLR-Data reactor-object)))
   
6. 
   
7. (SetQ len(VLAX-VLA-Object->EName notifier-object)
   
8.    lel(EntGet len)
   
9.    pt1(Cdr(Assoc 10 lel))
   
10.    pt2(Cdr(Assoc 11 lel))
    
11. )
    
12. (prin1 "len-obj=")(prin1 (VLAX-EName->VLA-Object len))
    
13. (prin1 "cen=")(prin1 cen)
    
14. (setq aa (EntGet cen))
    
15. (prin1 "aa=")(prin1 aa)
    
16. (if (/= aa nil)
    
17.   (progn
    
18.     (SetQ cel(EntGet cen)
    
19.       cel(Subst(VL-List* 10 pt2)(Assoc 10 cel)cel)
    
20.       cel(Subst(VL-List* 40(/ (Distance pt1 pt2)Pi 2))
    
21.       (Assoc 40 cel)
    
22.       cel
    
23.       )
    
24.     )(EntMod cel)
    
25.   )
    
26.   (progn
    
27.     (entmake (list (cons 0 "circle") (cons 10 pt2)(cons 40  (/ (Distance pt1 pt2)Pi 2))))(EntMod cel)
    
28.     (SetQ chl(Cdr(Assoc 5(EntGet(EntLast)))))
    
29.     (prin1 "chl=")(prin1 chl)
    
30.      (SetQ rlt(Cons notifier-object '()))
    
31.      (prin1 "chl=")(prin1 chl)(prin1 "rlt=")(prin1 rlt)
    
32.     (td notifier-object chl)
    
33.   )
    
34.   )
    
35. 
    
36. )
    
37. (defun td(notifier-object chl / )
    
38.      (DelReactorAll notifier-object)(SetQ rlt(Cons notifier-object '()))
    
39.     (SetQ vrl(VLR-Pers(VLR-Object-Reactor rlt chl '((:vlr-modified . Line-C)))))
    
40. )
    
41. (Defun C:Tt()
    
42. (SetQ pt1(GetPoint "\n 起点)")
    
43.   pt2(GetPoint pt1 "\n 末点)")
    
44. )
    
45. (Command "line" pt1 pt2 "")
    
46. (SetQ len(EntLast))
    
47. (Command "circle" pt2(/(Distance pt1 pt2)Pi 2))
    
48. (SetQ chl(Cdr(Assoc 5(EntGet(EntLast)))))
    
49. (SetQ rlt(Cons(VLAX-EName->VLA-Object len)'()))
    
50. (SetQ vrl(VLR-Pers(VLR-Object-Reactor rlt chl
    
51.        '((:vlr-modified . Line-C))
    
52.       )
    
53.    )
    
54. )
    
55. (PrinC "\n 已建立的反应器有: ")(PrinC(VLR-Reactors))
    
56. (PrinC)
    
57. )
    
58. (defun DelReactorAll (enObj)
    
59.   (foreach a (vlr-reactors :VLR-Object-Reactor) ;_ 所有对象反应器
    
60.     (foreach b (cdr a) ;_ 各类反应器对象
    
61.       (vl-some (function
    
62.                  (lambda (c)
    
63.                    (if (equal c enobj)
    
64.                      (vlr-remove b)
    
65.                    )
    
66.                  )
    
67.                )
    
68.                (vlr-owners b) ;_ 反应器拥有者对象
    
69.       )
    
70.     )
    
71.   )
    
72. )

(VL-Load-Com)<br /> (Defun Line-C(notifier-object reactor-object parameter-list)<br />   <br /> (SetQ cen(HandEnt(VLR-Data reactor-object)))<br /> <br /> (SetQ len(VLAX-VLA-Object->EName notifier-object)<br />    lel(EntGet len)<br />    pt1(Cdr(Assoc 10 lel))<br />    pt2(Cdr(Assoc 11 lel))<br /> )<br /> (prin1 "len-obj=")(prin1 (VLAX-EName->VLA-Object len))<br /> (prin1 "cen=")(prin1 cen)<br /> (setq aa (EntGet cen))<br /> (prin1 "aa=")(prin1 aa)<br /> (if (/= aa nil)<br />   (progn<br />     (SetQ cel(EntGet cen)<br />       cel(Subst(VL-List* 10 pt2)(Assoc 10 cel)cel)<br />       cel(Subst(VL-List* 40(/ (Distance pt1 pt2)Pi 2))<br />       (Assoc 40 cel)<br />       cel<br />       )<br />     )(EntMod cel)<br />   )<br />   (progn<br />     (entmake (list (cons 0 "circle") (cons 10 pt2)(cons 40  (/ (Distance pt1 pt2)Pi 2))))(EntMod cel)<br />     (SetQ chl(Cdr(Assoc 5(EntGet(EntLast)))))<br />     (prin1 "chl=")(prin1 chl)<br />      (SetQ rlt(Cons notifier-object '()))<br />      (prin1 "chl=")(prin1 chl)(prin1 "rlt=")(prin1 rlt)<br />     (td notifier-object chl)<br />   )<br />   )<br /> <br /> )<br /> (defun td(notifier-object chl / )<br />      (DelReactorAll notifier-object)(SetQ rlt(Cons notifier-object '()))<br />     (SetQ vrl(VLR-Pers(VLR-Object-Reactor rlt chl '((:vlr-modified . Line-C)))))<br /> )<br /> (Defun C:Tt()<br /> (SetQ pt1(GetPoint "\n 起点)")<br />   pt2(GetPoint pt1 "\n 末点)")<br /> )<br /> (Command "line" pt1 pt2 "")<br /> (SetQ len(EntLast))<br /> (Command "circle" pt2(/(Distance pt1 pt2)Pi 2))<br /> (SetQ chl(Cdr(Assoc 5(EntGet(EntLast)))))<br /> (SetQ rlt(Cons(VLAX-EName->VLA-Object len)'()))<br /> (SetQ vrl(VLR-Pers(VLR-Object-Reactor rlt chl<br />        '((:vlr-modified . Line-C))<br />       )<br />    )<br /> )<br /> (PrinC "\n 已建立的反应器有: ")(PrinC(VLR-Reactors))<br /> (PrinC)<br /> )<br /> (defun DelReactorAll (enObj)<br />   (foreach a (vlr-reactors :VLR-Object-Reactor) ;_ 所有对象反应器<br />     (foreach b (cdr a) ;_ 各类反应器对象<br />       (vl-some (function<br />                  (lambda (c)<br />                    (if (equal c enobj)<br />                      (vlr-remove b)<br />                    )<br />                  )<br />                )<br />                (vlr-owners b) ;_ 反应器拥有者对象<br />       )<br />     )<br />   )<br /> )

自贡黄明儒

删除了就没有了。如果还想恢复，可以停止反应器，然后再启用反应器

zhaochang71

删除圆以后反应器还是存在的。可通过(PrinC&#160;"\n&#160;已建立的反应器有:&#160;")(PrinC(VLR-Reactors))查询。我上面的代码就是你的思路，如发现圆已删除，清除线的反应器，再生成圆，建立反应器。但达不到所需的效果。