[DonVik]

Заранее прошу прощения если такая тема была.
Вопрос вот в чем: Я кликаю по обьекту MTEXT и меняю его текст:

Код:

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

Sub b()
 Dim a As AcadMText
 Dim pp(0 To 2) As Double
 ThisDrawing.Utility.GetEntity a, pp
 a.TextString = "qwe"
End Sub

Это не сложно.

Вопрос в том что мне нужно чтоб q было высотой 5 пунктов а we высотой 4 пункта, так вот как мне это сделать?

Вручную я это настраиваю в панели Tеxt Formatting а как это сделать программно?

И попутный вопрос - если мне нужно вставить греческий символ Делта, как мне лучше в программе указать его код или еще как нибудь?

Заранее спасибо

[Дима_]

А ты посмотри что вернет textstring на твою "разновысотную" QWE -> "Q{\\H0.8x;we}" 0.8 это коэффицент от "основной высоты".

[DonVik]

Дима_, я так и сделал, и эту Q{\\H0.8x;we} билиберду записать попытался, но оно мне как раз это записывает текстом вместо
Qwe пишет Q{\\H0.8x;we}

[Дима_]

Это наверное привет от VBA - я его не знаю, на лиспе :

Код:

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

(entmod (subst (cons 1 "Q{\\H0.8x;we}" ) (assoc 1 (entget (entlast))) 
(entget (entlast))))

работает

оно-же как и

Код:

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

(vla-put-textstring (vlax-ename->vla-object (entlast)) "Q{\\H0.8x;we}")

[VVA]

В лиспе символ слэша (\) нужно записывать двойным (\\). Возможно, в VBA этого делать не нужно. Попробуй записать как Q{\H0.8x;we}

[Олег (jr.)]

Сообщение от DonVik И попутный вопрос - если мне нужно вставить греческий символ Делта, как мне лучше в программе указать его код или еще как нибудь?

Еще несколько примеров:

Код:

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

Sub b()
 Dim a As AcadMText
 Dim pp(0 To 2) As Double
 ThisDrawing.Utility.GetEntity a, pp
 If TypeOf a Is AcadMText Then
 ''надстрочный текст
' a.TextString = "{\A1;Объем = 123.4м\H1.5;\S3^;}"
' ''подстрочный текст
' a.TextString = "{\A1;Q\H1.5;\S^общ.;}"
 '' дельта
  a.TextString = "\U+0394"
 End If
End Sub

Смотри другие символы в рисунке

~'J'~

[DonVik]

Все ребята спасибо разобрался.
Мне как раз не хватало проверки TypeOf a Is AcadMText и я нарывался на AcadText, конечно там такое не страбатывало.
Когда это понял стал удалять эти тексты, а на их месте создавал MText.