[480725]

Не получается программно создать текстовый стиль со шрифтом Arial.ttf при помощи оператора Command. Может кто подскажет, как можно решить проблему?

[Profan]

А вот так:

Код:

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

 
(command "_-STYLE" "ARIAL" "arial.ttf" "" "" "" "" "")

[480725]

Спрасибо, работает.
Видно я расширение в имени файла не писал...
Но это не вся проблема. Даже таким способом не получается установить шрифт, в имени которого встречаются пробелы,
например "Times new roman.ttf".

[Profan]

Файл шрифта "Times New Roman" называется times.ttf. Посмотри шрифты в Панели управления Windows.

[480725]

Это иногда не проходит. Режим Кирмллицы может не установиться.

[480725]

Сообщение от 480725 Это иногда не проходит. Режим Кирмллицы может не установиться.

Медленно, но дошло.. Там на панели управления в папке шрифты каждому, в т.ч. многословному названию шрифта соответствует название файла без пробелов. Те шрифты, где поддержка кириллицы выделена отдельным словом CYR - имеют соответствующее имя файла без пробелов. Так что проблем не должно быть. Спасибо за четкий и быстрый ответ!

[Eximius]

А кроме как с помощью command сделать тоже самое никак нельзя?
Я пробовал вот так, но не работает:

Код:

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

(setq oldt (tblnext "style" "0")
	oldt (vl-remove (assoc 3 oldt) oldt)
	oldt (vl-remove (assoc 2 oldt) oldt)
	oldt (append oldt (list (cons 3 "TIMESI.TTF" )))
	oldt (append oldt (list (cons 2 "My_style" )))
  )
  (entmod oldt)

Замена entmod на entmakex не приносит результатов.
Или текстовыми стилями нужно управлять с помощью функций для словарей?

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

Если меняется группа 2, то надо использовать entmakex - тогда же создается новый текстовый стиль.
Но, мне кажется, проблема не в этом. Проблема в строке (tblnext "style" "0")
- это что за чудо и откуда взялось? Не проще ли брать, например, так:

Код:

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

(tblobjname "style" (getvar "textstyle"))

[Eximius]

Спасибо, Кулик Алексей aka kpblc.
Я почему-то думал, что tblsearch, tblnext и tblobjname возвращают одно и тоже, и имя текстового стиля по умолчанию "0", а оно "standard", теперь знаю, что это было неправильно

[Sta1917]

Подскажите, как сделать текстовый стиль с Arial.ttf курсивом (italic)? Лиспом или макросом.

[Alan]

Сообщение от Sta1917 Подскажите, как сделать текстовый стиль с Arial.ttf курсивом (italic)? Лиспом или макросом.

см. п.2
В нужном месте вставь угол.
Например:
Команда: _-STYLE
Имя текстового стиля или [?] <russ>:
Существующий стиль.
Укажите полное имя шрифта или имя файла (TTF или SHX) <RUSS14.shx>:
Задайте высоту текста или [Аннотативный] <0.0>:
Степень сжатия-растяжения <0.8>:
Угол наклона <0>: 15
Писать текст справа налево? [Да/Нет] <Нет>:
Создавать перевернутый текст? [Да/Нет] <Нет>:

Новый текстовый стиль: "russ".

[Profan]

Я тоже указываю угол. Но это не "курсив", что сразу заметно в диспетчере текстовых стилей. И именно для шрифтов TTF.

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

Может, что-то и поможет:
http://autolisp.ru/2013/01/27/ttf-textstyles/
http://autolisp.ru/2009/11/02/textstyle-creation/

[Vov.Ka]

для италика нужно указывать шрифт "ARIALI.TTF"