请问模型与布局之间如何切换呢？

h008

我在写个批量打印的程序遇到个问题。
我是用程序获得整个图形文件的图框（块）对象坐标，想批量打印。我可以因为作图习惯，在布局空间内也会有很多图纸。所以现在就在一当前空间（模型或布局）时，程序只能打印出当前空间的所有图纸。
我看了下，所有对象的在各自空间的坐标是获得了。就是打印时没法切换。
求教！

自贡黄明儒

1 鼠标点击
2 (setvar "CTAB" "layout2")
3 按[Ctrl+Tab]
4
;;80.1 [功能] 激活最左边一个布局
;;下面程序使用vla-activate有问题,看起来没有错误
;;模型和布局之间自由切换(setvar "CTAB" "layout2")
(defun MJ:ActivateLastLayout (/ CNT I)  
  (vlax-for layout *LOUTS*
    (if        (= (vla-get-taborder layout) 1);取得布局的tab顺序,图纸空间的标签（tab）顺序必须是1或大于1
      (vla-put-ActiveLayout *DOC* layout) ; (vla-activate layout)运行有问题      
    )
  )
)

h008

谢谢黄大侠！

zzyong00

Thisdrawing.SetVariable "CTAB", "layout2"

hooboxu

;;;;;;;;;;;;;;;;;;;;;;;;;;;模型和布局切换
(defun c:` ()
(setvar "TILEMODE" (1- (getvar "TILEMODE")))
(princ)
)

第二个
(defun c:` (/)
(setvar 'tilemode (nth (getvar 'tilemode) '(1 0)))
(princ)
)

这二版都可以，我是收集的，不会LISP，一个是G版写的