[原创]：显示隐藏 工具条 开关程序

狂刀

[php]
;;  显示隐藏 工具条 开关程序.  ****狂刀***200411  ;;
(defun c:htb (/ lst);; tb-show-lst
  (if tb-show-lst
    (progn (mapcar '(lambda (x) (vla-put-visible x :vlax-true))tb-show-lst) (setq tb-show-lst nil))
    (progn
      (vlax-map-collection
        (vla-get-MenuGroups (vlax-get-acad-object))
        '(lambda (x)
           (vlax-map-collection
             (vla-get-toolbars x)
             '(lambda (y)
                (if (eq (vla-get-visible y) :vlax-true)
                  (setq tb-show-lst (cons y tb-show-lst))
                )
              )
           )
         )
      )
      (mapcar '(lambda (x) (vla-put-visible x :vlax-false))tb-show-lst)
    )
  )
)
[/php]

wkai

提两个问题
1 隐藏工具条没有问题 ，显示时工具条位置会改变
2 如果工具条被隐藏时关闭了CAD，下次启动CAD就没法自动恢复工具条了

silen618

04版有CleanScreenON/OFF（全屏显示/关），应该更好用一些。

clty

用 autohook
很好用！
一个例子
crtl F1为
-toolbar xdtb:常用数字 s

伊伊哎哎

哎呀，好晕啊，狂刀快快修改你的程序，我的CAD2006用了楼上的程序，原来的排列全乱了，而且也没法复原，更要命的是所有工具栏不可以移动了，也就是说工具栏全成定格了，不可用鼠标拖动到想要的位置了！

贱人

最初由 wkai 发布
[B]提两个问题
1 隐藏工具条没有问题 ，显示时工具条位置会改变
2 如果工具条被隐藏时关闭了CAD，下次启动CAD就没法自动恢复工具条了 [/B]

确实如此，第2个问题最好在退出cad前强制显示工具条
第一个问题对我没影响，我只用一个工具条，哈

小钉子

在2006中也有这样的功能
感觉用处不大

amengsq

工具条位置会改变，或是不能启动了怎么办呀？

lcf1788

还是暂时不用这个程序了.

aliu22

要是能恢复开设的样子就好了

xiaoyanyan

在没解决之前建议先不要用为妙。

userzhluserzhl

我从来不用工具条，而且是全屏画图的，作用不大，我建议能把什么功能加到右下角的状态栏就好了！

egos

能不能把菜单栏也隐藏

zxdvip

同意userzhluserzhl的说法，工具条太多，眼晕，影响作图效率，放在左下角或右下角，能自动显示和隐藏会更好

zzt21963

同意userzhluserzhl的说法