Chemin de recherche de fichiers de support

[Ashram_666]

Bonjour,

j'aimerais savoir comment ajouter des chemins de mes propres répertoire dans

les options onglet Fichiers "Chemin de recherche de fichiers de support"

automatiquement en executant une commande lisp par exemple.

[Tramber]

Je te donne un code, mais je compte sur toi pour t'en servir avec précaution :

 

(vla-put-SupportPath
       (vla-get-Files
           (vla-get-Preferences
               (vlax-get-acad-object)
           )
       )
       path
   )

 

Pour lire, c'est :

(vla-get-SupportPath(vla-get-Files(vla-get-Preferences(vlax-get-acad-object))))

 

Décline toute responsabilité !!!

 

[BTO]

en plus classique, Il y a aussi :

 

(setenv "ACAD" (strcat (getenv "ACAD") "C:\\test"))

 

qui devrait fonctionner,

 

Bruno Toniutti

 

[Ashram_666]

Merci à vous deux de m'avoir répondu, vos deux codes fonctionne sans aucun problème a l'exeception du code en "VLA" qui remplace les chemins existants par ceux définit dans le programme mais quand on le sait y plus de problème.

J'aimerais juste poser une question à "TRAMBER" où est-ce que je pourrais connaitre les fonction "VLA-...." ? merci d'avance.

 

[(gile)]

Salut,

 

Les fonctions vlax-... sont décrites dans l'aide aux dévloppeurs -> AutoLISP Reference -> AutoLISP Functions.

 

Les fonctions vla-... sont en fait construites à partir des fonctions ActiveX et VBA, toujours dans l'aide aux développeurs -> ActiveX and VBA Reference

 

Tu peux aussi trouver des explications (encore en anglais) dans The Visual LISP Developers Bible.