[Ingpro]

Решение см. пост #30.
Возможно ли с помощью лисп загружать (выбранный в файле DWG) текст с названием лиспа и сразу быть в команде.
Т.е. так: у меня в файле DWG есть тексты с названием лиспов, я кликаю по тексту, не выделяя его,
и лисп с таким названием загружается (из папки Support) и команда активна. Просто есть лисп-программы, которыми не часто пользуешься, поэтому нет смысла добавлять их а в автозагрузку, а так по мере надобности загружать, по-моему, удобно...
Просто таких лиспов много и надо каждый раз - ЗАГПРИЛ, потом скопировать название команды, потом
вставить в командную строку... И даже, если все лиспы в автозагрузке - зайти в папку, скопировать
название команды, потом - в командную строку...

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

Мсье знает толк... А что, кнопочку не нарисовать с макросом типа

Код:

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

^C^C(progn (if (not (c:CommandName)) (load ApplicationFile.lsp)) (c:CommandName))

P.S. Макросами уже давно не балуюсь, скорее всего, будет более вменяемый код

[Ingpro]

Сообщение от Кулик Алексей aka kpblc кнопочку не нарисовать с макросом типа

... кнопочек может быть слишком много...

[Сергей812]

палитры у вас запретили на работе?)

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

Сообщение от Ingpro Да и как эта кнопочка будет работать, не представляю...

В Download есть книга В.Света про язык макрокоманд. Настоятельно рекомендую.

[Ingpro]

Сообщение от Сергей812 палитры у вас запретили на работе?)

Команды на палитре предполагают, что все лиспы должны быть в автозагрузке...

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

Код кнопки засунуть на инструмент. Как альтернатива кнопкам

[Сергей812]

Сообщение от Ingpro А как это связано с темой?

Самое прямое. Встроенный функционал акада для группирования иконок и команд.

[Ingpro]

Сообщение от Сергей812 Встроенный функционал акада для группирования иконок и команд.

I'm going to: Команды на палитре предполагают, что все лиспы должны быть в автозагрузке...

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

Че ета не подойдет? Ну впишется в строку загрузка/вызов лиспа, в чем принципиальная разница?

[Ingpro]

... добавлять 30-40 команд НЕчасто используемых, вроде нелогично...

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

Сообщение от Ingpro загрузка LISP из текста DWG-файла кажется подходящей для редко используемых команд...

А тот факт, что файл предварительно все равно понадобится открывать, не смущает? Ну сделай себе отдельное меню (хоть выпадающее), и пропиши в нем свои "редкоиспользуемые" коды, делов-то

[Сергей812]

Сообщение от Кулик Алексей aka kpblc А тот факт, что файл предварительно все равно понадобится открывать, не смущает?

да еще и найти этот фрагмент чертежа с текстами-командами) И не забыть еще лисп с реакторами загрузить для отслеживания выделения пользователем этих псевдокоманд.

И вообще для нечасто используемых команд достаточно и комстроки, имхо - сделать этим командам уникальный префикс (чтобы при начале набора выводилась подсказка из списка этих команд)

[name02]

В свое время я реализовал похожий алгоритм - но только для того, чтобы унифицировать макрокоманду для кнопок.
Данный файл помещается в автозагрузку.
MT2L.lsp

Код:

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

   ;Функция для вызова макроса по его имени из мультитекста
(defun c:MT2L ( / pseudo_name rec path macro_name)
  (setq pseudo_name (cdr (assoc 1 (entget (car (entsel))))))

  (setq rec (cdr (assoc pseudo_name lst_pseudo_names)))
  (setq path (cdr rec))
  (setq macro_name (car rec))

  (load path)

  (eval (read (strcat "(C:" macro_name ")")))

) ;_ END_OF defun


  ;Список с макросами и адресами
(setq lst_pseudo_names

       (list


	 (cons
	   "T2M" ;"псевдоним" - текст, который содержится в мультитексте
	   (cons
	     "t2M"	;имя команды, которая запускает макрос из файла по адресу
	     "C:\\Users\\user_1\\_ПРОГРАММЫ\\для AutoCAD\\Макросы\\Текст в мультитекст\\Text2MTextV2-0.lsp"
	   ) ;_ END_OF cons


	 ) ;_ END_OF cons

;Для других макросов добавлять аналогично
;;;	 (cons
;;;	   "ПСЕВДОНИМ_2"
;;;	   (cons "КОМАНДА_2"
;;;		 "ПУТЬ_К_ФАЙЛУ_КОМАНДЫ_2"
;;;	   ) ;_ END_OF cons
;;;
;;;
;;;	 ) ;_ END_OF cons

       ) ;_ END_OF list lst_pseudo_names



) ;_ END_OF setq

В остальном я соглашусь с предыдущими авторами - либо делать менюшки кнопок, либо инструментальную палитру, либо (если вообще редко пользуешься макросами) - загружать вручную.
Но если тебе так удобнее - почему нет

