[art_rrc]

Доброго времени суток. Столкнулся со следующей проблемой. Имеется небольшой макрос, который манипулирует отрезками. И все вроде бы хорошо и корректно работает, но где-то при каждом 10м запуске он выдает ошибку - "Нарушение блокировки", причем если нажать debug и просто продолжить выполнение программы, то все корректно завершается. Ругается на строчки типа "lineObj.startPoint = intPoints", очень редко на "BlockZ.Delete". В общем по ходу программы и тот и другой объект многократно перезаписывается и иногда удаляется. Помогает даже примерно вот такой костыль:

Код:

[Выделить все]

On Error Resume Next
lineObj.startPoint = intPoints
If Err Then
Err.Clear
lineObj.startPoint = intPoints
End If

Но мне это кажется уж как-то слишком безграмотным.
А еще реже, выдает ошибку "Catastrophic failure", тут я вообще в замешательстве, но мне кажется, что она появлялась только после того когда я с Err.clear баловался.
Поиск по форумам и ресурсам типа https://msdn.microsoft.com/en-us/lib...=vs.85%29.aspx результатов не дал, так что может кто-то в личной практике сталкивался? И знает, что и зачем блокирует автокад?

[Кулик Алексей aka kpblc]

А код показать полностью?

[art_rrc]

Сообщение от Кулик Алексей aka kpblc А код показать полностью?

В силу различных обстоятельств, опубликовать его тут не могу. Если есть необходимость, могу выслать например по почте или в личные сообщения. Чуть позже постараюсь на базе текущего кода воспроизвести данную ошибку и тогда опубликую.

[Кулик Алексей aka kpblc]

Это надо не мне.

[doctorraz]

Код:

[Выделить все]

Sub МояПрограмма()
'Dim объявляем всякую фигню
On Error GoTo КосякСотрезком
    lineObj.startPoint = intPoints
'код 
'код 
'код
Exit Sub
КосякСотрезком:
    lineObj.startPoint = intPoints
    Resume Next
End Sub

или в обработчике проверку

Код:

[Выделить все]

Exit Sub
КосякСотрезком:
If Err.Number = Номер Ошибки Then
   чето делаем
End If

