[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

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