[Ingpro]

Сообщение от name02 похожий алгоритм - но только для того, чтобы унифицировать макрокоманду для кнопок

name02, спасибо, но я так понимаю, сначала нужно определиться с макросами? Или достаточно в этот код добавить строки типа

Код:

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

  "C:\\Users\\user_1\\_ПРОГРАММЫ\\для AutoCAD\\Макросы\\Текст в мультитекст\\Text2MTextV2-0.lsp"

со своим набором лиспов?
А если из кода убрать макросы и прописать путь к папке Support, это сработает?

[Сергей812]

в свое время тут на форуме выкладывал человек надстройку на .Net в виде панели с кнопками, к нажатиям которых можно было привязать выполнения команд. Только как называется эта надстройка - не помню)

----- добавлено через ~2 мин. -----

Сообщение от Ingpro А если из кода убрать макросы и прописать путь к папке Support, это сработает?

пост №5 от Алексея был проигнорирован, похоже)

[Ingpro]

Сообщение от Сергей812 пост №5 от Алексея был проигнорирован

Не хотелось бы связываться с макросами...

[Сергей812]

Сообщение от Ingpro Не хотелось бы связываться с макросами...

лисп тоже является макросом (макрокомандой) - так что уже давно связались...

[kp+]

Быть может я чего не понимаю...
Но нельзя ли все мелкие редко используемые лиспы скомпилировать в один файл fas, чтоб не захламлять автозагрузку, а для вызова сделать текстовое меню?

[Ingpro]

Сообщение от kp+ нельзя ли все мелкие редко используемые лиспы скомпилировать в один файл fas

Может и можно...

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

Сообщение от kp+ Но нельзя ли все мелкие редко используемые лиспы скомпилировать в один файл fas

Самое главное не упереться в ограничение файла проекта в 64 кб )

[kp+]

Сообщение от Ingpro Может и можно, но я не знаю как...

Все меню "проект" лисп-редактора к вашим услугам.
Создать новый проект, в свойствах добавить к нему все нужные файлы, собрать компилированный fas файл.

Offtop: Почти как засунуть бегемота в холодильник: открыть холодильник, засунуть бегемота, закрыть холодильник

Сообщение от Кулик Алексей aka kpblc Самое главное не упереться в ограничение файла проекта в 64 кб )

Для "30-40" мелких lsp-файлов это вряд ли случится. Разве что их будет 30-40 тысяч. Но такого даже в полной версии ruCAD не было, кажется

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

Сообщение от kp+ Все меню "проект" лисп-редактора к вашим услугам. Создать новый проект, в свойствах добавить к нему все нужные файлы, собрать компилированный fas файл.

Просто так не получится: редактор после закрытия принудительно обрубает файл описания проекта, если он хотя бы на байт превышает 64 кб. И проект становится некомпилируемым.

[kp+]

И сколько исходных файлов надо, чтоб достичь этого предела? В нем же просто перечень исходных файлов с какими-то служ. пометками, указаниями по компиляции, так?
Понимаю, что на серьезном большом проекте этот файл теоретически может разрастись, но здесь не тот масштаб.
Опять же, при многотысячном количестве исходников будет играть роль даже длина пути к файлам, а при нескольких десятках - хоть в "мои документы" положи, не страшно.

[Ingpro]

Сообщение от kp+ в свойствах добавить к нему все нужные файлы

Можно пример из одной строчки? В каком виде это должно быть.

[kp+]

Тут одной строчкой не обойдешься, картинки надо. Если просто ради интереса поклацать пункты меню не хотите.
Сейчас не возле компа с акадом, не с чего делать снимки экрана.
Но в хелпе вроде нормально написано;

https://help.autodesk.com/view/OARX/...4-B9774B961F3C

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

Сообщение от kp+ И сколько исходных файлов надо, чтоб достичь этого предела? В нем же просто перечень исходных файлов с какими-то служ. пометками, указаниями по компиляции, так? Понимаю, что на серьезном большом проекте этот файл теоретически может разрастись, но здесь не тот масштаб. Опять же, при многотысячном количестве исходников будет играть роль даже длина пути к файлам, а при нескольких десятках - хоть в "мои документы" положи, не страшно.

Мое дело предупредить С другой стороны, не сильно сложно написать загрузчик всего и вся, и положить его в mnl

[name02]

Сообщение от Ingpro А если из кода убрать макросы и прописать путь к папке Support, это сработает?

Не сработает, так как пока lisp-файл не загружен в автокад, то соответственно автокад ничего про него не знает - команда T2M будет для него будет бессмысленна.
Можно не писать полный путь к файлу, если файл лежит в путях поддержки. Но имя файла все равно нужно писать:

