[art_rrc]

Доброго времени суток. Только начинаю осваивать VBA, но уже успел сделать несколько полезных программ для себя. И тут поймал себя на мысли, что почти все они начинаются(грубо говоря) с метода SelectOnScreen. Т.е. я вызываю программу VBA, выбираю объекты, а затем она(программа) их обрабатывает. Эта последовательность не всегда удобна. Мне хотелось бы, чтоб можно было сначала выбрать объекты, а уже после этого вызвать приложение VBA, для обработки информации. Подскажите, какими методами и свойствами это можно реализовать и можно ли вообще? Ну или хотя бы в какую сторону смотреть... Заранее благодарен.

[Boxa]

Вот тут посмотрите: http://www.caduser.ru/forum/index.ph...448&MID=281435

[art_rrc]

Сообщение от Boxa Вот тут посмотрите: http://www.caduser.ru/forum/index.ph...448&MID=281435

28.02.2014, 20:39 Большое спасибо! Это то, что я искал! Буду разбираться..
Код:
Public Sub testPickfirst1()
Dim ss As AcadSelectionSet
Set ss = ThisDrawing.ActiveSelectionSet
Dim setname As String
setname = "newSet1"
Dim newset As AcadSelectionSet
With ThisDrawing.SelectionSets
Set newset = .Add(setname)
MsgBox (ss.Count)
ReDim ssobjs(0 To ss.Count - 1) As AcadEntity
Dim i
For i = 0 To ss.Count - 1
Set ssobjs(i) = ss.Item(i)
Next
newset.AddItems ssobjs
MsgBox newset.Count
.Item(setname).Delete
End With
End Sub

15.05.2014, 18:37
Как не пытался.. не получилось заставить код работать.. Выдает ошибку:
"Subscript out of range"
Ругается на строчку:
ReDim ssobjs(0 To ss.Count - 1) As AcadEntity

Хотя автор в теме, на которую дана ссылка, уверяет, что код рабочий.. Помогите пожалуйста разобраться в проблеме..

[art_rrc]

Помогите пожалуйста разобраться в проблеме..