текст на чертеже из VBS

[tovarischX]

поможите плиз
нужно из скрипта на VB вставить в чертёж текст
не получается никак
официальная тех поддержка послала сюда

колдовство начинается со слов
KompasObject::ActiveDocument2D
и
Doc2d.ksText 0, 0, 0, 5, 1, 0, "123"

[tovarischX]

ну вопрос решился сам собой
теперь надо сделать выравнивание текста по центру
doc.ksText 115, 0, 0, 5, 1, 0, (m-1)*15  & "@1"

как выровнять по центру этот текст  ?

[333]

см
ksDocument2D::ksSetTextAlign
ksDocument2D::ksSetTextLineAlign