这个面积标注，自动更新面积的，在低版本可以用，高版本有问题，请大神们指点一下

永不言弃

这个面积标注，自动更新面积的，在低版本可以用，高版本有问题，请大神们指点一下，谢谢

1. (defun c:tt ()
   
2.   (if (setq etn_ls (entsel "\n 选择封闭线"))
   
3.     (progn
   
4.       (setq en1 (car etn_ls))
   
5.       (setq pt (cadr etn_ls))
   
6.       (setq VC (vlax-ename->vla-object en1))
   
7.       (setq txt (rtos (vla-get-area VC) 2 0))
   
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.       (setq en2 (entlast))
    
21.       (setq EH1 (cdr (assoc 5 (entget en2))))
    
22.       (setq EH_L (list EH1))
    
23.       (setq VC_L (list VC))
    
24.       (vlr-pers
    
25.   (vlr-object-reactor
    
26.     VC_L
    
27.     EH_L
    
28.     '((:vlr-modified . change_xlr_txtmj))
    
29.   )
    
30.       )
    
31. 
    
32. 
    
33.     )
    
34.   )
    
35. )
    
36. (defun change_xlr_txtmj(NOTIFIER-OBJECT REACTOR-OBJECT PARAMETER-LIST /)
    
37.   (if (not (vlax-erased-p NOTIFIER-OBJECT))
    
38.     (progn
    
39.       (setq EC (vlax-vla-object->ename NOTIFIER-OBJECT))
    
40.       (setq EC_L (entget EC))
    
41.       (setq kj(rtos (vla-get-area NOTIFIER-OBJECT) 2 0))
    
42.       (setq EH_L (vlr-data reactor-object))
    
43.       (setq E1_L (vlax-ename->vla-object (handent (car EH_L))))
    
44.       (vla-put-textstring E1_L kj)
    
45.     )
    
46.   )
    
47.   )
    
48. 
    
49. 
    

(defun c:tt ()<br />   (if (setq etn_ls (entsel "\n 选择封闭线"))<br />     (progn<br />       (setq en1 (car etn_ls))<br />       (setq pt (cadr etn_ls))<br />       (setq VC (vlax-ename->vla-object en1))<br />       (setq txt (rtos (vla-get-area VC) 2 0))<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 />       (setq en2 (entlast))<br />       (setq EH1 (cdr (assoc 5 (entget en2))))<br />       (setq EH_L (list EH1))<br />       (setq VC_L (list VC))<br />       (vlr-pers<br />   (vlr-object-reactor<br />     VC_L<br />     EH_L<br />     '((:vlr-modified . change_xlr_txtmj))<br />   )<br />       )<br /> <br /> <br />     )<br />   )<br /> )<br /> (defun change_xlr_txtmj(NOTIFIER-OBJECT REACTOR-OBJECT PARAMETER-LIST /)<br />   (if (not (vlax-erased-p NOTIFIER-OBJECT))<br />     (progn<br />       (setq EC (vlax-vla-object->ename NOTIFIER-OBJECT))<br />       (setq EC_L (entget EC))<br />       (setq kj(rtos (vla-get-area NOTIFIER-OBJECT) 2 0))<br />       (setq EH_L (vlr-data reactor-object))<br />       (setq E1_L (vlax-ename->vla-object (handent (car EH_L))))<br />       (vla-put-textstring E1_L kj)<br />     )<br />   )<br />   )<br /> <br /> <br />