第一次学做反应器,求高手帮忙完善下~~~

77077

初次练习玩反应器,很多不懂的,求高手帮忙~~~
目前完成的是,改变文本时,PL线图层随之改变.
1.求高手帮忙添加一个功能,删除文字时,关联的pl线也一起删除~
2.关闭后重新打开,反应器关联就消失了,求帮忙....

2. (defun makelayer (lname / olayer)
   
3.   (if (vl-catch-all-error-p
   
4.         (setq olayer
   
5.           (vl-catch-all-apply 'vla-add
   
6.             (list
   
7.               (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
   
8.               lname
   
9.             )
   
10.           )
    
11.         )
    
12.       )
    
13.     nil
    
14.     olayer
    
15.   )
    
16. )
    
17. ;==================================
    
18. (vl-load-com)
    
19. ;反应器回调函数
    
20. (defun txt-pl (per rea paramete / str ydlay )
    
21.     ;;获取文字内容
    
22.     (setq str (vla-get-textstring per)
    
23.           ydlay (strcat "yd_" (strcase str))
    
24.           )
    
25.     ;取出边界线对象
    
26.     (setq e1 (vlax-ename->vla-object
    
27.                (handent
    
28.                  (car (vlr-data rea))
    
29.                 )
    
30.               )
    
31.           )
    
32.     ;;修改边界线图层
    
33.     (makelayer ydlay)   
    
34.     (vla-put-layer e1 ydlay)
    
35.     (princ)
    
36. )
    
37. ;程序开始
    
38. (defun c:tt( / ent1 obj1 hd ent2 obj2 str ydlay)
    
39. (if(and (setq ent1 (car(entsel "\n 请选择地块边界线:"));pl线对象
    
40.               obj1 (vlax-ename->vla-object ent1)
    
41.               hd (cdr (assoc 5 (entget ent1)))
    
42.               )
    
43.         (setq ent2 (car(entsel "\n 请选择用地代码:"));文字对象
    
44.               obj2 (vlax-ename->vla-object ent2)
    
45.               str (vla-get-textstring obj2)
    
46.               )
    
47.      )
    
48.   (progn
    
49.       (setq ydlay (strcat "YD_" (strcase str)))
    
50.       (makelayer ydlay)
    
51.       (vla-put-layer obj1 ydlay)
    
52.       (vlr-pers-release ;_文字对象反应器
    
53.         (vlr-object-reactor
    
54.           (list obj2)
    
55.           (list hd)
    
56.           '((:vlr-modified . txt-pl))
    
57.         )
    
58.       )
    
59.   )
    
60. )
    
61. )

(defun makelayer (lname / olayer)<br />   (if (vl-catch-all-error-p<br />         (setq olayer<br />           (vl-catch-all-apply 'vla-add<br />             (list<br />               (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))<br />               lname<br />             )<br />           )<br />         )<br />       )<br />     nil<br />     olayer<br />   )<br /> )<br /> ;==================================<br /> (vl-load-com)<br /> ;反应器回调函数<br /> (defun txt-pl (per rea paramete / str ydlay )<br />     ;;获取文字内容<br />     (setq str (vla-get-textstring per)<br />           ydlay (strcat "yd_" (strcase str))<br />           )<br />     ;取出边界线对象<br />     (setq e1 (vlax-ename->vla-object<br />                (handent <br />                  (car (vlr-data rea))<br />                 )<br />               )<br />           )<br />     ;;修改边界线图层<br />     (makelayer ydlay)    <br />     (vla-put-layer e1 ydlay)<br />     (princ)<br /> )<br /> ;程序开始<br /> (defun c:tt( / ent1 obj1 hd ent2 obj2 str ydlay)<br /> (if(and (setq ent1 (car(entsel "\n 请选择地块边界线:"));pl线对象<br />               obj1 (vlax-ename->vla-object ent1)<br />               hd (cdr (assoc 5 (entget ent1)))<br />               )<br />         (setq ent2 (car(entsel "\n 请选择用地代码:"));文字对象<br />               obj2 (vlax-ename->vla-object ent2)<br />               str (vla-get-textstring obj2)<br />               )<br />      )<br />   (progn<br />       (setq ydlay (strcat "YD_" (strcase str)))<br />       (makelayer ydlay)<br />       (vla-put-layer obj1 ydlay)<br />       (vlr-pers-release ;_文字对象反应器<br />         (vlr-object-reactor<br />           (list obj2)<br />           (list hd)<br />           '((:vlr-modified . txt-pl))<br />         )<br />       )<br />   )<br /> )<br /> )