[art_rrc]

Доброго времени суток. В своей работе для автоматизации я использую VBA, и для более удобного запуска и использования программ применяю примерно вот такие LISP- приложения.
1 файл:

Код:

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

 (defun c:mm1 ()
  (command "-vbarun" "MyMacro1")
  (princ)
)

2 файл:

Код:

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

 (defun c:ьь1 ()
  (command "-vbarun" "MyMacro1")
  (princ)
)

и т.д.

Проблема в том, что под каждую из таких программ приходится создавать, хранить отдельный Lisp-файл и добавлять его в автозагрузку. И их уже несколько десятков, что естественно не очень то удобно. Кто зазбирается в LISP-е, помогите пожалуйста с синтаксисом, как (и можно ли впринципе) это делать с помощью 1-го файла, со временем просто добавляя новые строки, а не таскать за собой целый вагон файликов.
Заранее спасибо!

[Do$]

Просто в одном lisp файле записывайте все эти функции, не надо создавать новые файлы.

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

Код:

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

 (foreach item '("MyMacro1" "MyMacro2") (command "_.-vbarun" item))

[Do$]

Алексей, как я понимаю, так будут все макросы сразу на выполнение запускаться. Тут же смысл в том, что надо лиспом зарегистрировать команды "mm1", "ьь1"... и т.д, которые при вызове будут запускать нужный макрос.

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

А, ну да... Мой косяк, не спорю

[Do$]

Мне вот интересно стало - неужели в VBA нет возможности собственными средствами команды регистрировать?

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

Насколько я помню, нет.

[Дима_]

Сообщение от Do$ Тут же смысл в том, что надо лиспом зарегистрировать команды "mm1", "ьь1"... и т.д

Я думаю Крыс хотел изобразить что-то вроде

Код:

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

 (foreach item '("MyMacro1" "MyMacro2") (set (read item) (lambda() (command "_.-vbarun" item))))

но задумался и ...

[gomer]

Код:

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

 (mapcar
	'(lambda (cmdname)
	   (set (read cmdname) (lambda () (command "_.-vbarun" cmdname)))
	   (vlax-add-cmd cmdname (read cmdname))
	 )
	
	'("MyMacro1" "MyMacro2")
)

[Boxa]

А может не нужны функции и команды?
Может можно в pgp файле прописывать Алиасы на обычные макросы запуска программ?

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

Насколько я помню, алиасы работают только на команды AutoCAD'a, прописать туда лисп / vba не получится

[Дима_]

то гомер - точно то ж команды...

[trir]

А я на кнопочки это вешал...