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

jiwei2200 发表于 2009-5-9 10:05:00

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

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

mccad 发表于 2009-5-11 18:04:00

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 EntColor0 Then CreateLayer.color = EntColor
    End If
End Function

查看完整版本: [求助][讨论]求用VBA做cad二次开发怎么设置图层