Сообщество программистов Autodesk в СНГ

ADN Club => VBA => Тема начата: serzh82saratov от 06-02-2017, 19:33:01

Название: Выбранные объекты
Отправлено: serzh82saratov от 06-02-2017, 19:33:01

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

Название: Re: Выбранные объекты
Отправлено: Александр Ривилис от 06-02-2017, 19:49:29

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

Название: Re: Выбранные объекты
Отправлено: Александр Ривилис от 06-02-2017, 20:20:38

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

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

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

Название: Re: Выбранные объекты
Отправлено: serzh82saratov от 07-02-2017, 00:56:50

Цитата: Александр Ривилис от 06-02-2017, 19:49:29

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

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

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

Название: Re: Выбранные объекты
Отправлено: serzh82saratov от 07-02-2017, 01:02:33

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

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

Название: Re: Выбранные объекты
Отправлено: Александр Ривилис от 07-02-2017, 01:05:41

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