waner72

Bonjour voila un code pour créér un menu avec des sousmenus et des soussousmenus; Cependant tu peux le moduler pour avoir autant de sousmenus et de soussousmenuque tu veux. Sub bibliotheque() Dim currMenuGroup As AcadMenuGroup Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0) ' creer menu biblioteque Dim newMenu As AcadPopupMenu Set newMenu = currMenuGroup.Menus.Add("bibliotheque") ' ajouter un sous menu deroulant "cercle" Dim FileSubMenu As AcadPopupMenu Set FileSubMenu = newMenu.AddSubMenu("", "cercle") ' ajouter un sous menu au precedent Dim newMenuItem As AcadPopupMenuItem Dim openMacro As String ' assigner une macro et un nom "d10" openMacro = "_d10 " Set newMenuItem = FileSubMenu.AddMenuItem _ (newMenu.Count + 1, "d10", openMacro) Dim newMenuItem1 As AcadPopupMenuItem Dim openMacro1 As String ' Assign the macro the VB equivalent of "ESC ESC _open " openMacro1 = "_d20 " Set newMenuItem1 = FileSubMenu.AddMenuItem _ (newMenu.Count + 1, "d20", openMacro1) Dim newMenuItem2 As AcadPopupMenuItem Dim openMacro2 As String ' Assign the macro the VB equivalent of "ESC ESC _open " openMacro2 = "_d30 " Set newMenuItem2 = FileSubMenu.AddMenuItem _ (newMenu.Count + 1, "d30", openMacro2) ' Display the menu on the menu bar newMenu.InsertInMenuBar _ (ThisDrawing.Application.MenuBar.Count + 1) ' Add the submenu 222222 Dim FileSubMenu1 As AcadPopupMenu Set FileSubMenu1 = newMenu.AddSubMenu("", "carre") ' Add a menu item to the sub menu Dim newMenuItem3 As AcadPopupMenuItem Dim openMacro3 As String ' Assign the macro the VB equivalent of "ESC ESC _open " openMacro3 = "_10 " Set newMenuItem3 = FileSubMenu1.AddMenuItem _ (newMenu.Count + 1, "10", openMacro3) ' Add a menu item to the sub menu Dim newMenuItem4 As AcadPopupMenuItem Dim openMacro4 As String ' Assign the macro the VB equivalent of "ESC ESC _open " openMacro4 = "_20 " Set newMenuItem4 = FileSubMenu1.AddMenuItem _ (newMenu.Count + 1, "20", openMacro4) ' Add a menu item to the sub menu Dim newMenuItem5 As AcadPopupMenuItem Dim openMacro5 As String ' Assign the macro the VB equivalent of "ESC ESC _open " openMacro5 = "_30 " Set newMenuItem5 = FileSubMenu1.AddMenuItem _ (newMenu.Count + 1, "30", openMacro5) ' Display the menu on the menu bar newMenu.InsertInMenuBar _ (ThisDrawing.Application.MenuBar.Count + 1) End Sub amicalement PS: je ne sais pas comment lier un bloc à ces soussousmenus donc si tu as des infos la dessus je suis preneur Merci

Bonjour Sur autocad, à l'aide de VBA j'ai créé un menu "bibliotheque" qui comporte 2 sous-menus qui comportent eux même 3 sous-menus. J'aimerai savoir comment faire pour lier un bloc à un sous menu si c'est possible de le faire... Je suis vrément bloqué.... Merci voici le code pour créér le menu bibliotheque: Sub bibliotheque() Dim currMenuGroup As AcadMenuGroup Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0) ' creer menu biblioteque Dim newMenu As AcadPopupMenu Set newMenu = currMenuGroup.Menus.Add("bibliotheque") ' ajouter un sous menu deroulant "cercle" Dim FileSubMenu As AcadPopupMenu Set FileSubMenu = newMenu.AddSubMenu("", "cercle") ' ajouter un sous menu au precedent Dim newMenuItem As AcadPopupMenuItem Dim openMacro As String ' assigner une macro et un nom "d10" openMacro = "_d10 " Set newMenuItem = FileSubMenu.AddMenuItem _ (newMenu.Count + 1, "d10", openMacro) Dim newMenuItem1 As AcadPopupMenuItem Dim openMacro1 As String ' Assign the macro the VB equivalent of "ESC ESC _open " openMacro1 = "_d20 " Set newMenuItem1 = FileSubMenu.AddMenuItem _ (newMenu.Count + 1, "d20", openMacro1) Dim newMenuItem2 As AcadPopupMenuItem Dim openMacro2 As String ' Assign the macro the VB equivalent of "ESC ESC _open " openMacro2 = "_d30 " Set newMenuItem2 = FileSubMenu.AddMenuItem _ (newMenu.Count + 1, "d30", openMacro2) ' Display the menu on the menu bar newMenu.InsertInMenuBar _ (ThisDrawing.Application.MenuBar.Count + 1) ' Add the submenu 222222 Dim FileSubMenu1 As AcadPopupMenu Set FileSubMenu1 = newMenu.AddSubMenu("", "carre") ' Add a menu item to the sub menu Dim newMenuItem3 As AcadPopupMenuItem Dim openMacro3 As String ' Assign the macro the VB equivalent of "ESC ESC _open " openMacro3 = "_10 " Set newMenuItem3 = FileSubMenu1.AddMenuItem _ (newMenu.Count + 1, "10", openMacro3) ' Add a menu item to the sub menu Dim newMenuItem4 As AcadPopupMenuItem Dim openMacro4 As String ' Assign the macro the VB equivalent of "ESC ESC _open " openMacro4 = "_20 " Set newMenuItem4 = FileSubMenu1.AddMenuItem _ (newMenu.Count + 1, "20", openMacro4) ' Add a menu item to the sub menu Dim newMenuItem5 As AcadPopupMenuItem Dim openMacro5 As String ' Assign the macro the VB equivalent of "ESC ESC _open " openMacro5 = "_30 " Set newMenuItem5 = FileSubMenu1.AddMenuItem _ (newMenu.Count + 1, "30", openMacro5) ' Display the menu on the menu bar newMenu.InsertInMenuBar _ (ThisDrawing.Application.MenuBar.Count + 1) End Sub

