图层和线型排序

AutoCAD ActiveX/VBA

 
图层和线型排序
 
 
 

用户可以遍历 Layers 和 Linetypes 集合来查找图形中的所有图层和线型。

遍历 Layers 集合

以下代码遍历 Layers 集合,以收集图形中所有图层的名称,然后将这些名称显示在消息框中。

Sub Ch4_IteratingLayers()
    Dim layerNames As String
    Dim entry As AcadLayer
    layerNames = ""
    For Each entry In ThisDrawing.Layers
        layerNames = layerNames + entry.Name + vbCrLf
    Next
    MsgBox "The layers in this drawing are: " + _
           vbCrLf + layerNames
End Sub