[求助]面积反应器疑问?烦请高手解答!

xyz518mm

请问以下两个问题:
QQ1:当面积文字删除时,如何恢复面积文字?
QQ2:当档案存档关闭或关闭CAD后,于下次开启时如何恢复反应器呢?

以下是我的程序:
(defun C:PLAREARO ()
(vl-load-com)
(setq acaddocument(vla-get-activedocument(vlax-get-acad-object)))
(setq pt (getpoint "\n 点选面积文字放置:"))
(setq EN (CAR(ENTSEL "\n 选取PLINE物件:")))
(command "-BOUNDARY" pt "")
(setq vla-en (cons (vlax-ename->vla-object en) '()))
(if (/= en nil)
      (progn
      (command "area" "o" en)
      (command "layer" "m" "tmp" "c" "1" "" "")
      (command "chprop" en "" "la" "tmp" "")
      (setq txt (strcat (rtos (/ (getvar "area") 10000) 2 2) "㎡")
      )
      (command "layer" "m" "AREA-TEXT" "c" "4" "" "")
      (command "text" "j" "MC" pt "30" "0" txt)
(setq vla-area-txt (cdr (assoc 5 (entget (entlast)))))))

(setq vla-rot (vlr-pers
               (vlr-object-reactor vla-en vla-area-txt
                '((:vlr-modified . area-txt))) )
)
(vlr-type vla-rot)
(princ "\n已建立的反应器有: ")
(princ (vlr-reactors))
)

(defun area-txt (notifier-object reactor-object parameter-list)
(setq pl-txt (handent (vlr-data reactor-object)))
(setq txt (vlax-ename->vla-object pl-txt))
(setq obj-area (vla-get-area notifier-object))
(setq txt-nub (strcat (rtos (/ obj-area 10000) 2 2) "㎡") )
(vla-put-TextString txt txt-nub )
)

烦请各位高手可以帮忙解答一下.谢谢!

LUCAS

參考
http://free.ys168.com/?lucas-lai
永久物件反應器例子

yy5heng

关闭cad后，下次开启文件，需要加载plarearo即可回复反应器功能。
好像第一个问题也可以解决吧。

xyz518mm

谢谢回答来去试看看

zml84

;;;QQ1:当面积文字删除时,如何恢复面积文字?
;;;;;;;;;答:(entdel pl-txt)即可。
;;;QQ2:当档案存档关闭或关闭CAD后,于下次开启时如何恢复反应器呢?
;;;;;;;;;答:1.思路一般来说，设置成永久反映器就可以自动恢复。
但回调函数就需要自己想办法加载了。
既然如此，不如索性设置成临时反映器，将其与回调函数统一考虑。
2.实现方法：在数据库某一特殊位置，将反映器和回调函数写入其中；以一个统一的用户定义的可以自动加载的例行程序对其进行控制。
这样格式就相当的灵活了，你可以尽情的根据需要进行组织。
事实上，CAD系统也是这样对待永久性反映器的，只不过它好象忘记了回调函数也是要加载的。
<br>
将楼主的代码修改后如下：

2. 
   
3. (vl-load-com)
   
4. (defun C:PLAREARO ()
   
5.   (if (setq pt (getpoint "\n 点选面积文字放置:"))
   
6.     (if        (setq EN (CAR (ENTSEL "\n 选取PLINE物件:")))
   
7.       (progn
   
8.         (setq acaddocument
   
9.                (vla-get-activedocument (vlax-get-acad-object))
   
10.         )
    
11.         (command "-BOUNDARY" pt "")
    
12.         (setq vla-en (cons (vlax-ename->vla-object en) '()))
    
13.         (command "area" "o" en)
    
14.         (command "layer" "m" "tmp" "c" "1" "" "")
    
15.         (command "chprop" en "" "la" "tmp" "")
    
16.         (setq txt (strcat (rtos (/ (getvar "area") 10000) 2 2) "㎡")
    
17.         )
    
18.         (command "layer" "m" "AREA-TEXT" "c" "4" "" "")
    
19.         (command "text" "j" "MC" pt "30" "0" txt)
    
20.         (setq vla-area-txt (cdr (assoc 5 (entget (entlast)))))
    
21.         (setq vla-rot (vlr-pers
    
22.                         (vlr-object-reactor
    
23.                           vla-en
    
24.                           vla-area-txt
    
25.                           '((:vlr-modified . area-txt))
    
26.                         )
    
27.                       )
    
28.         )
    
29.         (vlr-type vla-rot)
    
30.         (princ "\n已建立的反应器有: ")
    
31.         (princ (vlr-reactors))
    
32.       )
    
33.     )
    
34.   )
    
35.   (princ)
    
36. )
    
37. 
    
38. ;;回调函数
    
39. (defun area-txt        (notifier-object reactor-object parameter-list)
    
40.   (setq pl-txt (handent (vlr-data reactor-object)))
    
41.   (if (setq txt (vlax-ename->vla-object pl-txt))
    
42.     ()
    
43.     (setq txt (vlax-ename->vla-object (entdel pl-txt)))
    
44.   )
    
45.   (setq obj-area (vla-get-area notifier-object))
    
46.   (setq txt-nub (strcat (rtos (/ obj-area 10000) 2 2) "㎡"))
    
47.   (princ "\n面积:")
    
48.   (princ obj-area)
    
49.   (vla-put-TextString txt txt-nub)
    
50. )
    

<br /> (vl-load-com)<br /> (defun C:PLAREARO ()<br />   (if (setq pt (getpoint "\n 点选面积文字放置:"))<br />     (if        (setq EN (CAR (ENTSEL "\n 选取PLINE物件:")))<br />       (progn<br />         (setq acaddocument<br />                (vla-get-activedocument (vlax-get-acad-object))<br />         )<br />         (command "-BOUNDARY" pt "")<br />         (setq vla-en (cons (vlax-ename->vla-object en) '()))<br />         (command "area" "o" en)<br />         (command "layer" "m" "tmp" "c" "1" "" "")<br />         (command "chprop" en "" "la" "tmp" "")<br />         (setq txt (strcat (rtos (/ (getvar "area") 10000) 2 2) "㎡")<br />         )<br />         (command "layer" "m" "AREA-TEXT" "c" "4" "" "")<br />         (command "text" "j" "MC" pt "30" "0" txt)<br />         (setq vla-area-txt (cdr (assoc 5 (entget (entlast)))))<br />         (setq vla-rot (vlr-pers<br />                         (vlr-object-reactor<br />                           vla-en<br />                           vla-area-txt<br />                           '((:vlr-modified . area-txt))<br />                         )<br />                       )<br />         )<br />         (vlr-type vla-rot)<br />         (princ "\n已建立的反应器有: ")<br />         (princ (vlr-reactors))<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br /> ;;回调函数<br /> (defun area-txt        (notifier-object reactor-object parameter-list)<br />   (setq pl-txt (handent (vlr-data reactor-object)))<br />   (if (setq txt (vlax-ename->vla-object pl-txt))<br />     ()<br />     (setq txt (vlax-ename->vla-object (entdel pl-txt)))<br />   )<br />   (setq obj-area (vla-get-area notifier-object))<br />   (setq txt-nub (strcat (rtos (/ obj-area 10000) 2 2) "㎡"))<br />   (princ "\n面积:")<br />   (princ obj-area)<br />   (vla-put-TextString txt txt-nub)<br /> )<br />