如何循环布局

123523058

1. (setq paperspace
   
2.        (vla-get-paperspace
   
3.    (vla-get-activeDocument (vlax-get-acad-object))
   
4.        )
   
5. )
   
6. (vlax-for pa paperspace
   
7.    '''
   
8.       )

(setq paperspace<br />        (vla-get-paperspace<br />    (vla-get-activeDocument (vlax-get-acad-object))<br />        )<br /> )<br /> (vlax-for pa paperspace<br />    '''<br />       )

这段话哪里有问题

maiko

2. ;;;[em01]看看这个是不是你要的
   
3. (defun c:Switchlayout ( / getorderedlayouts l n )
   
4.   (defun getorderedlayouts ( / l )
   
5.     (vlax-for x (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object)))
   
6.       (setq l (cons (list (vla-get-taborder x) (vla-get-name x)) l))
   
7.     )
   
8.     (mapcar 'cadr (vl-sort l '(lambda ( a b ) (< (car a) (car b)))))
   
9.   )
   
10.   (setq l (getorderedlayouts) n (length l))
    
11.   (setvar 'ctab (nth (rem (1+ (vl-position (getvar 'ctab) l)) n) l))
    
12.   (princ)
    
13. )

;;;[em01]看看这个是不是你要的<br /> (defun c:Switchlayout ( / getorderedlayouts l n ) <br />   (defun getorderedlayouts ( / l )<br />     (vlax-for x (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object)))<br />       (setq l (cons (list (vla-get-taborder x) (vla-get-name x)) l))<br />     )<br />     (mapcar 'cadr (vl-sort l '(lambda ( a b ) (< (car a) (car b)))))<br />   )<br />   (setq l (getorderedlayouts) n (length l))<br />   (setvar 'ctab (nth (rem (1+ (vl-position (getvar 'ctab) l)) n) l))<br />   (princ)<br /> )

maiko

2. ;;利用系统自带的函数
   
3. (defun c:tt ()
   
4.   (ai_onoff 'TILEMODE)
   
5.   (if (eq (getvar 'TILEMODE) 0)
   
6.     (princ "\n已在布局")
   
7.     (princ "\n已在模型")
   
8.   )
   
9.   (princ)
   
10. )

;;利用系统自带的函数<br /> (defun c:tt ()<br />   (ai_onoff 'TILEMODE)<br />   (if (eq (getvar 'TILEMODE) 0)<br />     (princ "\n已在布局")<br />     (princ "\n已在模型")<br />   )<br />   (princ)<br /> )

123523058

maiko 发表于 2016-6-16 08:34

多谢 我试试      

123523058

maiko 发表于 2016-6-16 08:34

是这样子 我想不打开dwg文件 然后 在多个布局某一个 位置写字  
也就是 DBX  现在打开了 但是总是不会 处理 布局那块