[Krieger]

Как сделать кнопку в AutoCAD которая бы запускала приложение *.exe, к примеру notepad.exe?

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

Например, так:
^C^C_shell;notepad.exe;

[Krieger]

Сообщение от kpblc Например, так: ^C^C_shell;notepad.exe;

Спасибо.
С этим макросом еще вылетает черное окошко, как сделать чтобы не появлялось?
Но вот что-то только с блокнотом и explorerом работает. А вот TotalCommander или Word не заработали, только проморгало чего-то.

[asys]

Попробуй через START
^C^C_start;notepad.exe;

[Krieger]

Сообщение от Asys Попробуй через START ^C^C_start;notepad.exe;

Ок, спасибо. Заработало.

[Serge Krasnikov]

Сообщение от Krieger Сообщение от Asys Попробуй через START ^C^C_start;notepad.exe; Ок, спасибо. Заработало.

Лично я ленив, я написал только
notepad
без всяких там стартов и сшелов и оно заработатало

[Krieger]

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

[{Smirnoff}]

Можно использовать что то типа такой функции:

Код:

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

(defun OpenFile(FileFullName / ShellApp)
  (vl-load-com)
  (if
    (setq ShellApp
      (vla-getInterfaceObject
        (vlax-get-acad-object)
        "Shell.Application"))
    (progn
  (if(findfile FileFullName)
  (vlax-invoke-method ShellApp 'ShellExecute FileFullName)
  (princ(strcat "\n** File " FileFullName " not found! **"))
    ); end if
  (vlax-release-object ShellApp)
  (setq ShellApp nil)
  ); end progn
    ); end if
  (princ)
  ); end of OpenFile

К примеру:

Код:

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

(OpenFile "C:\\Documents and Settings\\Alexander\\Мои документы\\Documentation\\Test.doc")

[Krieger]

Сообщение от Serge Krasnikov Лично я ленив, я написал только notepad без всяких там стартов и сшелов и оно заработатало

Заработало потому что эта команда прописана в acad.pgp, как оказалось... :?

Код:

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

; Examples of external commands for Windows
; See also the (STARTAPP) AutoLISP function for an alternative method.

EXPLORER,  START EXPLORER, 1,,
NOTEPAD,   START NOTEPAD,  1,*File to edit: ,
PBRUSH,    START PBRUSH,   1,,

Кстати, что за параметры после названия приложения? И какие бывают?

А свою проблему решил так:

Код:

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

^C^C(startapp "notepad.exe" "c:/Documents and Settings/Krieger/Application Data/Autodesk/AutoCAD 2005/R16.1/enu/Support/acad.pgp")