[ramber]

Всем привет! Задача сделать чтобы при выделении фильтровались только блоки

Код:

[Выделить все]

  Dim SelSet As AcadSelectionSet
  Dim FilterType(0) As Integer
  Dim FilterData(0) As Variant
  
   ThisDrawing.SelectionSets.Item("Blocks").Delete
  Set SelSet = ThisDrawing.SelectionSets.Add("Blocks")
  
FilterType(0) = 0
FilterData(0) = "BLOCK"

SelSet.SelectOnScreen FilterType, FilterData

Помогите найти правильный FilterData. "BLOCK" - не работает.


И второй вопрос: как в VBA получить текущий масштаб модели?
Layout.StandardScale - выдает масштаб при печати

----- добавлено через ~11 мин. -----
Нашел ответ на 1-й вопрос

FilterData(0) = "INSERT"

[Кулик Алексей aka kpblc]

DXF Reference подсказывает, что надо искать INSERT.
Если ты объяснишь, что такое "масштаб модели", можно будет и поискать.

[ramber]

Масштаб тот, что на вложении.

по DXF Reference кинь, пожалуйста ссылку где именно.
я тоже там искал, нашел только:

Group codes Description
0 Entity type (BLOCK)

[Кулик Алексей aka kpblc]

Это масштаб аннотаций. Его и смотри (системные переменные, если не ошибаюсь, cannoscale и cannoscalevalue)