• Alexys
  • Восстановленный участник
  • На форуме с 11 августа 2006г.
  • Сообщений: 63
  • Спасибо: 0

Тема: Как перебрать все примитивы AutoCAD и узнать их типы через VBA?

На чертеже чертятся примитивы. А можно ли перебрать все примитивы и узнать их типы через VBA ?
Например, можно ли узнать, что это текст и считать его значение ?

  • SmeL
  • SmeL
  • Активный участник
  • Откуда: Молдова
  • На форуме с 29 сентября 2005г.
  • Сообщений: 464
  • Спасибо: 1

Re: Как перебрать все примитивы AutoCAD и узнать их типы через VBA?

    Dim ent As AcadEntity
    On Error Resume Next
    For Each ent In ThisDrawing.ModelSpace
        Select Case (ent.ObjectName)
         Case "AcDbBlockReference"
         ...
        End Select
    Next ent

Если вас интересуют определенные примитивы то лучше воспользоваться
SelectionSets и фильтрами

  • Alexys
  • Восстановленный участник
  • На форуме с 11 августа 2006г.
  • Сообщений: 63
  • Спасибо: 0

Re: Как перебрать все примитивы AutoCAD и узнать их типы через VBA?

А если интересует текст в тектовом примитиве, как тогда написать ? Извините, я начинающий и не читаю по аглицки :((