[LISP函数]： 是否有函数可以求出AutoCAD200x所有的Layout数据表

mmmm

是否有函数可以求出AutoCAD200x所有的Layout数据表

LUCAS

Layout数据表指的是甚麼???

(LAYOUTLIST)  嗎???

秋枫

2. 
   
3. [FONT=courier new][COLOR=blue]
   
4. (defun ax:ListLayouts (/ layouts c lst lay)
   
5.   (vl-load-com)
   
6.   (setq        layouts        (vla-get-layouts
   
7.                   (vla-get-activedocument (vlax-get-acad-object))
   
8.                 )
   
9.         c        -1
   
10.   )
    
11.   (repeat (vla-get-count layouts)
    
12.     (setq lst (cons (setq c (1+ c)) lst))
    
13.   )
    
14.   (vlax-for lay        layouts
    
15.     (setq lst
    
16.            (subst
    
17.              (vla-get-name lay)
    
18.              (vla-get-taborder lay)
    
19.              lst
    
20.            )
    
21.     )
    
22.   )
    
23.   (reverse lst)
    
24. )
    
25. 
    
26. [/COLOR][/FONT]

<br /> [FONT=courier new][COLOR=blue]<br /> (defun ax:ListLayouts (/ layouts c lst lay)<br />   (vl-load-com)<br />   (setq        layouts        (vla-get-layouts<br />                   (vla-get-activedocument (vlax-get-acad-object))<br />                 )<br />         c        -1<br />   )<br />   (repeat (vla-get-count layouts)<br />     (setq lst (cons (setq c (1+ c)) lst))<br />   )<br />   (vlax-for lay        layouts<br />     (setq lst<br />            (subst<br />              (vla-get-name lay)<br />              (vla-get-taborder lay)<br />              lst<br />            )<br />     )<br />   )<br />   (reverse lst)<br /> )<br /> <br /> [/COLOR][/FONT]

rave

最初由 mmmm 发布
是否有函数可以求出AutoCAD200x所有的Layout数据表

可以用“纯”的lisp函数取得
layout是一个字典，用字典的lisp处理函数就可取得layouts列表。
看看下面

2. 
   
3. (setq newdictlist (dictsearch (namedobjdict) "ACAD_LAYOUT"))
   

<br /> (setq newdictlist (dictsearch (namedobjdict) "ACAD_LAYOUT"))<br />

执行结果
((-1 . <图元名: 40067cd0>) (0 . "DICTIONARY") (5 . "1A") (102 .
"{ACAD_REACTORS") (330 . <图元名: 40067c60>) (102 . "}") (330 . <图元名:
40067c60>) (100 . "AcDbDictionary") (280 . 0) (281 . 1) (3 . "Model") (350 .
<图元名: 40067d10>) (3 . "布局1") (350 . <图元名: 40067d48>) (3 . "布局2") (350
. <图元名: 40067d70>))