柴月二号 发表于 2018-3-31 14:39:34

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

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

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

hjmjtd 发表于 2018-4-6 15:05:02

本帖最后由 hjmjtd 于 2018-4-6 15:07 编辑

(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)
)
)
;;;      程序功能：如果标准工具栏未显示，则显示出来

柴月二号 发表于 2018-3-31 14:51:28

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

ysq101 发表于 2018-4-5 20:20:43

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

柴月二号 发表于 2018-4-5 22:21:54

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

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

柴月二号 发表于 2018-4-6 18:10:28

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 22:55:33

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

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

ysq101 发表于 2018-4-6 23:04:06

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

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

669423907 发表于 2018-4-8 22:00:21

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 发表于 2018-8-7 10:45:50

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

你好cad怎么用
页: [1] 2
查看完整版本: 请教前辈关于工具条的显示和隐藏问题