标注面积时加入反应器，面积变化出现无限循环，怎么修改，谢谢

永不言弃

标注面积时加入反应器，面积变化出现无限循环，怎么修改，在2006上可以正常使用，高版本就不可以

2. 
   
3. (defun c:tt ()
   
4.   (setq ent (car (entsel "\n选择线")))
   
5.   (setq pt (getpoint ""))
   
6.   (setq obj_pline (vlax-ename->vla-object ent))
   
7.   (setq txt (strcat "S=" (rtos (vla-get-area obj_pline) 2 2) ))
   
8.   (entmake
   
9.     (list (cons 0 "TEXT")
   
10.     (cons 8 "MJ")
    
11.     (cons 10 pt)
    
12.     (cons 11 pt)
    
13.     (cons 71 0)
    
14.     (cons 72 1)
    
15.     (cons 73 2)
    
16.     (cons 1 txt)
    
17.     (cons 40 1.5)
    
18.    
    
19.     )
    
20.   )
    
21.   (setq ent_txt (entlast))
    
22.   (setq obj_txt (vlax-ename->vla-object ent_txt))
    
23.   (setq ve (List obj_pline))
    
24.   (setq  reactor
    
25.    (vlr-object-reactor
    
26.      ve
    
27.      obj_txt
    
28.      '((:vlr-objectClosed . xlr_pl_mj_text))
    
29.    )
    
30.   )
    
31. 
    
32. )
    
33. 
    
34. 
    
35. ;;;;修改进入无限循环
    
36. (defun xlr_pl_mj_text (obj obj2 vl)
    
37.   (vla-put-textstring
    
38.     (vlr-data obj2)
    
39.     (strcat "S=" (rtos (vla-get-area obj) 2 2) )
    
40.   )
    
41. )

<br /> (defun c:tt ()<br />   (setq ent (car (entsel "\n选择线")))<br />   (setq pt (getpoint ""))<br />   (setq obj_pline (vlax-ename->vla-object ent))<br />   (setq txt (strcat "S=" (rtos (vla-get-area obj_pline) 2 2) ))<br />   (entmake<br />     (list (cons 0 "TEXT")<br />     (cons 8 "MJ")<br />     (cons 10 pt)<br />     (cons 11 pt)<br />     (cons 71 0)<br />     (cons 72 1)<br />     (cons 73 2)<br />     (cons 1 txt)<br />     (cons 40 1.5)<br />     <br />     )<br />   )<br />   (setq ent_txt (entlast))<br />   (setq obj_txt (vlax-ename->vla-object ent_txt))<br />   (setq ve (List obj_pline))<br />   (setq  reactor<br />    (vlr-object-reactor<br />      ve<br />      obj_txt<br />      '((:vlr-objectClosed . xlr_pl_mj_text))<br />    )<br />   )<br /> <br /> )<br /> <br /> <br /> ;;;;修改进入无限循环<br /> (defun xlr_pl_mj_text (obj obj2 vl)<br />   (vla-put-textstring<br />     (vlr-data obj2)<br />     (strcat "S=" (rtos (vla-get-area obj) 2 2) )<br />   )<br /> )

kozmosovia

:vlr-objectModified

永不言弃

kozmosovia 发表于 2024-3-26 22:39
:vlr-objectModified

换成这个，就会不更新面积了

kozmosovia

如果要在拖动曲线时面积就变化，除了加入实体反应器，还需要增加命令反应器来监控可能修改边界曲线的命令被触发并相应执行操作。具体可以参考CAD安装目录中的教程GPath，里面有详细的反应器设计逻辑说明。