• На форуме с 26 февраля 2009г.
  • Сообщений: 134
  • Спасибо: 3

Тема: Курсив с подчеркиванием

Народ. Подскажите. Как програмно написать строку текста (однострочного или многострочного) курсивом с подчеркиванием. При этом уже имеющийся текст в чертеже должен оставаться неизменным.

  • Откуда: Украина / Киев
  • На форуме с 15 апреля 2005г.
  • Сообщений: 8,666
  • Спасибо: 158

Re: Курсив с подчеркиванием

Подчеркивание: %%uсам текст%%u
Курсив - задай угол наклона текста.

  • fixo
  • fixo
  • Активный участник
  • Откуда: СПб
  • На форуме с 7 февраля 2009г.
  • Сообщений: 869
  • Спасибо: 41

Re: Курсив с подчеркиванием

Немного не то...
Для мтекстов не покатит в зависимости
от шрифта текста

Пробуй через ASCII codes:

{\fVerdana|b0|i1|;\LПодчеркнутый тонкий курсив}
{\fVerdana|b1|i1;\LПодчеркнутый толстый курсив}

f - шрифт (его получишь из стиля текстовой строки)
b - bold (0 - нормальный, 1 - полужирный)
i - курсив (0 - нема курсива, 1 - курсив)
\L - линия подчеркивания

Типа:

textObj.TextString = "{\fVerdana|b0|i1|;\L" & textObj.TextString & "}"

Или точнее:

textObj.TextString = "{\f& myFont & "|b0|i1|;\L" & textObj.TextString & "}"

где переменную myFont можешь получить из стиля текта через
свойство fontFile удалив расширение вместе с точкой

~'J'~

  • fixo
  • fixo
  • Активный участник
  • Откуда: СПб
  • На форуме с 7 февраля 2009г.
  • Сообщений: 869
  • Спасибо: 41

Re: Курсив с подчеркиванием

Чтобы было понятней

Option Explicit
Sub UnderLineTxt()
Dim oStyle As AcadTextStyle
Dim oText As AcadText
Dim oMText As AcadMText

Dim oEnt As AcadEntity
Dim Pnt As Variant

ThisDrawing.Utility.GetEntity oEnt, Pnt, "Pick a Text or MText only :"
If Err Then Exit Sub
If TypeOf oEnt Is AcadMText Then
Set oMText = oEnt
Set oStyle = ThisDrawing.TextStyles(oMText.StyleName)
Dim myFont As String
myFont = oStyle.fontFile
myFont = Mid(myFont, 1, Len(myFont) - 4)
oMText.TextString = "{\f" & myFont & "|b0|i1|;\L" & oMText.TextString & "}"
ElseIf TypeOf oEnt Is AcadText Then
Set oText = oEnt
oText.TextString = "%%U" & oText.TextString
Else
MsgBox "You missed, wrong object type selected!"
Exit Sub
End If

End Sub

~'J'~

  • На форуме с 26 февраля 2009г.
  • Сообщений: 134
  • Спасибо: 3

Re: Курсив с подчеркиванием

Спасибо за ответ. Мне еще надо чтобы атрибуты курсивом с подчеркиванием писались, но я так понимаю принципы такиеже. Задать имя стиля и в поле TagString записать "%%U"Текст.

  • fixo
  • fixo
  • Активный участник
  • Откуда: СПб
  • На форуме с 7 февраля 2009г.
  • Сообщений: 869
  • Спасибо: 41

Re: Курсив с подчеркиванием

Думаю тоже так
:)
~'J'~