Код:

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

 (cons
 "T2M" ;"псевдоним" - текст, который содержится в мультитексте
 (cons
  "t2M"	;имя команды, которая запускает макрос из файла, лежащего в путях поддержки
  "Text2MTextV2-0.lsp"
 ) ;_ END_OF cons
) ;_ END_OF cons

[Ingpro]

Сообщение от name02 Можно не писать полный путь к файлу, если файл лежит в путях поддержки

Спасибо, name02, Ваш код наиболее близок для моей задачи... Буду пробовать разные варианты...

[Ingpro]

Ответили на форуме cadtutor , спасибо Lee Mac! Лисп "ctext" во вложении.
https://www.cadtutor.net/forum/topic...g-and-pasting/

То есть теперь появилась возможность вставить (просто кликнуть по тексту) свою команду загрузки лисп в командную строку типа:

Код:

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

 (_autoload "Setka")(c:Setka)

Я ставлю лисп Lee на цифру 1 (например) в acad.pgp:
1, *ctext
и загрузка лисп-команды происходит в 2 клика, и команда сразу активна, и лисп не добавлен в автозагрузку.
Это особенно удобно (IMXO) для многофункциональных лиспов, таких как "PLTOOLS", "bgtools 3.12a", "SumT",
в которых множество разных команд для вызова. Мне, к примеру, оттуда надо 3-5 команд и я их записываю в виде:

Код:

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

 (_autoload "PLTOOLS")(c:PL-L2A)

Код:

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

 (_autoload "PLTOOLS")(c:MPL)

Для "bgtools 3.12a" такая запись не работает (не знаю причину),
работает такая строка с вызовом:

Код:

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

 (if (not c:bgtools 3.12a) (load "bgtools 3.12a.lsp" nil)) (if c:BGBLCC (c:BGBLCC))

такого же типа строки нужно применять для файлов с расширением (.fas) и (.vlx), например (также благодарность Lee Mac!) :

Код:

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

 (if (not c:dimtext_bgmask) (load "dimtext_bgmask.fas" nil)) (if c:dimtext_bgmask (c:dimtext_bgmask))

Я могу в своем файле .dwg или шаблоне .dwt создать сколько угодно строчек для вызова лисп-команд,
при этом я освобождаю автозагрузку.

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

И на что только люди не пойдут... Сделать собственное меню с mnl-файлом не судьба? И заставить mnl грузить сколько угодно приложений откуда угодно?Это же не нанокад, тут все элементарно.

[Ingpro]

Сообщение от Кулик Алексей aka kpblc Сделать собственное меню с mnl-файлом не судьба?

...mnu, cui... Загрузка/выгрузка работает нестабильно...

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

У меня подобная схема, правда, доработанная до относительного ума, корректно работает на 2013, 2016, 2018 - 2021 независимо от локализации.
Все эти mnu, cui, cuix - это головняк? Ну если не попробовать ни разу то естественно.
Слетают панели? wsautosave.
Никогда не знаешь что произойдет? Ну при такой конкретике, конечно, ничего не скажешь.
Загрузка / выгрузка работает нестабильно? Угу, ага, конечно. Типа оно будет гарантированно работать при подходе "че-то сделать на основании текста". Да я тебе механизм порушить смогу в 5 секунд, тупо добавив в многострочник форматирование.
В общем, если человеку сильно хочется геморроя, тут я бессилен.

[1958]

Сообщение от Ingpro Все эти mnu, cui, cuix - это головняк. Загрузка/выгрузка работает нестабильно, часто выдает ошибку 404, да ещё и панели слетают, никогда не знаешь, что произойдет... Возможно это зависит от локализованной версии, у меня AutoCAD 2015 rus...

Прошу прощения, но это чушь собачья! Загружать лиспы через задницу текст в чертеже - это, конечно, очень мудро и изящно. Lee Mac, наверно долго смеялся на вашими потугами, и в конце концов, сжалившись, накопал код. Я следил за этой темой на cadtutore, там неоднократно вам предлагали вариант с меню. Но хозяин-барин, ему надо, как он сказал.

[zenon]

Сообщение от Кулик Алексей aka kpblc У меня подобная схема, правда, доработанная до относительного ума, корректно работает на 2013, 2016, 2018 - 2021 независимо от локализации. Все эти mnu, cui, cuix - это головняк? Ну если не попробовать ни разу то естественно. Слетают панели? wsautosave. Никогда не знаешь что произойдет? Ну при такой конкретике, конечно, ничего не скажешь. Загрузка / выгрузка работает нестабильно? Угу, ага, конечно. Типа оно будет гарантированно работать при подходе "че-то сделать на основании текста". Да я тебе механизм порушить смогу в 5 секунд, тупо добавив в многострочник форматирование. В общем, если человеку сильно хочется геморроя, тут я бессилен.

Ну почему, вполне может быть, особенно если у юзера на базе Autocad полный зоопарк (вертикалки, навески, расширения и прочая).
Один СПДС графикс чего стоит со своими постоянными изменениями настроек и системных переменных.