LISP-合并颜色层

nelsonavirama · 发表于 2022-7-5 22:39:22

嗨，伙计们，需要你们的帮助，我需要一个lisp合并到一个新的层类似的颜色层。我使用4个预设层：网格、柱、墙和各种文本。用只有4种颜色的不同图层绘制剩余的图形，但是合并所有这些图层是非常浪费的。

谢谢你的宝贵帮助。

Lee Mac · 发表于 2022-7-5 23:08:17

LAYMRG命令？

nelsonavirama · 发表于 2022-7-5 23:34:27

我知道laymerge，但我需要更快的。如果您已经有了颜色层，我可能只是在编写“milispmerge”命令，并将所有类似颜色的层合并在一起。每天都有那么多文件。非常感谢。

nelsonavirama · 发表于 2022-7-5 23:58:56

在这一页中，我找到了nex代码：
http://forums.autodesk.com/t5/Visual-LISP-AutoLISP-and-General/LayMrg/td-p/3236852

;;;
（defun c：合并到0（/名称层）

（vl load com）

（vlax代表x（vla获得层
（cond（*AcadDoc*）
（（setq*AcadDoc*（vla get activedocument（vlax get acad object）））
)
)
（if（not（wcmatch（strcase（setq name（vla get name x）））“0，DEFPOINTS，*|*”）
（setq层（cons名称层））
)
)

（cond（（非图层）（警告“无需合并！”）
（T）
（vl cmdf“_。-layer”“\u THAW”“0”“\u SET”“0”“\u。-laymrg”）
（foreach层（vl cmdf“u NAME”层））
（vl cmdf“”“\u NAME”“0”“\u YES”）
)
)
（普林斯）
)

;;;

我想要一个类似的命令，但分组层以颜色连接（使用4种颜色白色、251、6、2和4层墙、柱、网格和文本）。

非常感谢。

[编程交流] LISP-合并颜色层

发表回复

精选推荐