;;; Voir aussi la fonction AUTOLISP (startapp) pour une mιthode alternative.
;;; Permet d'appeler d'autres programmes, utilitaires DOS ou WINDOWS au travers AutoCad
;;; (sans sortir d'AutoCad)
EXPLORER, START EXPLORER, 1,,
WRITE, START WRITE, 1,,
ACAD, START ACAD, 1,,
EXCEL, START EXCEL, 1,,
BD, START EXPLORER r:\acad\misc\library\,1
NOTEPAD, START NOTEPAD, 1,*Fichier ΰ ιditer:,
TDA, START WINWORD c:\mydocs\tcards3.doc,1
TCD, START EXCEL c:\mydocs\tcards3.xls,1
PBRUSH, START PBRUSH, 1,,
TC,
http://taylor3/intranet/lisp/Taacad.html,0 helpme,start myhelp.chm, 1,,
GRPHELP, STARTAPP"hh" "J:\\ESTB\\Grplayer.chm"
;;;Dans un menu
[Convertisseur d'unitιs] (Startapp "G:/Esbpcs/utils/ESBUnitConv.exe")
;;;Dans une macro activant un bouton
^C^C^P(startapp "explorer" (strcat "/e," (getvar "dwgprefix")))
;;; Dans une routine LISP
(defun C:DIRR ()(COMMAND ".BROWSER" (GETVAR "DWGPREFIX")))
;;; (command "start" (findfile "Myfile.pdf))
To load some help files to my menu:
[&ESTB --Info--Routines--Trucs et Astuces--Tutoriels]^C^C^P(if(not C:ESTBaide)(load"ESTBaide"));ESTBaide