[krok64]

выбираю блоки при помощи

Код:

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

Public Sub GetBlkRefs(strBlkName As String, objSelSet As AcadSelectionSet)
  Dim varData(0) As Variant
  Dim intData(0) As Integer
  varData(0) = strBlkName
  intData(0) = 2
  objSelSet.Select acSelectionSetAll, , , intData, varData
End Sub

все работает отлично, блоки находятся, но стоит только чуть изменить блок (блоки динамические) они перестают находится данным кодом. кто виноват и что делать?

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

Ничего не сделаешь. После изменения блок становится анонимным, и надо проводить дополнительную фильтрацию по EfefectiveName