请问能否通过lisp快速控制“布局和模型选项卡”在屏幕上是否显示?

hardthinking

请问能否通过lisp控制“布局和模型选项卡”在屏幕上是否显示?
屏幕上的元素都干掉了，就差这一个了。

;;; -------------------------------------------------------------------------
;;简洁模式开
;;命令：J
(DEFUN C:J ()
(command "STATUSBAR" "0")
(command "MENUBAR" "0")
)
;;简洁模式关
;;命令：JJ
(DEFUN C:JJ ()
(command "STATUSBAR" "1")
(command "MENUBAR" "1")
)

xshrimp

可以合并写个开关.

2. 
   
3. (defun c:jj ()
   
4.   (setq state (- 1 (getvar "menubar")))
   
5.   (setvar "statusbar" state)
   
6.   (setvar  "menubar"  state)
   
7.   (vla-put-displaylayouttabs(vla-get-display(vla-get-preferences (vlax-get-acad-object))) state)
   
8. )

<br /> (defun c:jj ()<br />   (setq state (- 1 (getvar "menubar")))<br />   (setvar "statusbar" state)<br />   (setvar  "menubar"  state)<br />   (vla-put-displaylayouttabs(vla-get-display(vla-get-preferences (vlax-get-acad-object))) state)<br /> )

wowan1314

(vla-put-DisplayLayoutTabs(vla-get-display(vla-get-preferences (vlax-get-acad-object))):vlax-false)

hardthinking

wowan1314 发表于 2013-8-8 20:42
(vla-put-DisplayLayoutTabs(vla-get-display(vla-get-preferences (vlax-get-acad-object))):vlax-false)

如何能再让这个选项卡出来呢？我想对他召之即来挥之即去·~

hhhaaa1121

(vla-put-DisplayLayoutTabs(vla-get-display(vla-get-preferences
(vlax-get-acad-object))):vlax-true)

ysq101

这是个好主题

newer

wowan1314 发表于 2013-8-8 20:42
(vla-put-DisplayLayoutTabs(vla-get-display(vla-get-preferences (vlax-get-acad-object))):vlax-false)

见到false 那就是一个开关，反操作就是TRUE

hardthinking

多谢各位大侠帮助，我现在已经把这条加到小程序里了，如下：
;;; -------------------------------------------------------------------------
;;简洁模式开
;;命令：J
(DEFUN C:J ()
(command "STATUSBAR" "0")
(command "MENUBAR" "0")
(vla-put-DisplayLayoutTabs(vla-get-display(vla-get-preferences (vlax-get-acad-object))):vlax-false)
)
;;简洁模式关
;;命令：JJ
(DEFUN C:JJ ()
(command "STATUSBAR" "1")
(command "MENUBAR" "1")
(vla-put-DisplayLayoutTabs(vla-get-display(vla-get-preferences (vlax-get-acad-object))):vlax-true)
  )

现在是按“J”隐藏，按“JJ”显示，，屏幕一下清爽很多。
请问，把这两个命令合并成一个命令容易吗？比如按“J”，如果隐藏则显示，如果显示则隐藏？

st788796

ctrl+0 ctrl+9来自: Android客户端

hardthinking

st788796 发表于 2013-8-9 12:59
ctrl+0 ctrl+9

我这个小lisp里消隐的这三项 “系统托盘”，“菜单栏”和“模型和布局选项板”，CTRL+0是消不了的，，其次我是想借这个问题，学习下lisp中类似if...then这样的格式是怎么写的，，拜托啦，，

st788796

hardthinking 发表于 7&nbsp;小时前

                               
登录/注册后可看大图

我这个小lisp里消隐的这三项 “系统托盘”，“菜单栏”和“模型和布局选项板”，CTRL+0是消不了的，，其次我是想借这个问题，学习下lisp中类似if...then这样的格式是怎么写的，，拜托啦，

alisp没有if...then只有if...progn...progn来自: Android客户端

hardthinking

xshrimp 发表于 2013-8-9 21:55
可以合并写个开关.

谢谢，我好好研究下...{:soso_e181:}

hardthinking

学习了xshrimp提供的函数，查了下setq  getq  setvar 的意思，自己做了个“快捷特性栏”的开关，并附上了我对语句的理解，大侠们看看我说的对不对
;;快捷特性开关
;;命令：qq
(defun c:qq ()
  (setq haha (- 1 (getvar "QPMODE")))  ;;定义了一个自变量haha，能让getvar得到的同类型系统变量-1
  (setvar "QPMODE" haha)                       ;;赋予QPMODE刚才定义的自变量haha
(prompt "快捷特性状态已切换")             ;;出现提示语
   )

PS：顺便说下我做的这个小程序的好处：
    CAD2012及以后版本，按系统自定义的“快捷特性”开关快捷键CTRL+SHIFT+P，会让已经选择好的对象失去选择，导致需要重新选择。
用这个LISP则避免了这样的情况。

另求各位大侠指点： 我如何做到提示语根据情况不同变化提示语？如：快捷特性已打开；快捷特性已关闭？

hardthinking

我编的这个lsp出问题了
;;快捷特性开关
;;命令：qq
(defun c:qq ()
  (setq haha (- 1 (getvar "QPMODE")))  ;;定义了一个自变量haha，能让getvar得到的同类型系统变量-1
  (setvar "QPMODE" haha)                       ;;赋予QPMODE刚才定义的自变量haha
(prompt "快捷特性状态已切换")             ;;出现提示语
   )

昨天还一直用的好好的，今天用着用着，CAD提示
"; 错误: AutoCAD 变量设置被拒绝: "QPMODE" 3"
请问是怎么回事？