[Gretech89]

Всем доброго времени суток!

Помогите доработать фрагмент кода. Необходимо к стилю МТекста добавить ещё дополнительно подчеркивание и курсив (либо угол наклона 19°).

Код:

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

    (setq GP (getpoint) ; точка вставки
         GS (getstring "\nString : ") ; текст
	 )
(entmakex (list
(cons 0 "MTEXT")
(cons 100 "AcDbEntity")
(cons 100 "AcDbMText")
(cons 7 (getvar 'Textstyle))
(cons 71 8) ; выравнивание (вниз по центру)
(cons 40 200) ; высота текста
(cons 10 GP)
(cons 11 (getvar 'UCSXDIR))
(cons 1 GS)))

[koMon]

Код:

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

 
(setq  GS (strcat "{\\Q19;\\L" (getstring "\nString : ") "}")

[Кулик Алексей aka kpblc]

Где-то был перечень всех кодов форматирования. Я по-быстрому нашел только https://www.cadforum.cz/en/text-form...bjects-tip8640

[Gretech89]

koMon, интересное решение, спасибо. Я только код \Q19 заменил на \I. Так текст как-то более плавным что ли выглядит (прицепил пример).

----- добавлено через ~2 мин. -----

Сообщение от Кулик Алексей aka kpblc Где-то был перечень всех кодов форматирования. Я по-быстрому нашел только https://www.cadforum.cz/en/text-form...bjects-tip8640

Благодарю, Алексей.

[koMon]

Gretech89,
основные