• said
  • Восстановленный участник
  • На форуме с 5 марта 2004г.
  • Сообщений: 3
  • Спасибо: 0

Тема: Можно ли использовать переменные VB в SendCommands?

я начал програмировать на VB
приятно когда получается :)
но когда я хотел использовать переменную VB в SendCommand он не взял
помогите пожалуйста
заранее благодарен
Саид
код был такой
Sub SC()
    Dim returnPnt As Variant
     returnPnt = ThisDrawing.Utility.GetPoint(, "Enter a point: ")
    ThisDrawing.SendCommand "_text" & vbCr & returnPnt & vbCr & "60" & vbCr & 0 & vbCr & "returnPnt" & vbCr
End Sub
Выдает TYpe mismatch

  • bender
  • Восстановленный участник
  • На форуме с 5 мая 2003г.
  • Сообщений: 345
  • Спасибо: 0

Re: Можно ли использовать переменные VB в SendCommands?

Нет слов.

я начал програмировать на VB

Прежде чем программировать под АКАД нужно научиться в нем работать. А судя по вопросу АКАДа Вы не знаете. Иначе бы Вы знали, что метод SendCommand передает в командную строку последовательность символов, один в один. Что такое командная строка знаете? А Вы пытаетесь в ответ на указание начальной точки подсунуть команде VB-шную переменную, которую АКАД воспринимает буквально, т. е. как текст returnPnt.

Specify start point of text or [Justify/Style]: returnPnt

Так чего же Вы хотите?
Ваш код

Sub SC()
Dim returnPnt As Variant
returnPnt = ThisDrawing.Utility.GetPoint(, "Enter a point: ")
ThisDrawing.SendCommand "_text" & vbCr & returnPnt(0) & "," & returnPnt(1) & "," & returnPnt(2) & vbCr & "60" & vbCr & 0 & vbCr & "returnPnt" & vbCr & vbCr
или
ThisDrawing.SendCommand "_text" & vbCr & "(list " & returnPnt(0) & " " & returnPnt(1) & " " & returnPnt(2) & ")" & vbCr & "60" & vbCr & 0 & vbCr & "returnPnt" & vbCr & vbCr
End Sub