Оформить код на лиспе как отдельный lsp-файл

Оформить код на лиспе как отдельный lsp-файл
Количество просмотров - 1124 (ссылка на эту тему)

Леона

Участник форумов

Сейчас отсутствует

Сообщение #1 : 23 Июня 2022 года, 12:04
(ссылка на это сообщение)

Есть код на лиспе, помогите, пожалуйста, оформить как отдельный lsp-файл
с определением команды, с возможностью загрузить в AutoCad через ЗАГПРИЛ.

(vla-put-activedimstyle
(vla-get-activedocument (vlax-get-acad-object))
(vla-item (vla-get-dimstyles (vla-get-activedocument (vlax-get-acad-object)))
(cdr (assoc 3 (entget (car (entsel)))))
) ;_ end of vla-item
) ;_ end of vla-put-ActiveDimStyle

Заранее спасибо.

Инженер ПГС (Пятигорск, Россия)

Антониони

Активный участник форумов

Сейчас отсутствует

Сообщение #2 : 07 Июля 2022 года, 14:31
(ссылка на это сообщение)

Попробуйте так:
(defun C:chachacha ( / )
(vl-load-com)
(vla-put-activedimstyle
(vla-get-activedocument (vlax-get-acad-object))
(vla-item (vla-get-dimstyles (vla-get-activedocument (vlax-get-acad-object)))
(cdr (assoc 3 (entget (car (entsel)))))
) ;_ end of vla-item
) ;_ end of vla-put-ActiveDimStyle
);_ end of defun

Где chachacha команда вызова

Проектировщик КИП (Самара, Россия)

Леона

Участник форумов

Сейчас отсутствует

Сообщение #3 : 07 Июля 2022 года, 15:12
(ссылка на это сообщение)

Спасибо, Антониони, попробую...

Инженер ПГС (Пятигорск, Россия)

doctorRaz

Куратор подраздела "AutoCAD, AutoCAD LT и СПДС модуль Autodesk"

Сейчас отсутствует

Сообщение #4 : 07 Июля 2022 года, 15:51
(ссылка на это сообщение)

Цитата: Антониони от 07 Июля 2022 года, 14:31

(vl-load-com)

вынести из команды, в начало лиспа, что бы подгружало ActiveX один раз при загрузке лисп файла

Конструктор (Волгоград, Россия)

Леона

Участник форумов

Сейчас отсутствует

Сообщение #5 : 07 Июля 2022 года, 19:13
(ссылка на это сообщение)

Как-то так?
(vl-load-com)
(defun C:chachacha ( / )
(vla-put-activedimstyle
(vla-get-activedocument (vlax-get-acad-object))
(vla-item (vla-get-dimstyles (vla-get-activedocument (vlax-get-acad-object)))
(cdr (assoc 3 (entget (car (entsel)))))
) ;_ end of vla-item
) ;_ end of vla-put-ActiveDimStyle
);_ end of defun

Инженер ПГС (Пятигорск, Россия)

doctorRaz

Куратор подраздела "AutoCAD, AutoCAD LT и СПДС модуль Autodesk"

Сейчас отсутствует

Сообщение #6 : 07 Июля 2022 года, 19:45
(ссылка на это сообщение)

Цитата: Леона от 07 Июля 2022 года, 19:13

Как-то так?

Да, если надо в этот жэж файл можно еще команд напихать

Конструктор (Волгоград, Россия)

Леона

Участник форумов

Сейчас отсутствует

Сообщение #7 : 07 Июля 2022 года, 20:26
(ссылка на это сообщение)

doctorRaz, спасибо, а что ещё можно напихать, например. А верхний лисп что-ли не будет загружаться автоматически, если добавить в автозагрузку через ЗАГПРИЛ?

Инженер ПГС (Пятигорск, Россия)

doctorRaz

Куратор подраздела "AutoCAD, AutoCAD LT и СПДС модуль Autodesk"

Сейчас отсутствует

Сообщение #8 : 07 Июля 2022 года, 21:04
(ссылка на это сообщение)

Цитата: Леона от 07 Июля 2022 года, 20:26

А верхний лисп что-ли не будет загружаться автоматически, если добавить в автозагрузку через ЗАГПРИЛ?

это один лисп он выполняется последовательно, не выполняется, то что обернуто в defun C
например
(defun c:алл()
(load "DwgRuLispLib\\String\\_dwgru-string-some-part.lsp")
(load "DwgRuLispLib\\String\\dwgru-string-to-list.lsp")
(load "Стиль текста\\change text styles (cts) 2.0.lsp")
(load "bgtools\\bgtools 3.12.lsp")
(load "SuperFlatten 2.0b beta VVA\\SuperFlatten 2.0b beta VVA.lsp")
(load "LeeMac\\LayerDirectorV1-9.lsp")
(load "LeeMac\\MaskV1-5")
(load "drRAZ\\glss.lsp")
(load "drRAZ\\DwgQuickCopy.lsp")
(load "drRAZ\\DwgQuickCopy2.lsp")
(load "drRAZ\\Date_to_string.lsp")
(load "drRAZ\\quickdraw.LSP")
(load "drRAZ\\SPDS.LSP")
(load "drRAZ\\order.lsp")
)
не выполнится при загрузке (только по команде алл), но если в конец кода добавить
(c:алл)
то выполнится при загрузке и по команде
это подгрузка других лиспов
т.е. добавив в автозагрузку один лисп, можно подгружать им другие либо вызывать их как команды
также лиспом можно подгружать сборки (dll библиотеки)
================
если назвать автозагружаемый лисп com.lsp
то такой конструкцией его можно перезагрузить
(defun c:зз ()
(load "com")
(prompt "\nПерезагрузил COM! ")
(princ)
)
============
в отличие от dll лисп можно отредактировать и перезагрузить не перезапуская када
помогает при отладке
============
кроме этого лиспом можно переопределять алиасы команд када, вместо acad.pgp (правда не все)
===========
PS тут на форуме есть специальная тема по кадам... велком

Конструктор (Волгоград, Россия)

Леона

Участник форумов

Сейчас отсутствует

Сообщение #9 : 08 Июля 2022 года, 09:43
(ссылка на это сообщение)

doctorRaz, спасибо за подробный ответ, лёгкой работы...

Инженер ПГС (Пятигорск, Россия)

Страниц: [1] Вверх

ВЕРСИЯ ДЛЯ ПЕЧАТИ

www.proektant.org > ПРОГРАММЫ ДЛЯ ПРОЕКТИРОВАНИЯ > Другие программы >

Контактные данные\| Партнёрская программа \| Подробная статистика
Настройка форумов © «Проектант» \| Конфиденциальность данных Powered by SMF 1.1.23 \| SMF © 2017, Simple Machines