加载下拉菜单

citykunan · 发表于 2004-3-30 11:25

怎么样通过lisp将一个自己做的下拉菜单加载到屏幕上。

用menuload命令，菜单是加载了，但是不显示。不知用menucmd函数可以实现吗？

谢谢。

meflying · 发表于 2004-3-30 11:39

加载后这样显示

citykunan · 发表于 2004-3-30 13:39

飞版主，这个我知道，我是想不通过做这些步骤，直接在运行玩一个lisp程序后，就直接在屏幕上看到自己加载的下拉菜单，不知可不可以？

meflying · 发表于 2004-3-30 14:06

既然你已知道menucmd这个函数，为什么不自己去试一下，要到这里问是否可以？？？

希望你自己琢磨出来后再看：

(menucmd "p11=menugroup.menuitem")

Jbear2000 · 发表于 2004-3-30 14:41

为什么需要回复啊

citykunan · 发表于 2004-3-30 14:49

飞版主我做了一个但是有点问题。 (defun c:test () (setvar "filedia" 0)
(if (= nil (MENUGROUP "menu1"))
(progn
(command "menuload" "menu1.mns")
(menucmd "p10=menu1.POP1") )
)
(setvar "filedia" 1) ) 是可以显示menu1这个菜单了，但一显示这个菜单，就把第10位window菜单给覆盖了，我直接用(menucmd "p13=menu1.POP1")确显示不了，不知如何？谢谢。

meflying · 发表于 2004-3-30 14:58

加载并显示菜单：参数： fname——菜单文件 index——显示的位置 (defun AddMenu (fname groupname popname index / APP MG MGS PMS)
(setq APP (vlax-get-acad-object))
(setq MGS (vla-get-menugroups APP))
(setq MG (vl-catch-all-apply 'vla-Item (list MGS groupname)))
(if (vl-catch-all-error-p MG)
(setq MG (vla-load MGS fname))
)
(setq PMS (vla-get-menus MG))
(vla-insertmenuinmenubar PMS popname index)
)

citykunan · 发表于 2004-3-30 16:06

谢谢飞版主，问题解决了。

mccad · 发表于 2004-3-30 19:11

给个例子给你：

;; ----------- 将明经增效菜单放到下拉菜单的倒数第三位的函数 ------------
;; 该函数将明经增效菜单放到AutoCAD下拉菜单的倒数第三位。
;; ----------------------------------------------------------------
(defun mccad-init-placemenu (/ CNT)
(setq CNT 1)
(while (< CNT 24)
(if (menucmd (strcat "P" (itoa CNT) ".1=?"))
(setq CNT (1+ CNT))
(progn
(if (> CNT 2)
(setq CNT (- CNT 2))
(setq CNT 2)
)
(menucmd (strcat "p" (itoa CNT) "=+MCCAD.pop1"))
(setq CNT 25)
)
)
)
)
(mccad-init-placemenu)

m218 · 发表于 2004-4-3 13:06

学习

账号		自动登录	找回密码
密码			注册

加载下拉菜单

本帖子中包含更多资源