[求助]：怎么替换原有的屏幕菜单？？

bbu · 发表于 2003-2-9 22:11:42

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

请尽量详细点。

游手好闲 · 发表于 2003-2-9 23:41:31

老兄：你问的一点都不详细。
用那个定制菜单的命令大体就可以为所欲为。

saintdog · 发表于 2003-2-12 09:20:25

楼上的，能不能说详细点

chashiyang · 发表于 2003-2-12 12:48:55

你是指修改吗？？？？？？

zhanghao · 发表于 2003-2-22 14:47:30

我想把我现在autocad自己设置的坏境备分下来，以后重装电脑，或在其它电脑上用cad时又能恢复我作图的坏境，请问怎么做法

eachy · 发表于 2003-2-22 15:17:24

最初由 bbu 发布
[B]请尽量详细点。 [/B]

1 彻底修改（不推荐使用）
用自己编辑好的屏幕菜单替换掉ACAD.MNU中的SCREEN菜单部分，然后重新加载。

2 参考晓东工具箱部分（推荐），不修改系统MNU，按需加载。但是如果要一直显示需关闭屏幕菜单的响应，但对象天正3.0中要用到屏幕菜单写墙柱参数的时候会麻烦些。

;;
;;屏幕菜单开关与切换控制For 2000+，R14中需手动打开屏幕菜单 written by eachy
;;
(defun c:xscrmnu (/ scr #scr_display #acadver)
;;保存屏幕菜单初始状态，0　菜单关闭
(setq #scr_display (getvar "screenboxes")
#acadver (atof (getvar "acadver"))
)
(if (and (< #acadver 15.0)
(= #scr_display 0)
)
(progn
(princ "\n\t您使用的版本为R14，请先手动加载屏幕菜单!!!")
(exit)
)
)
(if #xdscrmnu
(progn
(if (and (> #acadver 15.0)
(if (> #acadver 15.0)
(= (vl-bb-ref '#mnu_display) 0)
)
)
(c:xscrmnud)
(progn
(setq scr (last (xdrx_string_tok (getvar "menuname") "\")))
(menucmd (strcat "s=" scr ".screen"))
)
)
(setq #xdscrmnu nil)
)
(progn
(if (> #acadver 15.0)
(progn
(setvar "menuctl" 0)
(cond
((= (getvar "screenboxes") 0)
(c:xscrmnud)
)
((= (vl-bb-ref '#mnu_display) 0)
(c:xscrmnud)
)
(T)
)
)
)
(menucmd "s=xdsoft.screen")
(setq #xdscrmnu T)
)
)
(princ)
)

;; 
;;屏幕菜单开关与切换控制For 2000+，R14中需手动打开屏幕菜单 written by eachy 
;; 
(defun c:xscrmnu (/ scr #scr_display #acadver) 
  ;;保存屏幕菜单初始状态，0　菜单关闭 
  (setq        #scr_display (getvar "screenboxes") 
        #acadver     (atof (getvar "acadver")) 
  ) 
  (if (and (< #acadver 15.0) 
           (= #scr_display 0) 
      ) 
    (progn 
      (princ "\n\t您使用的版本为R14，请先手动加载屏幕菜单!!!") 
      (exit) 
    ) 
  ) 
  (if #xdscrmnu 
    (progn 
      (if (and (> #acadver 15.0) 
               (if (> #acadver 15.0) 
                 (= (vl-bb-ref '#mnu_display) 0) 
               ) 
          ) 
        (c:xscrmnud) 
        (progn 
          (setq scr (last (xdrx_string_tok (getvar "menuname") "\"))) 
          (menucmd (strcat "s=" scr ".screen")) 
        ) 
      ) 
      (setq #xdscrmnu nil) 
    ) 
    (progn 
      (if (> #acadver 15.0) 
        (progn 
          (setvar "menuctl" 0) 
          (cond 
            ((= (getvar "screenboxes") 0) 
             (c:xscrmnud) 
            ) 
            ((= (vl-bb-ref '#mnu_display) 0) 
             (c:xscrmnud) 
            ) 
            (T) 
          ) 
        ) 
      ) 
      (menucmd "s=xdsoft.screen") 
      (setq #xdscrmnu T) 
    ) 
  ) 
  (princ) 
)

eachy · 发表于 2003-2-22 15:21:42

最初由 zhanghao 发布
[B]我想把我现在autocad自己设置的坏境备分下来，以后重装电脑，或在其它电脑上用cad时又能恢复我作图的坏境，请问怎么做法 [/B]

CAD的环境设置分几种，和路径的相关的不一定通用，CAD作图环境比如捕捉、DIM样式等可以通用，保存个DWT是不错的选择。

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

[求助]：怎么替换原有的屏幕菜单？？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

Re: [求助]：怎么替换原有的屏幕菜单？？