获取即将被删除的选择集
想要获取被删除前的选择集，在删除其关联的一些对象，但是在(setq sser (ssget "_P"))这一步始终是nil。除了ERASE的其他命令都能获取到。想过直接用 (ssget)，但是会出现无论是否先手动选择，都还要再选一遍，不符合初衷。有哪位大神指导一下问题出在哪里？(defun becomm (v e /)
(cond
((equal (car e) "ERASE") (setq sser (ssget "_P")));;;这一步获取的选择集为nil
)
)
(defun comm (v e /)
(cond
((equal (car e) "ERASE")
(print "这里删除一些与之相关的对象")
)
)
)
(or commreactor
(setq commreactor
(vlr-command-reactor
nil
'((:vlr-commandEnded . comm)
(:vlr-commandWillStart . becomm)
)
)
)
)
难道你需要预选ssgetfirst? 你有种再说一遍 发表于 2024-3-17 17:13
难道你需要预选ssgetfirst?
新手，特意去搜了一下帮助，不过没看懂这是咋用的。好像与我要做的没有关系呀 本帖最后由 你有种再说一遍 于 2024-3-17 20:29 编辑
s1os5210 发表于 2024-3-17 17:55
新手，特意去搜了一下帮助，不过没看懂这是咋用的。好像与我要做的没有关系呀
是不是这个意思,因为某个命令有删除功能,所以你想通过反应器拦截获取?
如果只是删除命令的话,你仿照一个不就有先ssget,再删了
你有种再说一遍 发表于 2024-3-17 20:27
是不是这个意思,因为某个命令有删除功能,所以你想通过反应器拦截获取?
如果只是删除命令的话,你仿照一个 ...
先谢过了。
整个思路是，在删除某些对象后跟着修改一些对象。比如删除了圆、直线这类的图元，就不做任何操作，如果删除的是图框，就把将剩余图框里的代号重新编写。删除的是一个序号，就将大于被删除序号的剩余序号重新编号。要的是这样的效果，所以在删除对象之前，得先知道，删除的是图框还是序号。后续才能做对应的操作。 本帖最后由 你有种再说一遍 于 2024-3-17 21:35 编辑
s1os5210 发表于 2024-3-17 20:59
先谢过了。
整个思路是，在删除某些对象后跟着修改一些对象。比如删除了圆、直线这类的图元，就不做任何 ...
那我建议你不要使用删除反应器获取,而是采取自己做一个删除命令,这样就能先ssget获取了,再任由你发挥,最后删除.
再加上拦截命令反应器去否决原生删除命令.
因为删除反应器是能不用就不用,这种全局的东西,一是难以发现bug,二是lisp的中断机制(多次ESC)能够断掉这个反应器造成一系列问题.
你有种再说一遍 发表于 2024-3-17 21:21
那我建议你不要使用删除反应器获取,而是采取自己做一个删除命令,这样就能先ssget获取了,再任由你发挥,最 ...
也想过，是个思路，还在找方法，不行就重做一个删除命令
页:
[1]