[求助]如何由点选得知对象贴付了甚么反应器!

龙龙仔 · 发表于 2003-12-22 17:05:00

如何由点选得知对象贴付了甚么反应器!
难道只能用(vlr-reactors)遍历比对吗?
下列为贴付反应器程序,截取自帮助档
(defun C:TTT ()
  (setq       MYCIRCLE
      ;; 提示输入中心点与半径：
      (progn       (setq CTRPT  (getpoint "\nCircle center point: ")
                  RADIUS (distance CTRPT
                                    (getpoint CTRPT "\nRadius: ")
                           )
            )
            ;; 加入圆周到图面模型空间。巢状化函数
            ;; 呼叫以取得到目前图面之模型的路径
            ;; space: AcadObject > ActiveDocument > ModelSpace
            (vla-addcircle
               (vla-get-modelspace
                  (vla-get-activedocument (vlax-get-acad-object))
               )
               (vlax-3d-point CTRPT)
               RADIUS
            )
      )
  )
  (setq       CIRCLEREACTOR
      (vlr-object-reactor
         (list MYCIRCLE)
         "Circle Reactor"
         '((:vlr-modified . PRINT-RADIUS))
      )
  )
)
;;下列程序代码定义名为 print-radius 的回复函数。这个函数可以用来打印一个圆周的半径：
(defun PRINT-RADIUS (NOTIFIER-OBJECT REACTOR-OBJECT PARAMETER-LIST)
  (vl-load-com)
  (cond
((vlax-property-available-p
   NOTIFIER-OBJECT
   "Radius"
   )
   (princ "The radius is ")
   (princ (vla-get-radius NOTIFIER-OBJECT))
)
  )
)