如何循环布局
(setq paperspace(vla-get-paperspace
(vla-get-activeDocument (vlax-get-acad-object))
)
)
(vlax-for pa paperspace
'''
)
这段话哪里有问题
;;;看看这个是不是你要的
(defun c:Switchlayout ( / getorderedlayouts l n )
(defun getorderedlayouts ( / l )
(vlax-for x (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object)))
(setq l (cons (list (vla-get-taborder x) (vla-get-name x)) l))
)
(mapcar 'cadr (vl-sort l '(lambda ( a b ) (< (car a) (car b)))))
)
(setq l (getorderedlayouts) n (length l))
(setvar 'ctab (nth (rem (1+ (vl-position (getvar 'ctab) l)) n) l))
(princ)
) ;;利用系统自带的函数
(defun c:tt ()
(ai_onoff 'TILEMODE)
(if (eq (getvar 'TILEMODE) 0)
(princ "\n已在布局")
(princ "\n已在模型")
)
(princ)
) maiko 发表于 2016-6-16 08:34 static/image/common/back.gif
多谢 我试试 maiko 发表于 2016-6-16 08:34 static/image/common/back.gif
是这样子 我想不打开dwg文件 然后 在多个布局某一个 位置写字
也就是 DBX现在打开了 但是总是不会 处理 布局那块
页:
[1]