麻烦大师帮我改下如下反应器，使copy后新圆依然带反应器，谢谢！

tender138

CAD2016 中实现一个反应器，当绘制圆后，编辑圆时显示半径，希望使用 CAD 自带的 COPY 命令复制圆后，新圆也能触发同样的反应器。麻烦大师帮忙修改下，不胜感激！
(defun c:aa (/ cp r vla vlaLst)
  (vl-load-com)
  (setq cp (getpoint "\n指定圆心点:"))
  (setq r (getdist cp "\n输入园半径:"))
  (command "circle" cp r)
  (setq vla (vlax-ename->vla-object (entlast)))
  (setq vlaLst (list vla))
  (vlr-pers (vlr-object-reactor vlaLst nil '((:vlr-modified . show))))
  (princ)
)
(defun show (notifier-object reactor-object parameter-list / r)
  (vl-load-com)
  (setq r (vla-get-diameter notifier-object));获取直径(vla-get-diameter获取圆的直径)
  (setq r (rtos r 2 4));转换为字符串
  (alert (strcat "圆的内径是:" r))
)

tender138

各位大师，麻烦帮忙啊，在此谢过了！

张向华

单纯支持，给高手修改吧

kozmosovia

需要追加一个copied反应器

2. (defun c:aa (/ cp r vla vlaLst)
   
3.   (vl-load-com)
   
4.   (setq cp (getpoint "\n指定圆心点:"))
   
5.   (setq r (getdist cp "\n输入园半径:"))
   
6.   (command "circle" cp r)
   
7.   (setq vla (vlax-ename->vla-object (entlast)))
   
8.   (setq vlaLst (list vla))
   
9.   (vlr-pers (vlr-object-reactor vlaLst nil '((:vlr-modified . show)
   
10.                                              (:VLR-COPIED . copy))))
    
11.   (princ)
    
12. )
    
13. (defun copy (notifier-object reactor-object parameter-list / r)
    
14.   (vlr-pers (vlr-object-reactor (list (vlax-ename->vla-object (entlast)))
    
15.               nil '((:vlr-modified . show)
    
16.                                              (:VLR-COPIED . copy))))
    
17.   )
    
18. (defun show (notifier-object reactor-object parameter-list / r)
    
19.   (vl-load-com)
    
20.   (setq r (vla-get-diameter notifier-object));获取直径(vla-get-diameter获取圆的直径)
    
21.   (setq r (rtos r 2 4));转换为字符串
    
22.   (alert (strcat "圆的内径是:" r))
    
23. )

(defun c:aa (/ cp r vla vlaLst)<br />   (vl-load-com)<br />   (setq cp (getpoint "\n指定圆心点:"))<br />   (setq r (getdist cp "\n输入园半径:"))<br />   (command "circle" cp r)<br />   (setq vla (vlax-ename->vla-object (entlast)))<br />   (setq vlaLst (list vla))<br />   (vlr-pers (vlr-object-reactor vlaLst nil '((:vlr-modified . show)<br />                                              (:VLR-COPIED . copy))))<br />   (princ)<br /> )<br /> (defun copy (notifier-object reactor-object parameter-list / r)<br />   (vlr-pers (vlr-object-reactor (list (vlax-ename->vla-object (entlast)))<br />               nil '((:vlr-modified . show)<br />                                              (:VLR-COPIED . copy))))<br />   )<br /> (defun show (notifier-object reactor-object parameter-list / r)<br />   (vl-load-com)<br />   (setq r (vla-get-diameter notifier-object));获取直径(vla-get-diameter获取圆的直径)<br />   (setq r (rtos r 2 4));转换为字符串<br />   (alert (strcat "圆的内径是:" r))<br /> )