CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2018 开发者帮助 › 查看内容

AutoCAD 2018 开发者帮助

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

2024-5-18 16:52| 发布者: admin| 查看: 267| 评论: 0|原作者: admin|来自: AutoCAD

您可以循环访问和集合以查找图形中的所有图层和线型。LayersLinetypes

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