论坛 › A/VLISP › 【反应器】禁止删除（炸开）要保护的对象

marting 发表于 2018-4-2 17:06:37

【反应器】禁止删除（炸开）要保护的对象

本帖最后由 marting 于 2018-4-2 17:10 编辑

**** Hidden Message *****

(defun C:Keep( / ss obj i )
    (cond
      (   (setq ss (ssget))
            (repeat (setq i (sslength ss))
                (if
                  (not
                        (vl-position
                            (vla-get-handle
                              (setq obj
                                    (vlax-ename->vla-object
                                        (ssname ss
                                          (setq i (1- i))
                                        )
                                    )
                              )
                            )
                            kept_list
                        )
                  )
                  (setq kept_list
                        (cons
                            (vla-get-handle obj)
                            kept_list
                        )
                  )
                )
            )
            (if (not reactor)
                (setq reactor
                  (vlr-editor-reactor
                        "keep reactor"
                     '((:vlr-commandended . ObjectErased))
                  )
                )
            )
      )
    )   
    (princ)
)

q3_2006 发表于 2018-4-2 17:09:51

要有个教程就好了..听说写反映器很容易死机呢.

819534890 发表于 2018-4-2 17:14:49

回复学习，学习分享。

newer 发表于 2018-4-2 19:31:17

q3_2006 发表于 2018-4-2 17:09
要有个教程就好了..听说写反映器很容易死机呢.

只要设计的好，代码对，就不会死机。
因为ACAD运行后，里面各种HOOK，反应器时刻在运行，看不到而已。

ayl1004 发表于 2018-4-2 20:24:41

这个对wmfout也有效吗?

newer 发表于 2018-4-2 21:12:52

ayl1004 发表于 2018-4-2 20:24
这个对wmfout也有效吗?

只要是数据库中的实体，就有效。

yoyoho 发表于 2018-4-2 23:44:04

回复学习，谢谢分享。

ayl1004 发表于 2018-4-3 00:05:21

newer 发表于 2018-4-2 21:12
只要是数据库中的实体，就有效。

想想也是，et中的文字打散命令就排除有反应器的。

qhdycm2016 发表于 2018-4-3 13:33:05

谢谢楼主分享，学习一下

lrd1861 发表于 2018-4-4 11:15:38

回复看看{:1_1:}

ysq101 发表于 2018-4-5 20:09:47

这个功能很实用啊！！！！支持

漫漫遥 发表于 2018-4-6 20:36:14

回复学习，学习分享。

crtrccrt 发表于 2018-4-7 03:45:52

打印的好处是

434939575 发表于 2018-4-7 21:04:27

老大这个牛！厉害！

434939575 发表于 2018-4-7 21:10:13

本帖最后由 434939575 于 2018-4-7 21:16 编辑

试了效果好，！

查看完整版本: 【反应器】禁止删除（炸开）要保护的对象