[dextron3]

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

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

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

http://www.caduser.ru/cgi-bin/f1/board.cgi?t=8521ax

[Profan]

Вообще-то, это баловство. И не имеет никакого смысла. Вот в DOS был смысл запускать NC или DN, или ME из под AutoCAD.

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

Сообщение от Profan Вообще-то, это баловство. И не имеет никакого смысла. Вот в DOS был смысл запускать NC или DN, или ME из под AutoCAD.

Я бы не взялся так утверждать. Хотя MS Word запускать из-под aсad'a, это, конечно сильно. И потом, запущенное приложение все равно как-то надо закрывать.
P.S. Кстати, можно попробовать посмотреть вообще поиск по caduser.ru, там и темы, и ответы на них были...

[dextron3]

Сообщение от Кулик Алексей aka kpblc http://www.caduser.ru/cgi-bin/f1/board.cgi?t=8521ax

а макросов я там и не нашел

[Profan]

А зачем макросы? Прописать в acad.pgp и все.
Для Кулик Алексей aka kpblc.
А я вот возьмусь утверждать: запускать ICQ из AutoCAD - совершенно нелепое баловство.

[Krieger]

Например для блокнота:

Код:

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

^C^C(startapp "notepad.exe")

Вторым аргументом можно указать открываемый документ, типа:

Код:

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

^C^C(startapp "notepad.exe" "c:/Documents and Settings/bla-bla/enu/Support/acad.pgp")

[VVA]

Может это поможет
http://www.caduser.ru/cgi-bin/f1/board.cgi?t=32895sr

[Alaspher]

Сообщение от Profan А зачем макросы? Прописать в acad.pgp и все. Для Кулик Алексей aka kpblc. А я вот возьмусь утверждать: запускать ICQ из AutoCAD - совершенно нелепое баловство.

Возьмусь утверждать больше - запуск любого приложения вручную, через Автокад - баловство, а acad.pgp (ДОС-секция) - чистый рудимент.

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

Ну тем не менее сам Autodesk таким баловством занимается в ADT (Content Browser - отдельный ехе-шник, запускается из-под ADT спец.командой и висит отдельным процессом).

[Alaspher]

Сообщение от Кулик Алексей aka kpblc Ну тем не менее сам Autodesk таким баловством занимается в ADT (Content Browser - отдельный ехе-шник, запускается из-под ADT спец.командой и висит отдельным процессом).

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

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

Ну тогда получается, что внешний текстовый редактор (типа notepad ) теоретически тоже можно отнести к такому "не совсем внешнему" приложению.

[Alaspher]

Сообщение от Кулик Алексей aka kpblc Ну тогда получается, что внешний текстовый редактор (типа notepad ) теоретически тоже можно отнести к такому "не совсем внешнему" приложению.

Если он прописан в качестве текстового редактора - да. Но тогда он и запускается автоматом.

[ShaggyDoc]

Действительно, запуск внешних приложений из acad.pgp - рудимент.

Действительно, в DOS он имел большое значение. Особенно в AutoCAD-10, когда было только "чёрное" главное меню, а имена файлов для открытия надо было руками писать.

Вот тогда делали хитрые оболочки, позволявшие иметь окружение для комфортной работы. Соответственно и хитрые bat-файлы и интенсивное использование acad.pgp, и .scr.. Тогда и ACAD умел "съёживаться" в памяти аж до 5КБ.

Внешние приложения, конечно, иногда надо и из современного Автокада запускать, особеноо когда надо передать вычисляемый аргумент командной строки. Но тут уж функция (startup ...) и ей подобные помогут. Но не PGP.

PS. Ждем следующий вопрос - как запустить приложение модально...

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

Сообщение от ShaggyDoc <...>PS. Ждем следующий вопрос - как запустить приложение модально...

Увы и ах, см.пост #2.
---
Добавлено: в коде надо будет заменить всего один параметр, и окно станет модальным по отношению к AutoCAD'у.

[dextron3]

Command: (vla-open (vla-get-documents (vlax-get-acad-object))(findfile
"C:/Program Files/exampl/Metcalk/OD.dwg")) ; error: no function definition:
VLAX-GET-ACAD-OBJECT

Кнопка с открытием файла в автокаде
Почему-то перестала работать, хотя раньше все время работала...
Может гдето настройки сбились?

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

(vl-load-com) Забыл.

[dextron3]

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

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

Лиспом не решабельно. А чего тебе в новом файле сделать-то надо?

[Makswell]

У меня сделана следующая функция:

Код:

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

(defun m-open-dwg (dwg_file)
  (if (findfile dwg_file)
    (vla-activate
      (vla-open	(vla-get-documents (vlax-get-acad-object))
		dwg_file
      )
    )
    (prompt (strcat "Файл: " dwg_file " не найден..."))
  )
  (princ)
)

И соответственно макрос:

Код:

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

^C^C(m-open-dwg "D:/M-CAD/TemporaryHelp/M-ГОСТ 8509-93 Уголки стальные горячекатаные равнополочные.dwg")

[Кулик Алексей 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!

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