changer chemin de recherche

[arnaudalp]

Bonjour

Je souhaiterais , en lisp , modifier les chemins d'emplacement des fichiers de palette d'outils et palette de création.

Je n'arrive pas à trouver les commandes qui permettraient de le faire.

Sauriez-vous m'aider ?

Merci

[Patrick_35]

Salut

 

Tout est là

(vlax-dump-object (vla-get-files (vla-get-preferences (vlax-get-acad-object))))

 

Par exemple, pour ajouter un répertoire dans les chemins de recherche.

(setq pref (vla-get-files (vla-get-preferences (vlax-get-acad-object)))
     supp (vla-get-supportpath pref)
)
(or (vl-string-search (strcase "Mon_répertoire") (strcase supp))
 (vla-put-supportpath pref (strcat "Mon_répertoire;" supp)
)

 

@+