社区 › AutoLISP/Visual LISP 编程技术 › 【求助】 关于制作自己的全屏工具<隐藏标题、菜单栏>

crtrccrt 发表于 2013-4-10 13:25:02

DynamicWrapperX

start4444 发表于 2013-4-10 14:23:36

帮顶，我也想要

长风（尚品） 发表于 2013-4-11 09:02:14

路过，这个方法很好，不过求完善

jj2098 发表于 2013-4-11 10:34:23

楼主有没有试过用下面类似的命令关闭或打开菜单条：
      (VL-CMDF "_Toolbar" "Tycad_layer" "SHOW")    ;显示菜单条Tycad_layer
      (VL-CMDF "_Toolbar" "Tycad_layer" "HIDE")      ;关闭菜单条Tycad_layer
其他菜单项也可用类似的方法打开或关闭。

start4444 发表于 2013-4-11 10:44:25

不懂，期待结果

注册 发表于 2013-6-17 16:20:33

静等结果

yeahyeah 发表于 2013-8-19 20:54:59

帮顶！期待中！

KO你 发表于 2022-3-11 17:53:45

本帖最后由 KO你 于 2022-3-11 17:57 编辑

快捷键oo1菜单栏开
(defun c:oo1 () (command"menubar""1"))

快捷键oo2菜单栏关
(defun c:oo2 () (command"menubar""0"))

快捷键oo3工具栏开
(defun c:oo3 () (command"cleanscreenoff"))

快捷键oo4工具栏关
(defun c:oo4 () (command"cleanscreenon"))

快捷键oo5命令栏开
(defun c:oo5 () (command"commandline"))

快捷键oo6命令栏关
(defun c:oo6 () (command"commandlinehide"))

快捷键oo7菜单栏+工具栏+命令栏 全开
(defun c:oo7 ()
(command "menubar""1")
(command "commandline")
(command "cleanscreenoff")
(princ))

快捷键oo8菜单栏+工具栏+命令栏 全关
(defun c:oo8 ()
(command "menubar""0")
(command "commandlinehide")
(command "cleanscreenon")
(princ))

(vla-put-WindowState(vla-get-ActiveDocument(vlax-get-acad-object))3)
(vla-put-WindowState(vlax-get-acad-object)3)                  ;窗口最大化

再弄个面板应该可以够用了

guosheyang 发表于 2022-3-11 23:08:04

标题栏如何关掉？

KO你 发表于 2022-3-13 14:46:09

guosheyang 发表于 2022-3-11 23:08
标题栏如何关掉？

不知道你说的标题栏是啥意思，我这里只有菜单栏，工具栏和命令栏

查看完整版本: 【求助】 关于制作自己的全屏工具<隐藏标题、菜单栏>