AutoCAD Menus

[albator]

Comment charger un menu (: fichier sample.mnu) sans décharger AutoCAD.mnu ?

 

Comment charger automatiquement ce même menu en passant par un fichier .lsp

[rebcao]

_menuload (Menu Outils : Personnaliser Menu...)

 

Christian

[BIM G CO]

Voila ce que j'ai fais dans l'entreprise où je travaille :

 

J'ai créé sur chaque PC un dossier "C:\GESTIONNAIRE AUTOCAD" (en majuscles) où j'ai mis tous les fichiers (menu servant notre BE) MNU.MNL,LSP (pas la AutoCAD.mnu etc......)

 

Sur le serveur j'ai créé un dossier Source où j'ai mis les fichier MNU, MNS(généré par le fichier MNU), LSP, MNL

 

Dans le menu Outils / Option / &Onglet "Fichier" / &Dossier "Chemin de recherche de fichier de support", j'ai ajouté "C:\GESTIONNAIRE AUTOCAD" et je l'ai monté tout en haut de la liste.

 

A chaque délmarrage du PC les fichiers MNR et MNC sont supprimés (pour garder l'aspect originel du menu) (surtout pas les MNU ni MNS)et les fichiers LSP, MNS, MNL et MNU sont écrasés depuis la source sur le serveur.

 

MNL type :

********************************************************************************

(defun Societe-init-placemenu (/ n)

;;;

;;; Définition

;;;

(setq VAR_PATH_Societe ".\\BELLUCCI.MNU")

(setq VAR_FILE_Societe ".\\Fonctions BELLUCCI.lsp")

(if (menugroup "Societe") ; Nom du Menu

(progn

(setq n 1)

(while (< n 24)

(if (menucmd (strcat "P" (itoa n) ".1=?"))

(setq n (+ n 1))

(progn

(if (> n 3)

(setq n (- n 2))

(setq n 3)

) ;if

(menucmd (strcat "p" (itoa n) "=+BELLUCCI.pop1"))

(setq n 25)

) ;progn

) ;if

) ;while

) ;progn

) ;if

) ;defun Societe-init-placemenu

;;; Met en memoire les fonctions Societe

(Societe-init-placemenu)

(load VAR_FILE_Societe)

(Societe-init-parametre)

(princ)

********************************************************************************

MNU de type

********************************************************************************

// Societe.MNU pour AutoCAD

//

// Le menu suivant est utilisé pour la société

// Societe

// xx

// xx

// xxxxx xxxxxxxxx

//

//

//

// Permission to use, copy, modify, and distribute this software

//

//

//

//

//

 

// NOTE: AutoCAD looks for an ".mnl" (Menu Lisp) file whose name is

// the same as that of the menu file, and loads it if

// found. If you modify this menu and change its name, you

// should copy AcetMain.mnl to .mnl, since the menu

// relies on AutoLISP routines found there.

//

 

 

***MENUGROUP=Societe

***POP1

ID_MNSociete [&Societe]