CAD开发者社区 › 首页 ›AutoCAD二次开发指南› ActiveX 开发指南› ActiveX：开发人员指南› 创建和编辑 AutoCAD 实体› 关于使用图层（VBA/ActiveX） › 查看内容

ActiveX 开发指南

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

2023-1-5 00:05| 发布者: admin| 查看: 823| 评论: 0|来自: AutoCAD

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

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

循环访问图层集合

下面的代码循环访问集合以收集图形中所有层的名称。然后，这些名称将显示在消息框中。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