[LexaI]

В чертеже есть некоторое количество мультивыносок с номерами элементов. Необходимо записать номера элементов содержащихся в мультивыноске в массив. Как это реализовать?

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

Определяешь критерии фильтра и вперед. В чем трудность?

[LexaI]

Не могу выделить все мультивыноски. Например такой код работает:

Sub Выбор()
Dim sset As AcadSelectionSet
Set sset = ThisDrawing.SelectionSets.Add("SS7")
Dim FilterType(0) As Integer
Dim FilterData(0) As Variant
FilterType(0) = 0
FilterData(0) = "MText"
sset.SelectOnScreen FilterType, FilterData

MsgBox sset.count
sset.Delete
End Sub

А если вместо "MText" поставить "MLeader", конструкция не работает.

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

Правильно, и не будет. Потому что нет объекта "MLEADER", есть "MULTILEADER" - читай документацию

[LexaI]

Благодарю, все работает!))