beliit.com
Форумы Проектант
ПОИСК ПО ФОРУМАМ
перед созданием новых тем используйте поиск,
возможно ответ на Ваш вопрос уже есть на форумах

Расширенный поиск
 
  • Всего пользователей - 20382
  • Всего тем - 29862
  • Всего сообщений - 281153
Страниц: [1]   Вниз
ВЕРСИЯ ДЛЯ ПЕЧАТИ

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

Количество просмотров - 375
(ссылка на эту тему)
Леона
Участник форумов


Сейчас отсутствует Сейчас отсутствует
 
Сообщение #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
(ссылка на это сообщение)

(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
(ссылка на это сообщение)

Как-то так?

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

Конструктор (Волгоград, Россия)
Леона
Участник форумов


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

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

Мастерская СПДС
Сейчас отсутствует Сейчас отсутствует
 
Сообщение #8 : 07 Июля 2022 года, 21:04
(ссылка на это сообщение)

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

это один лисп он выполняется последовательно, не выполняется, то что обернуто в 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]   Вверх
ВЕРСИЯ ДЛЯ ПЕЧАТИ



Сейчас Вы - Гость на форумах «Проектант». Гости не могут писать сообщения и создавать новые темы.
Преодолейте несложную формальность - зарегистрируйтесь! И у Вас появится много больше возможностей на форумах «Проектант».


Здравствуйте, Гость
Сейчас Вы присутствуете на форумах в статусе Гостя.
Для начала общения надо зарегистрироваться или пройти авторизацию:
Вам не пришло письмо с кодом активации?
 
 
  (забыли пароль?)  
   

если Вы не зарегистрированы, то
пройдите регистрацию
Создать тему
Последние сообщения на форуме «Программы для проектирования»
автор: Doctor Gauss
Вчера в 15:45

24 Сентября 2022 года, 07:20

автор: doctorRaz
16 Сентября 2022 года, 21:44

автор: Георгий633
16 Сентября 2022 года, 21:32

автор: Ksarrik
14 Сентября 2022 года, 20:01

27 Августа 2022 года, 02:43

автор: Антониони
26 Августа 2022 года, 20:38

автор: Kalk pro
23 Августа 2022 года, 11:26

автор: Ne-rylut
22 Августа 2022 года, 11:03

автор: Леона
08 Июля 2022 года, 09:43

07 Июля 2022 года, 16:46

автор: Антониони
05 Июля 2022 года, 14:18

13 Июня 2022 года, 17:31

автор: Госсть
11 Июня 2022 года, 20:19

автор: Rad 2
01 Июня 2022 года, 13:03


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