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

这个是非常需要

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

回复一下看隐藏

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

回复来看看吧

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

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

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

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

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

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

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

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

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

(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:55

回复看精华！！！！

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

回复看看！！！
页: 1 2 3 4 5 6 7 [8] 9 10
查看完整版本: 加载下拉菜单