社区 › Auto Lisp › 删除除curre之外的所有层

woodman78 发表于 2022-7-6 09:12:15

删除除curre之外的所有层

在lisp中有没有办法删除除当前图层之外的所有图层？

Tiger 发表于 2022-7-6 09:16:23

LAYDEL>Name>使用shift按钮高亮显示除一个外的所有项
 
抱歉，不知道如何将其翻译为lisp speek

woodman78 发表于 2022-7-6 09:21:41

谢谢，但不是我想要的。需要的是lisp speek！！

vnanhvu 发表于 2022-7-6 09:22:40

使用我的lisp+purge命令很简单
（defun c:EAA（）（命令“erase”“all”“”）（princ））

woodman78 发表于 2022-7-6 09:25:23

那是什么Lisp程序？

woodman78 发表于 2022-7-6 09:29:57

我知道了，但这也删除了当前层！

woodman78 发表于 2022-7-6 09:32:24

我得到了它。我需要锁定我想要保留的层。谢谢

woodman78 发表于 2022-7-6 09:35:29

太好了，我得到了我需要的。还有一件事。如何从Lisp中调用“另存为”对话框？

irneb 发表于 2022-7-6 09:38:14

在发送saveas命令之前调用initdia：
(initdia)
(command "._SAVEAS")

vnanhvu 发表于 2022-7-6 09:41:55

首先使用命令LAYLCK current your layer，并使用我的代码（defun c:EAA（）（命令“erase”“all”“）（princ））

查看完整版本: 删除除curre之外的所有层