博客网 >

屏幕菜单切换
作者:分类:默认分类标签:
原文地址
http://www.xdcad.net/forum/showthread.php?s=&postid=176897#post176897

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

2 参考晓东工具箱部分(推荐),不修改系统MNU,按需加载。但是如果要一直显示需关闭屏幕菜单的响应,但对象天正3.0中要用到屏幕菜单写墙柱参数的时候会麻烦些。
代码: 2003年02月22日

;;
;;屏幕菜单开关与切换控制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)
)
<< 使用vlisp在Ms Acces... / 两个矢量的叉积 >>

专题推荐

不平凡的水果世界

不平凡的水果世界

平凡的水果世界,平凡中的不平凡。 今朝看水果是水果 ,看水果还是水果 ,看水果已不是水果。这境界,谁人可比?在不平凡的水果世界里,仁者见仁,智者见智。

中国春节的那些习俗

中国春节的那些习俗

正月是农历新年的开始,人们往往将它看作是新的一年年运好坏的兆示期。所以,过年的时候“禁忌”特别多。当然,各个地方的风俗习惯不一样,过年的禁忌也是不一样的。

评论
0/200
表情 验证码:

eachy

  • 文章总数0
  • 画报总数0
  • 画报点击数0
  • 文章点击数0
个人排行
        博文分类
        日期归档