VB中设置图层为当前图层及如何设置图层颜色。

yltc

VB中设置图层为当前图层及如何设置图层颜色。

nhy12345678

Sub addlay(name As String, co As Long)
Dim lay0 As AcadLayer '定义作为图层的变量
Dim lay1 As AcadLayer
Dim findlay As Long
findlay = 0 '寻找图层的结果的变量，0没有找到，1找到
For Each lay0 In ThisDrawing.Layers '在所有的图层中进行循环
   If lay0.name = name Then '如果找到图层名
     findlay = 1 '把变量改为1标志着图层已经找到
       If Not lay0.LayerOn Then lay0.LayerOn = True '打开
       ThisDrawing.ActiveLayer = lay0 '把当前图层设为已经存在的图层
     Exit For '结束寻找
   End If
Next lay0
If findlay = 0 Then '没有找到图层
   Set lay1 = ThisDrawing.Layers.Add(name) '增加一个名为“临时图层”的图层
   lay1.color = co '图层设置为黄色
   ThisDrawing.ActiveLayer = lay1 '将当前图层设置为新建图层
End If
End Sub

yltc

lay0 As AcadLayer　用户类型未定义是怎么回事？