[olga87]

Здравствуйте уважаемые программисты!
Подскажите пожалуйста, как исправить код в файле "acaddoc.lsp" (autocad 2008) расположенный ниже, чтобы шрифт arial подставлялся в стиль с именем "стиль1" сразу при открытии Автокада, другими словами сразу при открытии Автокада в автоматически создаваемом новом чертеже (Чертеж1.dwg)? Сейчас код работает только после запуска команды "Файл -> Создать" новый.
Спасибо!

Код:

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

 (defun-q test ( )
(if (/= (tblsearch "STYLE" "стиль1") nil)
(command "_.style" "стиль1" "arial.ttf" "" "" "" "" "")
)
(princ))
(setq S::STARTUP (append S::STARTUP test))

[olga87]

Разобралась в чем причина почему не работает.
Дело в том, что при запуске Автокада запускается отдельное приложение (arx), которое создает этот текстовый стиль, и мой код срабатывает еще до запуска этого приложения.
Подскажите пожалуйста, как можно отложить выполнение моего кода на конец загрузки Автокада или установить порядок загрузки после этого arx?
Спасибо.

[Сергей812]

Вопрос в том - зачем для

Сообщение от Gnashkoon сразу при открытии Автокада в автоматически создаваемом новом чертеже (Чертеж1.dwg)?

писать какой то лисп? Создаете файл шаблона с нужным стилем, сохраняете как *.dwt. Затем идете в настройки-файлы-Параметры шаблонов-Шаблон по умолчанию для команды БСОЗДАТЬ и прописываете файл шаблона.

----- добавлено через ~10 мин. -----
А приложение arx - смотрите, например

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

В принципе можно и dws подключить - тогда совсем все просто становится )))