[olga87]

Здравствуйте Уважаемые программисты!
Есть код ниже (лисп, Autocad 2020), который из шаблона dwt вставляет в текущий чертеж лист, например, А4. Таких листов разных форматов в шаблоне много. И для вставки каждого формата листа нужен отдельный лисп.
Такой лисп используется в Автокаде в инструментальных палитрах, т.е. создается кнопка с командой "^C^C(if (= C:LayoutInsert nil) (load "LayoutInsert"));LayoutInsert;".
Подскажите пожалуйста, как изменить этот код, чтобы можно было одним лиспом сделать разные кнопки на палитре, со вставкой разных форматов.
Заранее спасибо!

Код:

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

(defun c:LayoutInsert()
  (command "_.-LAYOUT" "_Template" "Листы.dwt" "А4")
  (alert "Новый лист вставлен.")
  (princ)
)

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

Делаешь не команду, а функцию с парой переменных. Как пример:

Код:

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

 (defun fun(template sheet)
(command "_.-layout" "_template" template sheet))

И вызов

Код:

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

 (fun "Листы.dwt" " a4")

Код не проверял.

[olga87]

При запуске выдает ошибку:

Код:

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

; ошибка: no function definition: FUN

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

А загрузить не пробовал?

[olga87]

лисп успешно загружен.
а при запуске ошибка

[trir]

Код:

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

 (defun c:fun(template sheet)
(command "_.-layout" "_template" template sheet))

[olga87]

ошибка осталась

[trir]

надо делать диалог с пользователем

[Boxa]

прошу прощения за вопрос, но зачем эти кнопки и лисп, есть же штатная возможность создать лист по шаблону, с рамкой и прочим наполнением, и делается это в 2 клика, что тут еще автоматизировать то?

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

trir, не самая лучшая идея пытаться сделать команду с параметрами. Мягко говоря, работает не всегда устойчиво