反应器能相互约束吗？

xtjd

;;对象反应器学习xtjd_20210708(defun c:test(/ ans ce dds en obj objs ss)
  (defun circle-edit (n-obj r-obj p-list)
    (setq ra(vla-get-radius n-obj));半径
    (setq ce(vlax-get n-obj 'center));圆心
    (setq data(vlr-data r-obj))
    (mapcar (function(lambda(x)(vla-put-Radius x ra)))(car data))
    (mapcar (function(lambda(x y z)(Vla-Put-center x(vlax-3d-point(polar ce y z)))))(car data)(cadr data)(last data))
  )
  (princ "\n请选择同步对象：")
  (if(and
       (setq ss(ssget ":S" '((0 . "circle"))))
       (setq en(car(entsel "\n请选择基准圆：")))
     )
    (progn
      (setq ss(ssdel en ss))
      (setq obj(vlax-ename->vla-object en))
      (setq ce(vlax-get obj 'center));圆心
      (setq objs(mapcar 'vlax-ename->vla-object(vl-remove-if 'listp(mapcar 'cadr(ssnamex ss)))))
      (setq ans(mapcar (function(lambda(x)(angle ce(vlax-get x 'center))))objs))
      (setq dds(mapcar (function(lambda(x)(distance ce(vlax-get x 'center))))objs))
    )
  )
  (vlr-object-reactor (list obj) (list objs ans dds) '((:vlr-modified . circle-edit)))
)对象反应器是否可以做到任意圆都可以约束其它对象?

xtjd

高版本的反应器函数有问题，图示动作在CAD2006中测试通过，高版本出错