[evthisrel]

Доброго времени суток, уважаемые форумчане. Прикрепляю примерный код для более ясного понимания ситуации. При помощи цикла Do While...Loop я строю отрезки из точки. Так вот, хочу, чтобы при нажатии Esc построение отрезков завершалось. Как быть? Заранее, признателен за помощь.

Код:

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

Sub example()
Dim Line as AcadLine
    pp1(0) = 0: pp1(1) = 0: pp1(2) = 0:
        Do While Err
            pp2 = ThisDrawing.Utility.GetPoint(pp1, vbCrLf & "")
            Set Line = ThisDrawing.ModelSpace.AddLine(pp1, pp2)
        Loop
End Sub

[swell{d}]

Код:

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

Sub example()
    On Error GoTo ErrorHandler
...
Exit Sub
ErrorHandler:
    Select Case Err.Number
        Case -2147467259
            ThisDrawing.Utility.Prompt "Отменено пользователем"
            End
    End Select
    MsgBox Err.Number & " - " & Err.Description, vbCritical
    End
End Sub

Для акада возможно код ошибки будет другой

[evthisrel]

swell{d}, Проблема в том, что дело до Error и не доходит. Создание отрезков я заканчиваю, зайдя в редактор VBA и нажав Reset. Иначе я буду проставлять их вечно.
В своем коде под Err я подразумевал, что, если откажусь ставить точку, а, скажем, нажму Esc, то будет ошибка и все.
Кажется, с таким же успехом я мог бы сразу отправить в конец процедуры и все. Или я чего-то не понимаю?

Код:

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

Sub example()
Dim Line as AcadLine
    pp1(0) = 0: pp1(1) = 0: pp1(2) = 0:
 On Error GoTo ES
        Do While Err
            pp2 = ThisDrawing.Utility.GetPoint(pp1, vbCrLf & "")
            Set Line = ThisDrawing.ModelSpace.AddLine(pp1, pp2)
        Loop
ES:
End Sub

[swell{d}]

Код, который я выложил, у меня работает именно так, как вы хотите.

[allrather]

Сообщение от swell{d} Для акада возможно код ошибки будет другой

Меня устроил тот, что на скине.
С Вашей помощью. Спасибо огромное!

Вот черновик того, что я хотел сделать: http://autode.sk/1RvjfuO

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

Может быть, следует отслеживать значение системной переменной ERRNO?

[allrather]

Кулик Алексей aka kpblc, может быть. Но, в принципе, все хорошо работает, как посоветовал swell{d}, стоило только цикл заменить. Я не знаю почему, но с Do While..Loop ничего не выходило.
Я попробовал For...Next (В принципе, мне не нужна бесконечность точек, я знаю, что максимум, скажем, 10. Просто, изначально хотелось сделать все максимально гибко), и все отлично. Даже слишком просто.

Код:

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

Sub example()
Dim Line as AcadLine
    pp1(0) = 0: pp1(1) = 0: pp1(2) = 0:
        For i=1 To 10
            On Error GoTo ErrorHandler
            pp2 = ThisDrawing.Utility.GetPoint(pp1, vbCrLf & "")
            Set Line = ThisDrawing.ModelSpace.AddLine(pp1, pp2)
        Next
Exit sub
ErrorHandler:
End Sub

[Boxa]

Бесконечный цыкл он не только с помощью Do Loop делается,
по крайней мере, раньше так работало, а проверять сейчас желания нет.

Код:

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

for i=1 to 10 step 0
   'Ваш код
next

[allrather]

Сообщение от Boxa Бесконечный цыкл он не только с помощью Do Loop делается, по крайней мере, раньше так работало, а проверять сейчас желания нет.

А у меня желание есть.
Крутоо
Все работает. Спасибо, возьму себе на заметку!


Хотелось бы подытожить!
Вся путаница произошла именно из-за использования цикла Do while...Loop. Проблема в том, что он не прекращается при нажатии Esc, то есть не фиксирует ошибку. В принципе, я придумал кривой код, чтобы и Do while...Loop работал. Но лучше для бесконечных циклов использовать совет выше!
Всем спасибо.

[doctorraz]

Сообщение от allrather Я не знаю почему, но с Do While..Loop ничего не выходило.

Сообщение от allrather Вся путаница произошла именно из-за использования цикла Do while...Loop. Проблема в том, что он не прекращается при нажатии Esc, то есть не фиксирует ошибку. В принципе, я придумал кривой код, чтобы и Do while...Loop работал. Но лучше для бесконечных циклов использовать совет выше!

Не поэтому... просто ты пока не умеешь их готовить )))
========================
тот же вид только сбоку )))

Код:

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

Sub example()
Dim Line As AcadLine
Dim pp1(2)  As Double
    pp1(0) = 0: pp1(1) = 0: pp1(2) = 0:
On Error Resume Next
    Do While Err.Number = 0 'пока ноль выполняем
        pp2 = ThisDrawing.Utility.GetPoint(pp1, vbCrLf & "")
        Set Line = ThisDrawing.ModelSpace.AddLine(pp1, pp2)
    Loop
On Error GoTo 0' сбрасываем ошибку в ноль и включаем обработчик прерываний
'продолжаем еще, что то делать в программе
End Sub

или извратиться наоборот )))

Код:

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

Sub example()
Dim Line As AcadLine
Dim pp1(2)  As Double
    pp1(0) = 0: pp1(1) = 0: pp1(2) = 0:
On Error Resume Next
    Do Until Err.Number <> 0 'когда будет не ноль прекратим
        pp2 = ThisDrawing.Utility.GetPoint(pp1, vbCrLf & "")
        Set Line = ThisDrawing.ModelSpace.AddLine(pp1, pp2)
    Loop
On Error GoTo 0' сбрасываем ошибку в ноль и включаем обработчик прерываний
'продолжаем еще, что то делать в программе
End Sub

конец не только по Esc но и spase, Enter и ПКМ

[allrather]

doctorraz, Спасибо за ликбез Как же все просто!

Сообщение от doctorraz Не поэтому... просто ты пока не умеешь их готовить )))

Уже умею.