社区 › VB › VBA中如何实现标注以及创建图层？

djy0402love 发表于 2009-5-20 12:34:00

VBA中如何实现标注以及创建图层？

VBA中如何实现标注以及创建图层？

mccad 发表于 2009-6-1 06:39: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中如何实现标注以及创建图层？