• kostyatm
  • Восстановленный участник
  • На форуме с 10 марта 2005г.
  • Сообщений: 1
  • Спасибо: 0

Тема: Как получить список объектов в каждом слое?

Здравствуйте эксперы!
Подскажите пожалуста каким образом в VBA in AutoCAD
получить список объектов в каждом леяре.
Очень срочно надо.

  • Leonid
  • Восстановленный участник
  • На форуме с 16 июня 2003г.
  • Сообщений: 389
  • Спасибо: 0

Re: Как получить список объектов в каждом слое?

Задание достаточно неконкретное, поэтому предлагаемый код можно рассматривать как некую схему или шаблон, которую вы сможете подкрутить под свою задачу:

Sub ObjectList()
     Dim M_Space As AcadModelSpace
     Dim P_Space As AcadPaperSpace
     Dim Ent As AcadEntity
     Dim EntColl As New Collection
     Dim i As Long
     Set M_Space = ThisDrawing.ModelSpace
     Set P_Space = ThisDrawing.PaperSpace
     On Error Resume Next
     For i = 0 To M_Space.Count
          Set Ent = M_Space.Item(i)
          If (Ent.Layer = "MyLayer") Then
               EntColl.Add Ent
          End If
     Next i
     For i = 0 To P_Space.Count
          Set Ent = P_Space.Item(i)
          If (Ent.Layer = "MyLayer") Then
               EntColl.Add Ent
          End If
     Next i
     Dim EntList As String
     EntList = ""
     For Each Ent In EntColl
          EntList = EntList & vbCrLf & Ent.ObjectName
     Next Ent
     MsgBox EntList
End Sub