Не получается SelectSet'ом отловить External Reference (Страница 1 из 2)

> Mamont
Извини, но:

FilterData(0) = "Block"

о таком не слышал, Александр Ривилис правильно
указал
~'J'~

> Александр Ривилис
Вот я как раз сгоряча и нарвался, тоже думал
что бит 4 все отлавливает
Ан, не все так просто:
http://discussion.autodesk.com/thread.j … dID=470919
~'J'~

> Александр Ривилис
Да я это и понял, только не сразу врубился,
увидел в хэлпе бит 4 и возрадовался
(тоже сгоряча, как Mamont, сунулся смотреть DXF коды для
блока, а надоть для INSERT - совершенно справедливо)
Мое уважение
~'J'~

Есть другой, более правильный способ:

Sub all_xref()
Dim mblocks As AcadBlocks
Dim mblock As AcadBlock
Dim i As Long
Set mblocks = ThisDrawing.Blocks
For Each mblock In mblocks
   If mblock.IsXRef Then
     '-------------------
     ' А здесь обыкновенный SelectionSet
     ' по имени блока  mblock.name
     ' Фильтр такой:
     '       FilterType(0) = 0
     '       FilterData(0) = "INSERT"
     '       FilterType(0) = 2
     '       FilterData(0) = mblock.Name
     '
     ' Наши действия над External Reference
     '-------------------
   End If
Next mblock
End Sub

> pavel
Спасибо тебе, добрый человек, уважил старика :)

> Mamont
Не хочется быть "придирастом", но вопрос звучал так: Не могу понять, почему не работает следущий фильтр..., а не - Как сделать чтобы он работал?
И на Ваш вопрос исчерпывающим образом ответил Александр Ривилис (BLOCK — это не примитив, а запись в символьной таблице блоков. Ее нельзя отфильтровать таким образом.)
Хорошо, что pavel догадался о том, что имел в виду, но почему-то не сказал автор темы...
Короче, я за точную формулировку вопроса.

Я делаю вот так:

Sub select_xref()
' надо массив постоянно обнулять!!!!
ReDim xref_spisok(0)
Dim sset As AcadSelectionSet
Dim grData(0) As Integer
Dim dataValue(0) As Variant
Dim rnd_num As Double
Dim i As Integer
Dim j As Integer
Dim number As Variant
j = 1
Randomize
rnd_num = Int(100000 * Rnd)
Set sset = ThisDrawing.SelectionSets.Add("det" & (rnd_num + 1))
grData(0) = 0
dataValue(0) = "INSERT"
sset.SelectOnScreen grData, dataValue
For i = 0 To sset.Count - 1
 If TypeName(sset(i)) = "IAcadExternalReference" Then
  number = nayti_xref(sset(i).Path)
  If number Then
   xref_spisok(number).n = xref_spisok(number).n + 1
  Else
   ReDim Preserve xref_spisok(j)
   xref_spisok(j).Path = sset(i).Path
   xref_spisok(j).n = 1
   j = j + 1
  End If
 End If
Next i
Load Specificacia
Specificacia.Show
End Sub

вернее не осознанно

> Mamont
В данном случае, конечно, можно понять, что желательно предложить ... ну и так далее.Но вариант обсуждения, вопрос - ответ, получился очень наглядным, и мне захотелось обратить внимание участников форума на то (повторюсь), что точность - вежливость королей.
А проблема непродуманных, неточных формулировок на этом форуме, увы, не высосана из пальца...

> Сергей
TypeName(Var) - это функция, которая возвращает тип данных переменной (Integer,Byte,Long ...) а также тип объекта, как в твоем коде.
If TypeOf Is ObjectType - это оператор, который определяет тип объекта. То есть, как специализированный инструмент для работы с объектом, он в данном случае предпочтительней.
И еще один маленький совет - не стоит переопределять динамический массив в цикле. Достаточно сделать это всего два раза, перед циклом и после цикла на основании счетчика цикла.

> pavel
Сразу же согласен на все сто.
Поэтому и назвал свой код - вариантом. Один из вариантов решения, применимый для случая, когда быстродействие не является критическим фактором.
Что касается выражения "По объему, ваш код оптимальнее моего", то в данном случае интересно не количество строк кода, а то что выполняется меньше действий с объектами чертежа и, следовательно, меньше шансов запутаться или напороться на какой-нибудь глюк.
И последнее, у вы проводили замеры быстродействия, или это оценка на глазок?