Создание набора выбранных объектов
Здравствуйте Уважаемые специалисты NanoCAD!
Подскажите пожалуйста, почему в строке "For I = 0 To acadDoc.SelectionSets.Count - 1" ошибка? (vba excel)
Dim acadApp As nanoCAD.Application
Dim acadDoc As nanoCAD.Document
On Error Resume Next
Set acadApp = GetObject(, "nanoCAD.Application")
On Error GoTo 0
acadApp.Visible = True
Dim objSelectionSet As SelectionSet
Dim EntGroup(0 To 0) As Integer
Dim EntData(0 To 0) As Variant
EntGroup(0) = 0
EntData(0) = "INSERT"
For I = 0 To acadDoc.SelectionSets.Count - 1
If acadDoc.SelectionSets.Item(I).Name = "TempSSet" Then acadDoc.SelectionSets("TempSSet").DELETE
Next I
Set objSelectionSet = acadDoc.SelectionSets.Add("TempSSet")
objSelectionSet.SelectOnScreen EntGroup, EntData
Как в nanoCAD создать набор выбранных объектов?
Ответы
-
это посмотри
0 -
Не получается пока!
0 -
что конкретно не получается?
выше 100% рабочий код дал
0 -
Ошибка (Nothing) на строке "Set objSelCol = ThisDrawing.SelectionSets" и "Set objSelSet = ThisDrawing.SelectionSets.Add(strName)"
0 -
Стесняюсь спросить ты файлы в эксель импортировала? Или частями вставила?
Это
Public ThisDrawing As Object
Должно быть вне функции
0 -
так пробуй
0 -
Ничего не происходит- ни запросов, ни ошибок
0 -
дык в отладчике пробуй F8 по шагам, пока не поймешь как это работает
тактто со справки надо начинать
там даже примеры есть
0 -
хех, движок форума не дает *.chm загрузить((((
0 -
Спасибо, разобралась, выбор идет.
On Error GoTo 0
Set app = GetObject(, "nanoCAD.Application")
app.Visible = True
Set ThisDrawing = app.ActiveDocument'Выбрать блоки на чертеже:
On Error Resume Next
Set ssetObj = ThisDrawing.SelectionSets.Item("BlockSSET")
If Err Then Set ssetObj = ThisDrawing.SelectionSets.Add("BlockSSET")
On Error GoTo 0
ssetObj.Clear'Настройка фильтра:
gpCode(0) = 0
dataValue(0) = "Insert"'Выбранные блоки:
ssetObj.SelectOnScreen gpCode, dataValueIf ssetObj.Count > 0 Then
...Дополнительно спасибо за справки.
1
Разделы
- Все разделы
- 37 Общие вопросы
- 25 Работа nanoCAD в ОС Linux
- 274 Платформа nanoCAD
- 7 nanoCAD GeoniCS
- 64 nanoCAD BIM Строительство
- 3 nanoCAD Механика PRO
- 44 nanoCAD BIM Электро
- 10 nanoCAD BIM Вентиляция
- 6 nanoCAD BIM ВК
- nanoCAD BIM Отопление
- 6 nanoCAD BIM СКС
- 33 nanoCAD BIM ОПС
- 2 nanoCAD Стройплощадка
- 2 nanoCAD Металлоконструкции
- 1 nanoCAD Конструкции PS
- 2 TDMS Фарватер
- Облака точек
- NSR Specification
- Учебным заведениям и учащимся