［功能］删除图元上的对象反应器

/db_自贡黄明儒_ · 发表于 2016-5-25 08:31:15

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

;;［功能］删除图元上的对象反应器
;;By 自贡黄明儒 2016.5.25
(defun C:ZBD (/ A E FLAG LST)
;;(setq AA (VLR-current-reaction-name));当前反应器 :VLR-erased
(cond ((and (setq e (car (entsel "\n拾取反应器链接对象")))
(setq e (vlax-ename->vla-object e))
(setq Lst (cdar (vlr-reactors :vlr-object-reactor)))
)
(while Lst
(setq a (car Lst))
;;(VLR-Remove a)返回nil，证明没有成功
(cond ((equal (car (VLR-Owners a)) e) (VLR-Remove a) (setq Flag T)))
(setq Lst (cdr Lst))
)
(cond (Flag (princ "\n 此对象的反应器成功删除,Congratulations!"))
(T (princ "\n 此对象上没有反应器"))
)
)
)
(princ)
)

HLCAD · 发表于 2016-5-25 08:50:05

反应器没有真正玩过，听说反应器太多会造成系统崩溃，还听说会造成互相干扰等。可惜没时间，不然跟着黄长老好好试试

yoyoho · 发表于 2016-5-25 09:10:39

感谢黄老师分享程序! 学习了!

Lisphk · 发表于 2016-5-25 11:08:27

感谢黄工，试了下你的程序删除关联填充，怎么没效果呢？

/db_自贡黄明儒_ · 发表于 2016-5-25 11:14:28

Lisphk 发表于 2016-5-25 11:08
感谢黄工，试了下你的程序删除关联填充，怎么没效果呢？

错了吧，我写过这样的程序？

Lisphk · 发表于 2016-5-25 11:51:32

/db_自贡黄明儒_ 发表于 2016-5-25 11:14
错了吧，我写过这样的程序？

不是啊，关联填充不也是上面有对象反应器吗？

命令: (entget (car (entsel)))

选择对象: ((-1 . <图元名: -24d538>) (0 . "LWPOLYLINE") (5 . "289") (102 .
"{ACAD_REACTORS") (330 . <图元名: -20ca10>) (102 . "}") (330 . <图元名: -24f308>)
(100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbPolyline")
(90 . 4) (70 . 1) (43 . 0.0) (38 . 0.0) (39 . 0.0) (10 4102.65 1096.16) (40 .
0.0) (41 . 0.0) (42 . 0.0) (10 4158.0 1096.16) (40 . 0.0) (41 . 0.0) (42 . 0.0)
(10 4122.99 1084.56) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 4102.65 1084.56) (40
. 0.0) (41 . 0.0) (42 . 0.0) (210 0.0 0.0 1.0))

/db_自贡黄明儒_ · 发表于 2016-5-25 11:55:35

本帖最后由 /db_自贡黄明儒_ 于 2016-5-25 11:57 编辑

Lisphk 发表于 2016-5-25 11:51
不是啊，关联填充不也是上面有对象反应器吗？

命令: (entget (car (entsel)))

这个不一样。cad自身的东西，比如用qleader产生东西，他自己也有反应器。与我们自己加的反应器不同。
填充的关联可以直接编辑的。

st788796 · 发表于 2016-5-25 13:15:20

(XD::Entity:Reactors)获取实体的永久反应器
这个函数可以获取附着在实体上的反应器

账号		自动登录	找回密码
密码			立即注册

[研讨] ［功能］删除图元上的对象反应器

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评