概要 - 画層および線種をソートする(VBA/ActiveX)

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