更改图层
尊敬的各位成员：。。我正在寻找一个lisp程序来帮助我满足这些需求（如下所示）
我需要清理文件
*需要全力以赴
*需要覆盖所有层
*需要解锁所有层
*需要审核和清除
*需要使setbylayer
*需要在一个颜色中制作所有对象层（包括块）（颜色8，应在bylayer中）
和
我需要删除一些内容（如..文本、图案填充等）为此，我有一个程序（如下所示），我需要添加我的上述要求，请有人可以帮助我解决这个问题
谢谢
我的代码是。。
（定义c:cla（/cntr eset en cnt）
（setvar“cmdecho”0）
（setq eset
（ssget“X”
（列表
（cons-4“（cons 0”属性）
（cons 0“MLINE”）
（cons 0“多行文字”）
（cons 0“点”）
（cons 0“实心”）
（cons 0“文本”）
（cons 0“领导者”）
（cons 0“图案填充”）
（cons 0“尺寸”）
（cons-4“或>”）
)
)
)
（if（和eset（>（sslength eset）0））
（程序
（setq cnt（sslength eset））
（命令“ERASE”eset“”）
（警报（strcat“已擦除”（itoa cnt）“实体”）
)
)
（setvar“cmdecho”1）
（普林斯）
) 注意，需要在#中发布代码，只需在此处搜索其他项目。
(command "-layer" "on" "*" "")
(command "-layer" "T" "*" "")
谢谢你的回复。。。
我可以看到的地方（没有任何链接） 此页面右上角的空白搜索框尝试“审核和清除”
据我所知，我做了审计和清除这个请纠正我，如果我错了（你可以请我使如何应用到lisp程序中）上午在开始阶段（Lkg：哭：）
（命令“-layer”“on”“*”“”）
（命令“-layer“T”“*”“”）
（命令“-purge”“all”“*”“n”）
（命令“audit”“yes”）
（命令“-layer”“u”“*”“”） 请阅读代码发布指南并编辑您的帖子，将代码包含在代码标签中。
（命令“-layer”“on”“*”“”）
（命令“-layer”“T”“*”）（命令“-purge”“all”“*”“n”）
（命令“audit”“yes”）（命令“-layer”“u”“*”）
页:
[1]