| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > VBA. Почему код начинает работать только со второго запуска?

VBA. Почему код начинает работать только со второго запуска?

Ответ
Поиск в этой теме
Непрочитано 31.05.2018, 10:38 #1
VBA. Почему код начинает работать только со второго запуска?
sychp84
 
Регистрация: 07.12.2017
Сообщений: 12

Добрый день. Вопрос в названии темы. Работа кода:либо вводим имя блока (пропуск выделения на экране), либо (пропуск ввода) выделение блоков на экране. Результат- количество блоков.

Код:
[Выделить все]
Sub Select_var()
Dim name As String
Dim i As Integer
On Error Resume Next
'создание набора SS вставок блоков
ThisDrawing.SelectionSets.Item("ss").Delete
Set SS = ThisDrawing.SelectionSets.Add("ss")
'либо введение имени блока
name = ThisDrawing.Utility.GetReal("Enter a name:")
If Err = 0 Then
'добавление в набор SS вставок блоков по введенному имени
   Dim gpCode(0 To 1) As Integer
   Dim dataValue(0 To 1) As Variant
   gpCode(0) = 0: dataValue(0) = "INSERT"
   gpCode(1) = 2: dataValue(1) = name
   SS.Select acSelectionSetAll, , , gpCode, dataValue
GoTo Here:
End If
'либо выбор мышью
SS.SelectOnScreen
Here:
     If SS.Count = 0 Then
       MsgBox "No"
      Else
       MsgBox SS.Count
     End If
End Sub
Autocad2013Eng, Windows7 Ultimate x86.

----- добавлено через ~4 ч. -----
Решение: перед name=... Err.Clear. Вопрос закрыт.

Вложения
Тип файла: dvb sev.dvb (12.5 Кб, 4 просмотров)
Тип файла: dwg
DWG 2013
блок.dwg (36.1 Кб, 5 просмотров)
Тип файла: lsp sev.lsp (76 байт, 5 просмотров)

Просмотров: 2605
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > VBA. Почему код начинает работать только со второго запуска?

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Коэффициент запаса прочности - почему он есть только для некоторых материалов? msv_mnv Деревянные конструкции 3 25.12.2016 15:51
Почему "балка" из уголка считается только на предельную гибкость в SCAD? Emc Металлические конструкции 7 20.08.2016 12:38
Почему во многих типовых и не только конструкциях КМ баз колонн игнорируется минимальное расстояние между анкерами? Португалец Конструкции зданий и сооружений 11 19.06.2016 15:56
Почему выполненяется только 1 sql запрос к ADODB без использования базы данных по умолчанию? Дима_ Программирование 8 26.02.2009 08:50
Почему field возвращает координаты объекта только в мировой системе координат? stumpel AutoCAD 7 20.02.2009 12:43