• kb-nn
  • Восстановленный участник
  • На форуме с 4 июня 2004г.
  • Сообщений: 50
  • Спасибо: 0

Тема: Как преобразовать тип Variant в строку?

слушайте:
есть:
dim objLn as acadline
dim sp as variant
dim s as string
sp=objLn.StartPoint
хочу: записать начальную точку линии в строку
попытка:
s=str(sp)
результат: несоответствие типов

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

Re: Как преобразовать тип Variant в строку?

Непонятна задача "записать начальную точку линии в строку?".
Может ты хочешь записать координаты точки в строку?
s = objLn.StartPoint(0) & "x" & objLn.StartPoint(1) & "x" objLn.StartPoint(2)
x - разделитель
Если хочешь то можно с точностью до любого знака:
s = objLn.StartPoint(0)\1 & "x" &objLn.StartPoint(1)\1 & "x" objLn.StartPoint(2) \1
Выводятся только целые

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

Re: Как преобразовать тип Variant в строку?

s=CStr(sp) преобразует переменную sp в строковую переменную
CSng - в Single, CBol в boolean, CDat, CDbl, CInt и т.д.