[编程交流] 使用Visual Studio访问菜单栏

(setq menu (vla-get-menubar(vlax-get-acad-object)))
(setq menu_count (vla-get-count menu))
(setq prln_list "")
(repeat menu_count
 (setq item_count (- menu_count 1))
 (setq names (vla-get-name (vla-item menu item_count)))
 (if (= names "Setty")
   (progn
     (setq prln "\nMenu already loaded.")
     (setq prln_list (list item_count names))))
 (setq menu_count (1- menu_count))
 (princ))
(if prin_list
 (progn
   (setq count (itoa (+ (car prln_list) 1)))
   (setq name (cadr prln_list))
   (princ (strcat "\nThe menu: " name ", was found in the " count " position of the menu bar.")))
 (princ "Setty Menu not loaded."))
(princ)

(defun InsMenu ( menu / acapp ) (vl-load-com)
 
 (vlax-for n (vla-get-MenuGroups (setq acapp (vlax-get-acad-object)))
   (if (eq (vla-get-name n) menu)
     (vla-InsertinMenuBar (vla-item (vla-get-menus n) 0) (1- (vla-get-Count (vla-get-MenuBar acapp))))
   )
 )
)