加载下拉菜单

品茗新秀 · 发表于 2012-12-25 18:32

这个是非常需要

蒹葭_Keirll · 发表于 2012-12-25 19:29

回复一下看隐藏

yaokui25 · 发表于 2012-12-25 20:37

回复来看看吧

haoryh · 发表于 2012-12-25 23:42

此地高手如云，兄弟也要来看看

smartstar · 发表于 2013-4-1 15:08

菜单总是插不对位置，学习学习。

tangjunasd58 · 发表于 2013-4-19 22:41

好像只能加载工具条，不能加载菜单。。。。。。。。。

tangjunasd58 · 发表于 2013-4-19 22:43

我怎么只能加载工具条，不能加载下拉菜单呢。。。。。

tangjunasd58 · 发表于 2013-4-19 22:44

(defun c:mu (/ pre_filedia CNT)
  (if (not (menugroup "MXGJX"))
(progn
   (setq pre_filedia (getvar "filedia"))
   (setvar "filedia" 0)
   (vl-cmdf "menuload" "MXGJX")
   (setq CNT 1)
   (while (menucmd (strcat "P" (itoa CNT) ".1=?"))
(setq CNT (1+ CNT))
   )
   (if (> CNT 1)
(setq CNT (- CNT 1))
(setq CNT 1)
   )
   (menucmd (strcat "P" (itoa CNT) "=+MXGJX.pop1"))
   (princ
"\n菜单及工具条已成功加载,欢迎您再次使用！"
   )
   (setvar "filedia" pre_filedia)
)
(prompt "\n菜单已加载！")
  )
  (princ)
)
(c:mu)
;;卸载自定义菜单
(defun c:umu (/ pre_filedia)
  (if (menugroup "MXGJX")
(progn
   (setq pre_filedia (getvar "filedia"))
   (setvar "filedia" 0)
   (vl-cmdf "menuunload" "MXGJX")
   (princ
"\n菜单及工具条已成功卸载,欢迎您再次使用！"
   )
   (setvar "filedia" pre_filedia)
)
(prompt "\n未找到需要卸载的菜单！")
  )
  (princ)
)

200853006 · 发表于 2013-4-20 14:27

回复看精华！！！！

人生1228 · 发表于 2013-5-12 22:43

回复看看！！！

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