反应器能相互约束吗？
本帖最后由 xtjd 于 2021-7-8 19:06 编辑;;对象反应器学习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)))
)对象反应器是否可以做到任意圆都可以约束其它对象?
高版本的反应器函数有问题，图示动作在CAD2006中测试通过，高版本出错
页:
[1]