社区 › Auto Lisp › “模型”选项卡到“布局”选项卡

Lee Mac 发表于 2022-7-6 15:08:22

当我们都在做的时候。。。
 

(defun c:tm ()
(or (and (zerop (getvar 'tilemode))
          (setvar 'tilemode 1))
   (setvar 'tilemode 0))
(princ))

ronjonp 发表于 2022-7-6 15:11:00

更复杂的是：D：
 
(defun c:tm (/ spc doc)
(vl-load-com)
(setq spc (vlax-get (setq doc (vlax-get (vlax-get-acad-object) 'activedocument))
                     'activespace
         )
)
(vlax-put doc 'activespace (- 1 spc))
(princ)
)

Lee Mac 发表于 2022-7-6 15:14:54

不确定是否已使用COND。。。
 

(defun c:tm ()
(cond ((zerop (getvar 'tilemode))
      (setvar 'tilemode 1))
       (T (setvar 'tilemode 0)))
(princ))

Freerefill 发表于 2022-7-6 15:17:10

“CTAB”也可以。。
 

(defun c:tm( / )
(if (member (getvar "ctab") (layoutlist))
   (setvar "ctab" "Model")
   (setvar "ctab" (nth 0 (layoutlist)))
   )
)

alanjt 发表于 2022-7-6 15:21:05

 
炫耀

Commandobill 发表于 2022-7-6 15:23:46

好吧，我做了一个。。。
 
 
(defun c:tmz( / )
(if (member (getvar "ctab") (layoutlist))
   (setvar "ctab" "Model")
   (command "layout" "set" (nth 0 (layoutlist)))
   )
)

wizman 发表于 2022-7-6 15:28:34

这是另一个
11

Lee Mac 发表于 2022-7-6 15:31:57

 
Ingenius-没有想到这一点

Commandobill 发表于 2022-7-6 15:32:56

哈哈，这不漂亮，但我把它扔在一起了
 
12

Lee Mac 发表于 2022-7-6 15:37:54

无法抗拒：
 
13

查看完整版本: “模型”选项卡到“布局”选项卡