| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Код с переменной, используемой в Автокаде для выбора листа

Код с переменной, используемой в Автокаде для выбора листа

Ответ
Поиск в этой теме
Непрочитано 21.09.2020, 07:17 #1
Код с переменной, используемой в Автокаде для выбора листа
olga87
 
Регистрация: 28.05.2007
Сообщений: 207

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

Код:
[Выделить все]
(defun c:LayoutInsert()
  (command "_.-LAYOUT" "_Template" "Листы.dwt" "А4")
  (alert "Новый лист вставлен.")
  (princ)
)
Просмотров: 1178
 
Непрочитано 21.09.2020, 08:01
#2
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


Делаешь не команду, а функцию с парой переменных. Как пример:
Код:
[Выделить все]
 (defun fun(template sheet)
(command "_.-layout" "_template" template sheet))
И вызов
Код:
[Выделить все]
 (fun "Листы.dwt" " a4")
Код не проверял.
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 21.09.2020, 09:03
#3
olga87


 
Регистрация: 28.05.2007
Сообщений: 207


При запуске выдает ошибку:
Код:
[Выделить все]
; ошибка: no function definition: FUN
olga87 вне форума  
 
Непрочитано 21.09.2020, 09:48
#4
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


А загрузить не пробовал?
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 21.09.2020, 09:49
#5
olga87


 
Регистрация: 28.05.2007
Сообщений: 207


лисп успешно загружен.
а при запуске ошибка
olga87 вне форума  
 
Непрочитано 21.09.2020, 09:59
#6
trir


 
Регистрация: 18.12.2010
Сообщений: 5,047


Код:
[Выделить все]
 (defun c:fun(template sheet)
(command "_.-layout" "_template" template sheet))
trir вне форума  
 
Автор темы   Непрочитано 21.09.2020, 10:25
#7
olga87


 
Регистрация: 28.05.2007
Сообщений: 207


ошибка осталась
olga87 вне форума  
 
Непрочитано 21.09.2020, 10:34
#8
trir


 
Регистрация: 18.12.2010
Сообщений: 5,047


надо делать диалог с пользователем
trir вне форума  
 
Непрочитано 21.09.2020, 10:53
#9
Boxa

КЖ; C#
 
Регистрация: 03.11.2005
Санкт-Петербург
Сообщений: 2,588


прошу прощения за вопрос, но зачем эти кнопки и лисп, есть же штатная возможность создать лист по шаблону, с рамкой и прочим наполнением, и делается это в 2 клика, что тут еще автоматизировать то?
Boxa вне форума  
 
Непрочитано 21.09.2020, 10:54
#10
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


trir, не самая лучшая идея пытаться сделать команду с параметрами. Мягко говоря, работает не всегда устойчиво
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Код с переменной, используемой в Автокаде для выбора листа

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как стандартизировать процесс вывода листа на печать в Autocad? [email protected] AutoCAD 17 17.08.2020 12:57
Как поменять цвет пространства вокруг листа в автокаде? dextron3 AutoCAD 18 13.12.2018 07:44
Срочная работа - перечертить из PDF 4 листа в автокаде с СПДС (выноски и т.п.) Om81 Поиск исполнителей 1 20.09.2016 06:33
Печать листа А4 в Автокаде cyril AutoCAD 16 09.04.2015 09:12
Помогите советом по расположению листа в Автокаде 2008 Melkiades AutoCAD 11 30.10.2008 00:46