h008 发表于 2014-3-20 14:50:11

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

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

自贡黄明儒 发表于 2014-3-20 15:04:30

本帖最后由 自贡黄明儒 于 2014-3-20 15:09 编辑

1 鼠标点击
2 (setvar "CTAB" "layout2")
3 按
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 发表于 2014-3-20 15:35:19

谢谢黄大侠！

zzyong00 发表于 2014-9-26 22:42:18

Thisdrawing.SetVariable "CTAB", "layout2"

hooboxu 发表于 2014-9-26 22:50:59

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

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

这二版都可以，我是收集的，不会LISP，一个是G版写的
页: [1]
查看完整版本: 请问模型与布局之间如何切换呢？