[gomer]

Доброе время суток!
Можно ли програмно через lisp задать файл шаблона в Автокад
Что-то типа (getvar 'basefile) в bricscad

[VVA]

В Автокаде можно через
1. (setenv "QnewTemplate" ...)
2. (vla-put-qnewtemplatefile (vla-Get-Files (vla-Get-Preferences (vlax-get-acad-object))) QnewPath)
В brics'е требует проверки (не имел с ним дела)

Код:

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

;;Установка шаблона мип.dwt на создание нового рисунка
(if (setq what (findfile "мип.dwt"))
  (progn
 ;_ (vla-put-qnewtemplatefile (vla-Get-Files (vla-Get-Preferences (vlax-get-acad-object))) QnewPath)
    (setenv "QnewTemplate" what)
  )
)

[gomer]

->VVA: Спасибо большое! Недосмотрел... Только свойство 'qnewtemplatefile' доступно в версии R16.1 и выше...