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

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

Как задать несколько команд на кнопке.

Ответ
Поиск в этой теме
Непрочитано 20.05.2024, 14:30 #1
Как задать несколько команд на кнопке.
boretskiy.a
 
геодезист
 
Регистрация: 26.11.2010
Сообщений: 35

Здравствуйте!
У меня на кнопке задано несколько команд.
И при их вызове через кнопочное меню, они выполняются, а при повторном нажатии
на кнопку выходит вот такая ситуация.
Command: (command "-linetype" "l" "Канализация" "armigw.lin" "s" "Канализация"
"" (command "-layer" "_m" "ТРУБОПРОВОДИ" "_s" "ТРУБОПРОВОДИ" ""))(command
"_pline")

Yes or No, please.
; error: Function cancelled

Linetype "КАНАЛИЗАЦИЯ" is already loaded. Reload it? <Y>
Linetype "КАНАЛИЗАЦИЯ" reloaded.[/color][/color]

Enter an option [?/Create/Load/Set]:

И как сделать что бы после выполнения
возвращался в исходный слой который был перед запуском, или устанавливался нулевой.
Помогите если это возможно.
Просмотров: 1399
 
Непрочитано 21.05.2024, 08:52
| 1 #2
name02


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


Цитата:
а при повторном нажатии на кнопку выходит вот такая ситуация.
Это из-за того, что при повторном нажатии кнопки макрокоманда пытается загрузить тип линий. Автокад видит, что такой тип линий уже есть и спрашивает - нужно ли загружать его повторно?

Попробуй такой макрос прописать (целиком у себя я его не пробовал):

(if (not (tblsearch "LTYPE" "ACAD_ISO02W100"))(command "_-linetype" "_l" "ACAD_ISO02W100" "acad.lin" "_s" "ACAD_ISO02W100" "")(if (/= (getvar "CELTYPE") "ACAD_ISO02W100")(setvar "CELTYPE" "ACAD_ISO02W100")))(setq cl (getvar "CLAYER"))(command "_-layer" "_m" "ТРУБОПРОВОДИ" "")(command "_pline")(while (= (getvar "cmdactive") 1)(command pause))(setvar "CLAYER" cl)

В макросе замени имена типов линий и файла

Но с таким макросом в кнопке лучше уже на lisp написать и его на кнопку повесить
name02 вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Как задать несколько команд на кнопке.



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нагрузка от стены на плиту перекрытия. Как задать? (lira 9.6) nfdv Лира / Лира-САПР 7 06.11.2013 14:22
Как задать неразрезную балку в Лире? AlisaLynx Лира / Лира-САПР 4 01.02.2013 16:21
Законтурный двухузловой КЭ (как задать?) lil_engineer Лира / Лира-САПР 2 21.08.2012 09:05
Несколько вопросов по созданию динамических блоков и собственных команд (кнопок) ibragimr Динамические блоки 5 22.01.2012 00:57
Toolpalettes - несколько путей (ACAD 2005) Кулик Алексей aka kpblc AutoCAD 7 19.08.2005 17:17