如何ctrl + x 写入lisp

alexmai

工作中，经常要把选择的多个块，取消动态块属性后，然后 ctrl + X 放置去另一份图纸中，

这种步骤比较傻，希望大神告诉一个比较快捷的办法

取消动态块的源码已有，

目的：

ctrl + X ，删除物体后，把copy内容,放入粘帖板中

669423907

(defun c:13(/ ss)
(if (setq ss (ssget))
(command "_cutclip" ss "")
)
(princ))

alexmai

669423907 发表于 2020-3-10 14:52
(defun c:13(/ ss)
(if (setq ss (ssget))
(command "_cutclip" ss "")

原来如此，谢谢