либо нумеруем строки кода и в обработчике используем Erl, и в зависимости от номера ошибки, номера строки где это произошло, ее обрабатываем.
Обработчик ставить когда программа готова и настроена, иначе сложно отлаживать код (обработчики ставить либо везде либо нигде(( ((

[Кулик Алексей aka kpblc]

Извини, но ты ничего не показал. insPoints где и как вычисляется / назначается - это для начала.

[art_rrc]

Если есть необходимость, могу выслать например по почте или в личные сообщения

Сообщение от Кулик Алексей aka kpblc Это надо не мне.

Алексей, разумеется, надо это мне. Просто не хочется быть навязчивым, поэтому так и написал. Если же у тебя все таки есть пара минут, которые ты готов на меня потратить, сбрось пожалуйста в ЛС адрес эл. почты - пришлю все. Также разумеется готов отблагодарить любыми средствами..)

Сообщение от doctorraz Обработчик ставить когда программа готова и настроена

На мой взгляд, ваш вариант не многим лучше того, что я описал в посте #1, просто вид сбоку. И как я уже писал, этот вариант считаю не подходящим. Обработчики ошибок нужны когда в них есть необходимость по логике программы, в моем же случае, программа может десятки раз работать нормально, а потом выдать вышеописанные ошибки, тут мне кажется проблема более глобальная... как будто остается какое-то "эхо" от предыдущих выполнений программы.
ps Извиняюсь за поздние ответы, очень не хватает времени. Чуть позже выложу тестовый вариант кода, пока пытаюсь хотя бы поймать из-за какого фрагмента вылазит ошибка.

[doctorraz]

конечно не подходит
но для предоставленной строчки кода самое то:-)
как задан вопрос, так и получен ответ.
тут телепатов нет.

[Кулик Алексей aka kpblc]

Сильно подозреваю, что надо просто прекращать удалять и потом восстанавливать объекты.

[art_rrc]

Сообщение от Кулик Алексей aka kpblc Сильно подозреваю, что надо просто прекращать удалять и потом восстанавливать объекты.

Да, так и есть. Отказ от "Ctrl+z" в модели при отладке программы сводит вероятность возникновения ошибки практически к нулю.
Еще мне кажется, что я что-то некорректно делаю при использовании GoTo (Наверное не очень корректно, например, "выпрыгивать" из оператора With и т.п.):

Код:

[Выделить все]

Sub zxc123()
Set SelSet1 = ThisDrawing.SelectionSets.Add("zxc123")
START:
SelSet1.SelectOnScreen 
If SelSet1.Count = 0 Then GoTo DavayDoSvidaniya
On Error Resume Next
nPnt = ThisDrawing.Utility.GetPoint(, vbCrLf & "Точка:")
If Err Then
    Err.Clear
    GoTo DavayDoSvidaniya
End If
On Error GoTo 0
With ThisDrawing
<ТЕКСТ ПРОГРАММЫ>
GoTo START
DavayDoSvidaniya:
SelSet1.Delete
End With
End Sub

Код:

[Выделить все]

'Попытка воспроизвести ошибку
Sub zxc123()
Dim SelSet1 As AcadSelectionSet
Dim nPnt  As Variant
Dim lineObj As AcadLine
Set SelSet1 = ThisDrawing.SelectionSets.Add("zxc123")
START:
SelSet1.SelectOnScreen 'FilterType, FilterData
If SelSet1.Count = 0 Then GoTo DavayDoSvidaniya
On Error Resume Next
nPnt = ThisDrawing.Utility.GetPoint(, vbCrLf & "Óêàæèòå öåíòð:")
If Err Then
    Err.Clear
    GoTo DavayDoSvidaniya
End If
On Error GoTo 0
With ThisDrawing
For Each Entry In SelSet1
    If Entry.ObjectName = "AcDbLine" Then
    Set lineObj = Entry
        lineObj.startPoint = nPnt

    End If
Next
GoTo START
DavayDoSvidaniya:
SelSet1.Delete
End With
End Sub

Подводя итог: при отказе от "Ctrl+z" при отладке и от "GoTo Start" полностью избавился от возникновения ошибок. Всем спасибо, кто откликнулся!

[doctorraz]

Offtop: использование GoTo кроме как для обработки ошибок, говорит о плохо продуманном алгоритме программы.
Кроме этого код становится практически неконтролируемым и неуправляемым. (несколько переходов по GoTo из циклов и получаем обезьяну с гранатой.

[Кулик Алексей aka kpblc]

Че-то я не до конца понял настолько странных конструкций... Может, так будет попроще:

Код:

[Выделить все]

Option Explicit

Public Sub test()
Dim sSSName As String
Dim SelSet As AcadSelectionSet
Dim pt As Variant
Dim ft(0) As Integer
Dim fd(0) As Variant
Dim entity As AcadEntity
Dim objLine As AcadLine

  sSSName = "qwerty123"
On Error GoTo lErrorGetPoint

  pt = ThisDrawing.Utility.GetPoint(, vbCr & "Укажите точку <Отмена> : ")
  On Error GoTo 0

  On Error Resume Next
  ThisDrawing.SelectionSets(sSSName).Delete
  ft(0) = 0: fd(0) = "LINE"
  Set SelSet = ThisDrawing.SelectionSets.Add(sSSName)
  SelSet.SelectOnScreen ft, fd
  For Each entity In SelSet
    Set objLine = entity
    objLine.StartPoint = pt
  Next

  ThisDrawing.Regen acActiveViewport
  
  Exit Sub
lErrorGetPoint:
  ThisDrawing.Utility.Prompt Chr(10) & Chr(13) & "Ошибка указания точки"
  Exit Sub

End Sub

----- добавлено через ~1 мин. -----
По хорошему надо было бы еще добавить обработку заблокированных слоев

[art_rrc]

Сообщение от doctorraz использование GoTo кроме как для обработки ошибок, говорит о плохо продуманном алгоритме программы

Смотрите, задача была в следующем (не из практических соображений, а для красоты демонстрации)... Нужно выполнить макрос неизвестное за ранее количество раз. Мне в голову пришел такой алгоритм.

Код:

[Выделить все]

Sub artSub()
START:
   <Текст программы с возможностью прервать ее выполнение>
goto START
endsub

Разве это выполнимо без GoTo? Другой вопрос, что у меня в виде "возможностью прервать ее выполнение" используется GoTo на метку перед EndSub, по всей видимости грамотнее использовать Exit Sub.
След. пост Алексея, кстати, наглядно демонстрирует вариативность подходов при решении задачи, между которыми я пока разницы не вижу. Но очевидно, что один из вариантов предпочтительнее (и что-то мне подсказывает, что это не мой ) . Итак, теперь подробнее:
У меня:

Код:

[Выделить все]

On Error Resume Next
nPnt = ThisDrawing.Utility.GetPoint(, vbCrLf & "Введите точку:")
If Err Then
    Err.Clear
    GoTo DD
End If
<Текст программы>
DD:
End Sub

У Алексея:

Код:

[Выделить все]

On Error GoTo lErrorGetPoint
pt = ThisDrawing.Utility.GetPoint(, vbCr & "Укажите точку <Отмена> : ")
On Error GoTo 0
<Текст программы>
lErrorGetPoint:
Exit Sub
End Sub

Я считаю, что записи идентичны. При возникновении ошибки, идем в конец программы и завершаем ее. Но если есть разница, поясните пожалуйста какая? (Неужели правильный ответ такой: "Никакой, но лучше использовать Exit Sub! Прими это как аксиому." )

[doctorraz]

Сообщение от art_rrc Разве это выполнимо без GoTo?

можно

Код:

[Выделить все]

Do While покаТак
'делаем, чтобы было неТак
Loop

----- добавлено через ~7 мин. -----

Сообщение от art_rrc Я считаю, что записи идентичны. При возникновении ошибки, идем в конец программы и завершаем ее. Но если есть разница, поясните пожалуйста какая? (Неужели правильный ответ такой: "Никакой, но лучше использовать Exit Sub! Прими это как аксиому." )

кроме Exit Sub,
может быть
Resume,
Resume НаМетку,
Resume Next
msgbox "Учи матчасть"

и прочие обработчики..... и они все будут выполнены если не произошло перехода на метку!!!! Но не факт, что они завершат процедуру...
спорить не надо, надо учить матчасть
PS перед меткой обязателен Exit Sub (иначе попадем неизвестно куда)

[art_rrc]

Сообщение от doctorraz спорить не надо, надо учить матчасть

Перечитал тему. Спора не заметил... И не хотел никого задеть
По поводу матчасти. Вопрос ведь был не в том, как избавиться от ошибок, а попытаться понять из-за чего вылазят конкретные экземпляры.
Вы правы, телепатов тут нет. Ну так пришлите контакт, вышлю код, протестируете у себя.

Сообщение от art_rrc И знает, что и зачем блокирует автокад?

[doctorraz]

Сообщение от art_rrc Неужели правильный ответ такой: "Никакой, но лучше использовать Exit Sub! Прими это как аксиому."

это не спор..

Сообщение от art_rrc По поводу матчасти. Вопрос ведь был не в том, как избавиться от ошибок, а попытаться понять из-за чего вылазят конкретные экземпляры. Вы правы, телепатов тут нет. Ну так пришлите контакт, вышлю код, протестируете у себя.

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

[Кулик Алексей aka kpblc]

On Error Goto 0 - это фактически очистка ошибки и продолжение работы в нормальном режиме, насколько я помню. Просто без прямого GoTo.
Выйти из процедуры / функции можно в любом месте, но я это делаю перед каждой меткой обработки ошибок: исхожу из принципа "если ошибка уже здесь, то дальше рыпаться смысла нет никакого". Возможно, ошибаюсь.
P.S. Учитывая пертурбации VBA, я бы на него забил и писал либо на VB.NET, либо на C#. Намного интереснее )))