显示工具条，关闭工具条

dcl1214 · 发表于 2020-1-31 15:09:27

购买主题 已有 4 人购买 本主题需向作者支付 2 D豆 才能浏览

lhtfhc · 发表于 2020-1-31 15:59:56

你这个怎么用呢？

taoyi0727 · 发表于 2020-1-31 17:57:43

本帖最后由 taoyi0727 于 2020-1-31 17:58 编辑

;;说明:隐藏/显示工具条
;;参数:me:菜单组名称
;;参数:to:工具条名称
;;参数:0?1:0--隐藏 1--显示
;;返回:nil
;;用法:($toolbar-visible$ "水货工具" "常用" 1)
;;    ($toolbar-visible$ "水货工具" "常用" 0)
(defun $toolbar-visible$ (me to 0?1 / menu tool vis)
      ;显示工具条，关闭工具条，打开工具条，隐藏工具条
  (and
            (setq menu (vl-catch-all-apply
                                                               'vla-item
                                                               (list (vla-get-menugroups (vlax-get-acad-object))
                                                                     me
                                                               )
                                                      )
            );获取菜单组对象名
            (not (vl-catch-all-error-p menu));菜单组存在
            (setq
                     tool (vl-catch-all-apply
                                             'vla-item
                                             (list (vl-catch-all-apply 'vla-get-toolbars (list menu));获取工具栏对象名
                                                      to
                                             )
                                       );获取工具条对象名
            )
            (not (vl-catch-all-error-p tool));工具条存在
            (vl-catch-all-apply 'vla-put-visible (list tool 0?1));设置工具条状态
  )
)

huangpc27 · 发表于 2020-2-3 11:04:36

非常不错，感谢分享

网事如尘 · 发表于 2020-3-6 07:52:18

学习了，感谢分享

专用车研发 · 发表于 2020-3-6 07:57:33

学习了，感谢分享

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

dcl1214 dcl1214 当前离线 UID 677066 积分 385 精华贡献威望活跃度 D豆在线时间小时注册时间 2013-6-2 最后登录 1970-1-1 窥视卡雷达卡	发表于 2020-1-31 15:09:27 \| 显示全部楼层 \|阅读模式【广而告之】积分规则、D豆获取攻略窝窝空间装扮攻略购买主题已有 4 人购买本主题需向作者支付 2 D豆才能浏览
	论坛插件加载方法发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
	回复使用道具举报提升卡置顶卡沉默卡变色卡千斤顶

[每日一码] 显示工具条，关闭工具条