请教前辈关于工具条的显示和隐藏问题

柴月二号

请教前辈现在我有两句简单的
(command "toolbar" "all" "hide")
(command "toolbar" "标准" "show")

现在我想
假如  标准工具条已经打开则不执行第一句关闭所有工具条的lisp   请前辈指教

hjmjtd

(defun c:00 (/ menu tool vis)   (vl-load-com)
  (setq        menu        (vla-item (vla-get-menugroups (vlax-get-acad-object)) "cass")
        ;cass 代表你 标准工具栏 在这个cass菜单文件里边
        tool        (vla-item (vla-get-toolbars menu) "标准")
        vis        (vla-get-visible tool)
  )
  (if (= vis :vlax-false)
    (vla-put-visible tool :vlax-true)
  )
)
;;;        程序功能：如果标准工具栏未显示，则显示出来

柴月二号

自己只能想到 用if  但是 如何判断工具条已经是打开状态  想不到解决办法

ysq101

这个请求我也想知道怎么写。。。有点实用   一劳永逸

柴月二号

ysq101 发表于 2018-4-5 20:20
这个请求我也想知道怎么写。。。有点实用   一劳永逸

主要是之前没接触过工具条的问题，有点尴尬

柴月二号

hjmjtd 发表于 2018-4-6 15:05
(defun c:00 (/ menu tool vis)   (vl-load-com)
  (setq        menu        (vla-item (vla-get-menugro ...

太感谢了，谢谢前辈

ysq101

柴月二号 发表于 2018-4-6 18:10
太感谢了，谢谢前辈

被我一顶。。。顶出高手来了？？非常好的LISP   支持啊！！！！！

ysq101

柴月二号 发表于 2018-4-6 18:10
太感谢了，谢谢前辈

能否讲解下“CASS”应该怎么写？？
或发你修改好的参考一下？
太久没写LISP
都忘记得7788了

669423907

ysq101 发表于 2018-4-6 23:04
能否讲解下“CASS”应该怎么写？？
或发你修改好的参考一下？
太久没写LISP

;我猜对了
(defun c:13(/ menu tool vis)   (vl-load-com)
  (setq        menu        (vla-item (vla-get-menugroups (vlax-get-acad-object)) "acad")
        ;cass 代表你 标准工具栏 在这个cass菜单文件里边
        tool        (vla-item (vla-get-toolbars menu) "绘图")
        vis        (vla-get-visible tool)
  )
  (if (= vis :vlax-false)
    (vla-put-visible tool :vlax-true)
    (vla-put-visible tool :vlax-false)
  )
)

664571221

hjmjtd 发表于 2018-4-6 15:05
(defun c:00 (/ menu tool vis)   (vl-load-com)
  (setq        menu        (vla-item (vla-get-menugro ...

你好cad怎么用