menu chargé en automatique

[pierredudu]

Bonjour,

j'aimerais charger un menu .mns qui devient un.cui en automatique ainsi que dans outils options chemin de recherche des fichiers de support, pouvoir ajouter mon chemin du dossier c:\toto

j'ai vu des possibilités avec startup mais c'est pas tres clair pour moi le novice

 

je fais ça manuellement et ça marche tres bien mais bon, il y a mieux

mon menu .mnl me charge déjà mes lisp

 

Merci d'avance

[tyrese69_]

Bonjour,

Voici les commandesutiles pour celà

La première ligne forc el déchargement pour être sur que la seconde puisse

marcher sans erreur, la troisienne permet de positionner le menu, juste avant le

? de l'aide !

 

(command "_menuunload" "MonMenu")

(command "_menuload" "MonMenu.mnu")

(menucmd "Gacad.pop11=+MonMenu.pop1")

 

Bon courage pour la suite !

 

Daniel OLIVES

Lyon-FRANCE

[Bred]

Salut,

pour le fichier support :

(setq acadObject (vlax-get-acad-object))
(setq prefsObject (vlax-get-property acadObject 'Preferences))
(setq tabnameObject (vlax-get-property prefsObject 'Files))

(setq List_File_Support (strcat List_File_Support "c:\\toto" ";"))

(vlax-put-property tabnameObject 'SupportPath List_File_Support)

 

 

 

 

 

 

 

[pierredudu]

je teste ça de suite

merci beaucoup à vous deux

je vous informe dès que c'est fait

 

 

[pierredudu]

Bonjour,

un petit problème pour ajouter mon adresse dans les fichiers support d'autocad

; erreur: no function definition: VLAX-GET-ACAD-OBJET

j'ai mis ce que Bred m'a écrit dans mon .mnl et à chaque ouverture d'autocad ou un nouveau dessin ; erreur no function

 

 

 

 

[(gile)]

Il faut entrer (vl-load-com) pour charger les fonctions VisualLISP (vla-*, vlax-* et vlr-*.)

[pierredudu]

(vl-load-com)

(setq acadObject (vlax-get-acad-object))

(setq prefsObject (vlax-get-property acadObject 'Preferences))

(setq tabnameObject (vlax-get-property prefsObject 'Files))

 

(setq List_File_Support (strcat List_File_Support "c:\\toto" ";"))

 

(vlax-put-property tabnameObject 'SupportPath List_File_Support)

 

Voici le code avec un lisp de nom "support.lsp"

 

** Erreur : type d'argument incorrect: stringp nil **; erreur: une erreur est

survenue dans la fonction *erreur*no function definition: SETVER

 

bref je vois pas le soucis

[Patrick_35]

Le lisp est bien, sauf que si le chemin existe déjà, il est ajouté

Je ferais donc plus simplement

 

(if (not (vl-string-search (strcase [surligneur]"Mon_répertoire")[/surligneur] (strcase (vla-get-supportpath (setq pref (vla-get-files (vla-get-preferences (vlax-get-acad-object))))))))
   (vla-put-supportpath pref (strcat (vla-get-supportpath pref) ";" [surligneur]"Mon_répertoire"[/surligneur] ))
 )

A placer dans le fichier AutoCAD.lsp (et s'il n'existe pas, le créer dans le répertoire où l'on retrouve l'acad.exe)

 

@+

 

ps : si on souhaite utiliser le répertoire d'installation d'autocad, c'est dans (vla-get-path (vlax-get-acad-object))

[pierredudu]

merci patrick_35

 

ça marche du tonnerre

je charge l'application et j'ai bien mon chemin seulement comme je ne veux pas utiliser le chemin où est chargé autocad parce que d'un poste à l'autre !!!!!! et certaines install farfelu

je n'utilise que mon .mns et mon .mnl du meme nom

j'ai mis à la fin de mon .mnl ton code mais là ça marche pas

excusez moi d'etre tres lourd

 

[Patrick_35]

parce que d'un poste à l'autre !!!!!! et certaines install farfelu

Je ne vois pas en quoi cela pose problème ?

Tu peux travailler par exemple avec un répertoire fixe comme "c:\Mon_répertoire_travail" ou avec un sous répertoire dans le répertoire d'installation d'autocad que l'on peut retrouver grâce à (vla-get-path (vlax-get-acad-object))

Le truc comme je te l'ai déjà indiqué est de modifier ou de créer un fichier AutoCAD.lsp avec l'instruction en lisp que je t'ai donnée dans le répertoire d'installation d'autocad.

Ce lisp sera automatiquement appelé lors de la première ouverture d'un dessin et définira donc le chemin que tu recherches (s'il n'existe pas déjà).

Maintenant, si tu travailles avec un répertoire fixe ou un répertoire relatif par rapport au répertoire d'installation d'autocad, c'est à toi de le définir.

Mais tu as un passage obligé à un moment ou un autre de travailler avec le répertoire d'installation pour donner ta config à autocad.

 

@+