alexmai 发表于 2020-3-10 14:52:32

如何ctrl + x 写入lisp

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

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

取消动态块的源码已有，

目的：

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

669423907 发表于 2020-3-10 14:52:33

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

alexmai 发表于 2020-3-11 19:05:29

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


原来如此，谢谢
页: [1]
查看完整版本: 如何ctrl + x 写入lisp