Лисп "шрифт" создания стиля текста одной командой

[andery]

Может кому полезно будет или пригодится
а то каждый раз создавать стиль или копировать буковки с других чертеже ИМХО чуть неправильно
Как загружать лисп можна прочесть тут:
http://eom.com.ua/index.php/topic,943.msg4265.html#msg4265
После загрузки лиспа "шрифт" , набираем в командной строке команду: шрифт
он запросит высоту шрифта, после ввода создаст два стиля текста с названием gost и gost(курсив) с высотой текста указаной Вами.
и шрифтом ISOCPEUR и isocpeui.ttf , если Вы используете другой шрифт - достаточно заменить в коде то что выделенно красным на название шрифта который Вы используете.
Тока имейте ввиду что курсивный шрифт это отдельный шрифт.

(defun c:шрифт (/ H tt ttk)
       (initget (+ 1 2 4))
     (setq H (getreal "Введите высоту шрифта: "))
     (setq tt (strcat "gost" (rtos H)))
   (setq ttk (strcat "gost" (rtos H) "(курсив)"))
   (command "_-style" tt "ISOCPEUR" H "1" "0" "_n" "_n")
   (command "_-style" ttk "isocpeui.ttf" H "1" "0" "_n" "_n")
);;end of defun

Если будут вопросы - задавайте.

[Сугор]

andery, Возможен и другой вариант, создаешь файл в котором создаешь все необходимые для тебя стили, а потом их перетаскиваешь в палитру инструментов, и в новых чертежах ипосльзуешь стиль из палитр. Или пользуешься анотативным стилем