Merci Thomas J'y vais de ce pas.

Bonjour tout le monde! Sur autocad, à l'aide de VBA j'ai créé un menu "bibliotheque" qui comporte 2 sous-menus qui comportent eux même 3 sous-menus. J'aimerai lier un bloc différent pour chaque sous-menus. Quelqu'un connait il ce procédé et sait comment faire? Merci Je vous donne le code pour créér le menu et ces sous-menu. :o Sub bibliotheque() Dim currMenuGroup As AcadMenuGroup Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0) ' creer menu biblioteque Dim newMenu As AcadPopupMenu Set newMenu = currMenuGroup.Menus.Add("bibliotheque") ' ajouter un sous menu deroulant "cercle" Dim FileSubMenu As AcadPopupMenu Set FileSubMenu = newMenu.AddSubMenu("", "cercle") ' ajouter un sous menu au precedent Dim newMenuItem As AcadPopupMenuItem Dim openMacro As String ' assigner une macro et un nom "d10" openMacro = "_d10 " Set newMenuItem = FileSubMenu.AddMenuItem _ (newMenu.Count + 1, "d10", openMacro) Dim newMenuItem1 As AcadPopupMenuItem Dim openMacro1 As String ' Assign the macro the VB equivalent of "ESC ESC _open " openMacro1 = "_d20 " Set newMenuItem1 = FileSubMenu.AddMenuItem _ (newMenu.Count + 1, "d20", openMacro1) Dim newMenuItem2 As AcadPopupMenuItem Dim openMacro2 As String ' Assign the macro the VB equivalent of "ESC ESC _open " openMacro2 = "_d30 " Set newMenuItem2 = FileSubMenu.AddMenuItem _ (newMenu.Count + 1, "d30", openMacro2) ' Display the menu on the menu bar newMenu.InsertInMenuBar _ (ThisDrawing.Application.MenuBar.Count + 1) ' Add the submenu 222222 Dim FileSubMenu1 As AcadPopupMenu Set FileSubMenu1 = newMenu.AddSubMenu("", "carre") ' Add a menu item to the sub menu Dim newMenuItem3 As AcadPopupMenuItem Dim openMacro3 As String ' Assign the macro the VB equivalent of "ESC ESC _open " openMacro3 = "_10 " Set newMenuItem3 = FileSubMenu1.AddMenuItem _ (newMenu.Count + 1, "10", openMacro3) ' Add a menu item to the sub menu Dim newMenuItem4 As AcadPopupMenuItem Dim openMacro4 As String ' Assign the macro the VB equivalent of "ESC ESC _open " openMacro4 = "_20 " Set newMenuItem4 = FileSubMenu1.AddMenuItem _ (newMenu.Count + 1, "20", openMacro4) ' Add a menu item to the sub menu Dim newMenuItem5 As AcadPopupMenuItem Dim openMacro5 As String ' Assign the macro the VB equivalent of "ESC ESC _open " openMacro5 = "_30 " Set newMenuItem5 = FileSubMenu1.AddMenuItem _ (newMenu.Count + 1, "30", openMacro5) ' Display the menu on the menu bar newMenu.InsertInMenuBar _ (ThisDrawing.Application.MenuBar.Count + 1) End Sub

Rebonjour à ts! Donc g réussi à avancer sur mon problème et donc j'ai créé un menu "bibliotheque" qui comporte 2 sousmenus, qui comportent eux meme 3 sousmenus. Maintenant le probleme que je rencontre: comment lier un bloc ou une macro à un de ces sousmenus?? Si quelqu'un sait comment faire il est le bienvenu... Ou si quelqu'un est interressé par la methode pour créér un menu avec sous menu n'hesitez pas.. merci

Bonjour à tous. Dans le cadre d'un stage, je vais avoir à réaliser, sur AUTOCAD, un menu "bibliothèque" et y inserer des profilés en tout genre. Ceci aura pour but de repertorier toutes leurs pièces de tuyauterie afin de faciliter la conception de plan. Donc ce domaine étant tout nouveau pour moi, j'aimerai avoir toutes les informations nécessaires pour la réalisation, et si quelqu'un aurai un schéma directeur pour un tel travail ça m'arrangerai fortement.... :(