Aller au contenu

Messages recommandés

Posté(e)

Salut !

 

Comment ça va en ce beau jeudi ensoleillé ?? :)

 

Ma question est dans le sujet !!

 

Comment faire pour ajouter en autolisp un chemin dans les chemins de fichiers de support disponible dans les options ???

 

Merci d'avance !!

 

A bientot.

Matt.

"Chacun compte pour un, et nul ne compte pour plus d'un."

Posté(e)

Salut Matt666!

 

Les chemins de supports sont stockés dans la BDR (base de registres).

Il y a peut être une variable ou une fonction. Mais si tu sais écrire en lisp

dans la BDR, amuse toi ;). De plus, si tu utilise des comptes utilisateurs différents

(chez nous se sont des profils itinérants), le changement dans la BDR n'est appliquée

que pour l'utilisateur qui a ouvert la session windows.

 

 

a+.

Tous pour lisp, Lisp pour tous!

Avec Revit, cela ne vas trop vite...

Posté(e)

Salut,

Tu les récupères tous en forme de texte comme cela :

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

 

... puis tu les modifies en rajoutant au texte precedement trouvés le chemin de ton répertoire (avec un point-virgule avant, puis tu fais :

 

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

Si vous êtes persuadés de tout savoir sur un sujet, c''est que vous en ignorez quelque chose...

Posté(e)

Les chemins de support sont effectivement dans la base de registre, tu les récupères avec :

 

(getenv "ACAD") - peut-être (getenv "ICAD") pour les clones Intellidesk ?

 

C'est une chaine avec comme séparateur entre chaque chemin un point virgule, tu peux la modifier et la recharger avec :

(setenv "ACAD" nouvelle_chaine)

Gilles Chanteau - gileCAD - GitHub
Développements sur mesure pour AutoCAD

Posté(e)

Merci pour vos réponses !!!

 

Bseb67, non je ne sais pas écrire en lisp dans la bdr... Surtout en autolisp !!

 

Bred, merci pour ces bouts de codes ! Malheureusement je ne peux pas utiliser de VLISP, à part les celles transcrites par gile...

 

Gile, merci !! C'est exactement ce que je voulais... (getenv "icad"), c'est bien ça... Et en plus avec un petit str2lst, ça devrait aller tout seul :D !

 

A bientot ! Merci...

"Chacun compte pour un, et nul ne compte pour plus d'un."

Posté(e)
Malheureusement je ne peux pas utiliser de VLISP, à part les celles transcrites par gile...

Ah oui! désolé, j'avais mal lu....

Comment faire pour ajouter en autolisp.......

Si vous êtes persuadés de tout savoir sur un sujet, c''est que vous en ignorez quelque chose...

Posté(e)

Il faut quand même vérifier si le chemin existe.... Le but étant de lancer un bout de code à chaque démarrage pour voir si le chemin existe...

Mais c'est vrai qu'un simple vl-string-search suffit !!

 

Du genre

(if (eq (vl-string-search NouveauChemin (getenv "ACAD") nil) nil)
(setenv "ACAD" (strcat (getenv "ACAD") ";" NouveauChemin))
)

...

 

[Edité le 11/10/2007 par Matt666]

"Chacun compte pour un, et nul ne compte pour plus d'un."

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité