LISP-合并颜色层
嗨，伙计们，需要你们的帮助，我需要一个lisp合并到一个新的层类似的颜色层。我使用4个预设层：网格、柱、墙和各种文本。用只有4种颜色的不同图层绘制剩余的图形，但是合并所有这些图层是非常浪费的。谢谢你的宝贵帮助。 LAYMRG命令？
我知道laymerge，但我需要更快的。如果您已经有了颜色层，我可能只是在编写“milispmerge”命令，并将所有类似颜色的层合并在一起。每天都有那么多文件。非常感谢。 在这一页中，我找到了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层墙、柱、网格和文本）。
非常感谢。
页:
[1]