• На форуме с 26 февраля 2009г.
  • Сообщений: 134
  • Спасибо: 3

Тема: Как правильно выйти из GetEntity

Подскажите пожалуйста. Как корректно выходить из таких функций как GetEntity, GetPoint и т.п.
Например
On Error GoTo Line1
Do
  ThisDrawing.Utility.GetEntity returnObj, basePnt, "Выбрать блок: "
Loop ...
Line1:
Я это вот так делаю. Но проблема в том, что если таких конструций несколько, то генерируется ошибка.
Надо чтобы из цикла можно было выйти нажав Enter или ESC.

  • fixo
  • fixo
  • Активный участник
  • Откуда: СПб
  • На форуме с 7 февраля 2009г.
  • Сообщений: 869
  • Спасибо: 41

Re: Как правильно выйти из GetEntity

Один из вариантов от известного гуру

'' by Tony Tanzillo
'' request check "Break on Unhandled Errors" in  General options
Public Sub LoopExample()
Dim Msg As String
Msg = vbCrLf & "First point: "
Dim MyPoint As Variant
Do
On Error Resume Next
MyPoint = ThisDrawing.Utility.GetPoint(, Msg)
If Err Then
Err.Clear
Exit Do
End If
On Error GoTo 0

' < Process the entered point here > '
ThisDrawing.ModelSpace.AddCircle MyPoint, 10#
Msg = vbCrLf & "Next point or ENTER to exit: "
Loop
On Error GoTo 0

End Sub

~'J'~

  • На форуме с 26 февраля 2009г.
  • Сообщений: 134
  • Спасибо: 3

Re: Как правильно выйти из GetEntity

Спасибо, помогло.