关于对图层和线型进行排序 （VBA/ActiveX）

循环访问 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