社区 › VB › 将所有层添加到ByLayer

kpblc 发表于 2007-8-16 12:51:34

将所有层添加到ByLayer

这个应该很简单，但是由于某种原因，我仍然得到一个错误
有人看到这个问题吗？??谢谢您马克代码0]
**** Hidden Message *****

deegeecees 发表于 2007-8-16 12:58:21

.颜色已过时。 .TRUECOLOR是新的替代品。
您使用的是哪个版本的 AutoCAD？ 2008 有一个名为 SETBYLAYER 的命令，你可能想要查看它。
Sub AllLayersToByLayer()
    Dim color As AcadAcCmColor
    Dim layer As AcadLayer
   
    Set color = New AcadAcCmColor
    With color
      .ColorMethod = acColorMethodByACI
      .ColorIndex = "256"
    End With
   
    For Each layer In ThisDrawing.Layers
      layer.TrueColor = color
    Next layer
End Sub

deegeecees 发表于 2007-8-16 13:04:43

哇
真有趣马特
你会认为在我的3本书和帮助屏幕中，他们会有一个合适的例子
让我试一试
谢谢
马克

deegeecees 发表于 2007-8-16 13:10:04

嗨，马特。
可能是我不太清楚；我希望将所有图层颜色更改为bylayer＜br＞谢谢＜br＞标记

deegeecees 发表于 2007-8-16 13:49:58

我有正确的理解吗？将层颜色更改为ByLayer？
您当然可以这样做，但这可能会使AutoCAD或dwg文件崩溃（下次无法打开它）。我收到此错误一次，不想重复它。
图层对象不能使用颜色ByLayer或ByBlock。您必须通过ACI（从1到255）或TrueColor设置颜色。

deegeecees 发表于 2007-8-16 13:59:55

啊
你说得很有道理
你需要抓取绘图中的所有对象（实体）并将对象名称更改为ByLayer
我相信
谢谢
Mark

deegeecees 发表于 2007-8-16 14:06:36

但它仍然不起作用

deegeecees 发表于 2007-8-16 14:42:58

非编程方式：
选择所有对象，然后在属性对话框中，选择“颜色”、“ByLayer”。

deegeecees 发表于 2007-8-16 14:43:34

呸<你一点也不好玩，哈哈

deegeecees 发表于 2007-8-16 14:47:26

试试这个......（或使用DGC建议的）

查看完整版本: 将所有层添加到ByLayer