Выбранные объекты

[serzh82saratov]

Как узнать есть ли выбранные объекты с помощью окна быстрого выбора, или иными действиями пользователя.

[Александр Ривилис]

Лучшее из того, что есть в VBA это SelectSet.Select acSelectionSetPrevious

[Александр Ривилис]

А это получение набора предварительного выбора:

Код - Visual Basic [Выбрать]

1. Sub GetPickFirst()
2.     Dim pickFirstSS As AcadSelectionSet
3.     Set pickFirstSS = ThisDrawing.PickfirstSelectionSet
4.     MsgBox CStr(pickFirstSS.Count)
5. End Sub

[serzh82saratov]

Лучшее из того, что есть в VBA это SelectSet.Select acSelectionSetPrevious

Код: [Выделить]

ACAD.ActiveDocument.ActiveSelectionSet.Select(3)Так просто убирает подсветку с выбранных объектов.

[serzh82saratov]

Код: [Выделить]

ACAD.ActiveDocument.PickfirstSelectionSet.CountСпасибо Вам большое, вот то что было нужно!

[Александр Ривилис]

serzh82saratov,
Значит отметь Решение, как написано у меня в подписи.