使用Visual Studio访问菜单栏
全部的有谁能提供“PopupMenu”和“Insertinmenubar”标签的例子吗？
谢谢
马特 这是我到目前为止得到的：
(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)
我仍然需要知道“insertinmenubar”是如何工作的。
谢谢
马特 像这样的？
(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))))
)
)
)
页:
[1]