0 Members and 1 Guest are viewing this topic.
Sub Example_Menus() ' This example finds the names of all menus in the first menu group. Dim menuNames As String Dim menuCollection As AcadPopupMenus Dim menu As AcadPopupMenu Set menuCollection = ThisDrawing.Application.MenuGroups.Item(0).Menus menuNames = "" For Each menu In menuCollection menuNames = menuNames & menu.name & vbCrLf Next menu MsgBox menuNamesEnd Sub
(defun ax:ListToolbars (groupName / mGroups mGroup lst) (vl-load-com) (if (not (vl-catch-all-error-p (setq mGroup (vl-catch-all-apply 'vla-item (list (vla-get-menugroups (vlax-get-acad-object)) groupName ) ) ) ) ) (vlax-for tBar (vla-get-toolbars mGroup) (setq lst (cons (vla-get-name tBar) lst)) ) ))
(if (menugroup "ase_partial")(alert "ASE Partial Menu is loaded.")(alert "Cannot find specified menu."))
Just for reference:Code: [Select](if (menugroup "ase_partial")(alert "ASE Partial Menu is loaded.")(alert "Cannot find specified menu."))
Quote from: Dommy2Hotty on September 23, 2005, 03:00:13 PMJust for reference:Code: [Select](if (menugroup "ase_partial")(alert "ASE Partial Menu is loaded.")(alert "Cannot find specified menu."))I mean...Crank's routine..
(if (member "toolbarname" (ax:listtoolbars "menuname")) (princ "\nToolbar exists") (princ "\nToolbar not present"))