[求助][讨论]求用VBA做cad二次开发怎么设置图层

jiwei2200

用VBA做cad二次开发怎么设置图层，谁有相关的例子，给会个帖子，谢谢。

mccad

Public Function CreateLayer(ssLayerName As String, Optional EntColor As Integer) As AcadLayer
On Error Resume Next
    Set CreateLayer = ThisDrawing.Layers(ssLayerName)
    If Err Then
        Err.Clear
        Set CreateLayer = ThisDrawing.Layers.Add(ssLayerName)
        If EntColor <> 0 Then CreateLayer.color = EntColor
    End If

End Function