更改图层

ybx · 发表于 2022-7-5 20:21:14

尊敬的各位成员：。。
我正在寻找一个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）
（普林斯）
)

BIGAL · 发表于 2022-7-5 20:34:45

注意，需要在#中发布代码，只需在此处搜索其他项目。

copy


(command "-layer" "on" "*" "")
(command "-layer" "T" "*" "")

ybx · 发表于 2022-7-5 20:41:48

谢谢你的回复。。。
我可以看到的地方（没有任何链接）

BIGAL · 发表于 2022-7-5 20:55:19

此页面右上角的空白搜索框尝试“审核和清除”

ybx · 发表于 2022-7-5 21:10:04

据我所知，我做了审计和清除这个请纠正我，如果我错了（你可以请我使如何应用到lisp程序中）上午在开始阶段（Lkg：哭：）

（命令“-layer”“on”“*”“”）
（命令“-layer“T”“*”“”）
（命令“-purge”“all”“*”“n”）
（命令“audit”“yes”）
（命令“-layer”“u”“*”“”）

SLW210 · 发表于 2022-7-5 21:19:11

请阅读代码发布指南并编辑您的帖子，将代码包含在代码标签中。

ybx · 发表于 2022-7-5 21:30:06

（命令“-layer”“on”“*”“”）

copy

[/code]（命令“-layer”“T”“*”）[code]

（命令“-purge”“all”“*”“n”）

copy

[/code]（命令“audit”“yes”）[code]

（命令“-layer”“u”“*”）
[code][/code]

[编程交流] 更改图层

发表回复

精选推荐