• Vildar
  • Активный участник
  • Откуда: Саратов
  • На форуме с 15 августа 2008г.
  • Сообщений: 574
  • Спасибо: 11

Тема: Ошибка повторного прохода по On Error GoTo.

Привет, чето я зачастил с вопросами :)))
Опять туплю.
Заморочка с обработкой ошибки при и вставке блока:

For Each objBlock In objSelSet
...
On Error GoTo NetBlocka
      Set objInsertBlock = ThisDrawing.ModelSpace.InsertBlock(objBlock.InsertionPoint, objBlock.Name & ".dwg", 1, 1, 1, objBlock.Rotation)
      On Error GoTo 0
...
NextBlock:
   Next
Exit Sub
NetBlocka:
      MsgBox "Блока " & objBlock.Name & " - в библиотеке нет. Пропускаю."
      GoTo NextBlock
End Sub

При повторной ошибке, не переходит по метке, а выдает сообщение File Error, т.е. файл не найден.
Я догадываюсь, что нужно очистить ошибку, но как?
Спасибо,

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: Ошибка повторного прохода по On Error GoTo.

Err.Clear не катит?

  • Vildar
  • Активный участник
  • Откуда: Саратов
  • На форуме с 15 августа 2008г.
  • Сообщений: 574
  • Спасибо: 11

Re: Ошибка повторного прохода по On Error GoTo.

Неа,
Если в метке прописать Resume Next в конце, то проходит, но мне нужно при ошибке перескочить к следущему блоку.
Может можно как проверить есть ли искомый файл в путях доступа? По типу обычного Dir.

  • Vildar
  • Активный участник
  • Откуда: Саратов
  • На форуме с 15 августа 2008г.
  • Сообщений: 574
  • Спасибо: 11

Re: Ошибка повторного прохода по On Error GoTo.

Неужели проверять каждый путь в AutoCAD.Preferences.Files.SupportPath ((
Зато можно избежать дубли файла.

  • brigval
  • brigval
  • Активный участник
  • Откуда: Подмосковье
  • На форуме с 11 декабря 2001г.
  • Сообщений: 2,316
  • Спасибо: 1

Re: Ошибка повторного прохода по On Error GoTo.

Vildar пишет:

мне нужно при ошибке перескочить к следущему блоку

Может быть, например, так?

On Error Resume Next
For Each objBlock In objSelSet
   ...
   Err.Clear
   Set objInsertBlock = ...
   If Err = 0 Then
      ...
   End if
Next