[dextron3]

В автокаде создается кнопка нажав на которую можно допустим запустить ВОРД, или игру, или icq т.е. любое приложение вне автокада
(хотелось бы чтобы автокад был как бы рабочая система)

Буду премножественно благодране советы по созданию ярлыков на быстрой панели не принимаются

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

После активирования файла выполнение лиспа прерывается. А так, если "только открыть и активировать", то чем _open не нравится?
---
Добавлено: ну на крайняк, чтобы не заморачиваться с cmddia и filedia, используйте _FILEOPEN (правда, оно, по-моему, работает только в однооконном режиме, сейчас проверю).
---
Добавлено 2: Нда, я погорячимшись... fileopen работает только в однодокументном режиме Сорри.

[Makswell]

Да что-то _open у меня никак не хотело работать. Не помню точно, в макросе или лиспе это было, но вот никак! Тогда я и нашел это решение.
Кстати, решение это нашлось в одной из тем на форуме. Ну, по крайней мере, теория...

[dextron3]

буду жать CTRL+TAB после выполнения макроса что поделать

[VVA]

Запуск команд и/или функций во всех открытых чертежах
[FONT=Arial]OpenDwgsCmds is a set of functions designed to execute a list of commands and functions on all open drawings. The CDC function, Current Drawing Commands, allows you to test these commands and functions on the current drawing. The ODC function, Open Drawings Commands, executes these commands and functions on all open drawings. There are several programming utilities included.[/FONT]

[dextron3]

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

[Makswell]

Сообщение от dextron3 буду жать CTRL+TAB после выполнения макроса что поделать

А что, код в посте №20 не работает?

[dextron3]

Сообщение от Makswell А что, код в посте №20 не работает?

Работает, но кнопку сделал так

(vl-load-com) (if (= m-open-dwg nil) ( Load (findfile "Lisp/m-open-dwg.lsp"))) (m-open-dwg "C:/Program Files/exampl/Metcalk/OD.dwg")

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

[acyxou]

Люди добрые, а не подскажите как из автокада конкретное видео запустить, например установленным на всех компах Windows Media Player'ом? Попробовал по аналогии с текстовым документом и ничего не получилось. При написании на кнопку макроса такого вида ^C^C(startapp "wmplayer.exe") windows media player не запускается, хотя из меню Пуск-Выполнить-wmplayer.exe он отлично включается... Подскажите, плиз, как быть

[VVA]

Плохо читал. В #8 дана ссылка. Там все есть. Прочитай про
"невозможность открытия ACDSee"

Код:

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

(vlax-invoke-method                                            ;<=Add
         (setq ws (vlax-get-or-create-object "wscript.shell")) ;<=Add
         "run"                                                 ;<=Add
         "wmplayer.exe"                                        ;<=Add
         1                                                     ;<=Add
         :vlax-true                                            ;<=Add
         )                                                     ;<=Add
       (vlax-release-object ws)                                ;<=Add

[barm]

^C^C(startapp "C://WINDOWS//system32//calc.exe ")

[acyxou]

Спасибо за ответ, VVA, но я чет не понял куда этот код пихать....

[acyxou]

Yeeee! barm did his magic!!!!

Как теперь прицепить к кнопке конкретное видео?

[barm]

^C^C(startapp "C://Program Files//Winamp//winamp.exe D://1//03Парус(2004)//06Парус.mp3 ")

[barm]

В предыдущем ответе указан путь к файлу, в котором нет пробелов. Иначе не работет

[acyxou]

barm, спасибо! Открывает если указываю путь с папками без пробелов ла своем компе.... А мне надо выложить видео в сетевую папку, когда прописываю путь в таком виде то не открывает^C^C(startapp "C://Program Files//Windows Media Player//wmplayer.exe ////Server//Proekt//AutoCAD_Resources//supermen.wmv ") Мож есть какие-то свои особенности при указании на сетевое размещение?

[acyxou]

Люди ну помогите! Делаю благое дело ведь! Хочу создать выпадающее меню в автокаде куда буду добавлять кнопки к обучающему видео made by me. Видео будет размещаться на сервере, а я по мере обновления видеобиблиотеки буду обновлять файл этого меню, который тоже будет на сервере с прописанным путем доступа к нему, добавляя в него кнопки на просмотр соответсвтующего видео. По моему идея не плохая....

[VVA]

acyxou,

Код:

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

(startapp (findfile "C:/Program Files/Windows Media Player/wmplayer.exe")(findfile "//Server/Proekt/AutoCAD_Resources/supermen.wmv"))

[acyxou]

Yeee!!! VVA kicked that ass!

Все заработало! Спасибо огромное, очень выручили!