Аналог быстрого выбора

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

Думаю что нет. Это если пользователь предварительно выбрал "зелёные рамки". В противном случае ты должен выбрать их сам программно, т.е. через метод Select, с правильным фильтром.

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

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

1. gpCode(0) = 62
2. dataValue(0) = 3 ' со смартфона не могу посмотреть номер зелёного цвета
3.    

   

[serzh82saratov]

С фильтром то и проблема, примеры не понятны. Сейчас выполняю _qselect, после в окошке выбираются нужные строки в контролах, жмётся Ок. Короче пока костыль.

[serzh82saratov]

gpCode(0) = 62

62, это где посмотреть?

dataValue(0) = 4 ' со смартфона не могу посмотреть номер зелёного цвета

И это тоже?
[, Point1] [, Point2] - И не ясно что за точки мне нужны.

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

serzh82saratov
Используй в примере кода, который я давал раньше тот фильтр, который я дал сейчас.

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

[, Point1] [, Point2] - И не ясно что за точки мне нужны.

Точки передавать не нужно. Вместо них в VBA просто запятые. 62 - это DXF-код цвета, 3 - это зелёный цвет.

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

Коды DXF-групп можешь посмотреть здесь: http://www.autodesk.com/techpubs/autocad/acad2000/dxf/group_codes_in_numerical_order_dxf_01.htm

[serzh82saratov]

Спасибо.

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

Set ssetObj = ThisDrawing.SelectionSets.Add("SSET")А тут мне нужно что то другое, если надо применить ко всему чертежу?

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

А тут мне нужно что то другое, если надо применить ко всему чертежу?

Не это определяет ко всему чертежу или нет. Это определяется mode (5 - выбор со всего чертежа)

[serzh82saratov]

Чем ближе к решению, тем непонятнее ошибки. Ругается на FilterType.

Error:  0x80070057 - Параметр задан неверно.
Source:      AutoCAD
Description:   Недопустимый аргумент FilterType в Select

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

ACAD.ActiveDocument.ActiveSelectionSet.Select(5, , , 62, 3)

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

В таком виде 62 и 3 задавать нельзя. Это же массивы "завернутые" в Variant, а не просто целые числа.

[serzh82saratov]

Это же массивы "завернутые" в Variant

Блин, не сталкивался с таким. В виде массива пробовал. А не просвятите что значит - "завернутые" в Variant.

[serzh82saratov]

Если есть что к этому добавить - https://msdn.microsoft.com/ru-ru/library/office/gg251448.aspx.

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

На VBA этот код выглядит так:

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

1. Sub Select_Green()
2.     On Error Resume Next
3.     Set ss = ThisDrawing.ActiveSelectionSet
4.     Dim gpCode(0) As Integer
5.     Dim dataValue(0) As Variant
6.     gpCode(0) = 62
7.     dataValue(0) = 3
8.     Dim groupCode As Variant, dataCode As Variant
9.     groupCode = gpCode
10.     dataCode = dataValue
11.     ss.Select acSelectionSetAll, , , groupCode, dataCode
12.     MsgBox "Выбрано зелёных объектов: " & CStr(ss.Count)
13. End Sub

[Пашин Евгений]

На VBA этот код выглядит так:

Увы, Александр Наумович, не совсем так. Можно чуток вмешаюсь? Почему-то Ваш код не срабатывал как надо. Но сейчас всё сработало!!! Приношу извинения.

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

1. Public Sub Select_Green()
2.     Dim ss As AcadSelectionSet
3.     ss.Clear ' Почистим выборку
4.    On Error Resume Next
5.     Set ss = ThisDrawing.ActiveSelectionSet
6.     Dim gpCode(0) As Integer
7.     Dim dataValue(0) As Variant
8.     gpCode(0) = 62 ' Фильтр по цвету
9.    dataValue(0) = 3 ' Зелёный цвет
10.    ss.Select acSelectionSetAll, , , gpCode, dataValue
11.     MsgBox "Выбрано зелёных объектов: " & CStr(ss.Count)
12. End Sub

Так точно сработает как надо. Так тоже работает, просто меньше дополнительных параметров.

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

1. ss.Delete ' Можно поставить в конце, чтобы не висело выполнение процедуры