所有图层到ByLayer

新迁安 · 发表于 2007-8-16 14:47:58

嘘
你一点都不有趣；英雄联盟

畅所欲言吧 · 发表于 2007-8-16 14:48:22

试试这个….（或使用DGCs建议的方法）

Sub AllLayersToByLayer()
    Dim color As AcadAcCmColor
    Dim obj As AcadEntity
    
    Set color = New AcadAcCmColor
    With color
        .ColorMethod = acColorMethodByACI
        .ColorIndex = "256"
    End With
    
    For Each obj In ThisDrawing.ModelSpace
        obj.TrueColor = color
    Next obj
End Sub

灌水 · 发表于 2007-8-16 14:48:57

我知道，有时候我觉得自己像一条湿毯子
；

天才 · 发表于 2007-8-16 14:55:43

不，我同意你的观点，我过去编程只是为了好玩，现在我通常有一个规则，那就是从nec中编程
然而，有人早些时候问你是否可以同时将所有对象全局更改为bylayer，于是智力开始发挥作用&nbsp&nbsp；哈哈，我原以为我需要5分钟的时间来拼凑，但显然没有&#039；哈哈，有些事情你可以做
我可以使用acad中的filter命令，具体询问他在这一层中使用最多的是哪一层，然后创建一个他可以运行的过滤器
It&#039；真的没什么大不了的，我只是好奇马克

顺水行舟 · 发表于 2007-8-16 15:03:26

Matts代码是您需要的。

所有图层到ByLayer

发表回复

精选推荐