Информационный портал для профессионалов в области САПР
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Форумы CADUser → Программирование → VBA → ThisDrawing.SendCommand не могу указать координаты
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Приветствую!
Помогите пож-ста
надо чтоб все воспринималось одной строкой(как координата), а почему то после запятой значение Str(minExt(1))переносится т.е. воспринимается отдельной командой.
ThisDrawing.SendCommand Str(minExt(0)) & ", " & Str(minExt(1)) & vbCr
Помогите пож-ста. Голову сломал.
Замени ", " на "," (пробел убери - он воспринимается как нажатие ENTER, т.е. конец команды)
Заменил, но все равно происходит перенос.
Убрал STR - не переноосит, но и координаата пишется не верно все через запятые.
Помогите еще раз пож-ста!
Вот пример:
<code>Dim coord1(0 To 1) As String, coord2(0 To 1) As String
a = 20.5: b = 30.5
c = 200.5: d = 300.5
coord1(0) = Replace(a, ",", "."): coord2(0) = Replace(b, ",", ".")
coord1(1) = Replace(c, ",", "."): coord2(1) = Replace(d, ",", ".")
str4sendcomnd = "_line" & vbCr & coord1(0) & "," & coord1(1) & vbCr & coord2(0) & "," & coord2(1)
ThisDrawing.SendCommand (str4sendcomnd) & vbCr & vbCr
</code>
Спасибо большое!
Помогло!
А подскажите поож-ста через ThisDrawing.SendCommand можно задать количество копий для печати.
AddLine :idea: :idea: :idea:
Подскажите поож-ста через ThisDrawing.SendCommand можно задать количество копий для печати.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Форумы CADUser → Программирование → VBA → ThisDrawing.SendCommand не могу указать координаты
Форум работает на PunBB, при поддержке Informer Technologies, Inc
