[Викторыч]

1)Ситуация следующая: когда в переменную типа string записываю координату точки

Dim p As Variant
p = ThisDrawing.Utility.GetPoint(, "Enter point")
s = Str(p(0))

то разделитель между целой и дробной частью - точка
А когда эту же переменную p(0) отправляю в sendcommand, то разделитель - запятая.
Подскажите, плз, есть ли какие-нибудь настройки, чтобы изменить запятую на точку в sendcommand?

2)

Код:

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

On Error GoTo 2
source1 = ""
source2 = ""
Do
    ThisDrawing.SendCommand "_-boundary "
    p1 = ThisDrawing.Utility.GetPoint
    For i = 0 To 1
        source1 = Str(p1(i))
        source1 = LTrim(source1)
        source2 = source2 & "," & source1
    Next i
    source2 = Right(source2, Len(source2) - 1)
    ThisDrawing.SendCommand source2 & " "
    source2 = ""
Loop
2: ThisDrawing.SendCommand Chr(3)

Когда на запрос getpoint нажимаю пробел, то выдается ошибка. Подскажите, плз, почему on error goto 2 не срабатывает?

[gomer]

Сначала точку выбери, а потом границу рисуй

[dvim]

На крайняк есть функция Replace ею можно менять точку на запятую и наоборот.
советую не мучатся а
ThisDrawing.SendCommand Replace ( Chr(3) , "," , ".")

[Викторыч]

Спасибо, dvim! Это проще.
А вот по второму вопросу: указываю точку перед рисованием границы, после - всё равно: нажимаю пробел и ошибка выдаётся. Может есть у кого идеи как это исправить?