不打开图形，列表一个磁盘上DWG的所有LAYOUT名

marting

1. (defun layout-list-of-file (file / odbx list_lay lays)
   
2.   (vl-load-com)
   
3.   (setq
   
4.     odbx     (if (< (setq vers (substr (getvar "acadver") 1 2)) "16")
   
5.                (vla-GetInterfaceObject
   
6.                  (vlax-get-acad-object)
   
7.                  "ObjectDBX.AxDbDocument"
   
8.                )
   
9.                (vla-GetInterfaceObject
   
10.                  (vlax-get-acad-object)
    
11.                  (strcat "ObjectDBX.AxDbDocument." vers)
    
12.                )
    
13.              )
    
14.     list_lay (list)
    
15.   )
    
16.   (vla-open odbx file)
    
17.   (setq lays (vlax-get odbx 'layouts))
    
18.   (vlax-for lay        lays
    
19.     (setq list_lay (cons (vla-get-name lay) list_lay))
    
20.   )
    
21.   (vlax-release-object lays)
    
22.   (vlax-release-object odbx)
    
23.   list_lay
    
24. )
    

(defun layout-list-of-file (file / odbx list_lay lays)<br />   (vl-load-com)<br />   (setq<br />     odbx     (if (< (setq vers (substr (getvar "acadver") 1 2)) "16")<br />                (vla-GetInterfaceObject<br />                  (vlax-get-acad-object)<br />                  "ObjectDBX.AxDbDocument"<br />                )<br />                (vla-GetInterfaceObject<br />                  (vlax-get-acad-object)<br />                  (strcat "ObjectDBX.AxDbDocument." vers)<br />                )<br />              )<br />     list_lay (list)<br />   )<br />   (vla-open odbx file)<br />   (setq lays (vlax-get odbx 'layouts))<br />   (vlax-for lay        lays<br />     (setq list_lay (cons (vla-get-name lay) list_lay))<br />   )<br />   (vlax-release-object lays)<br />   (vlax-release-object odbx)<br />   list_lay<br /> )<br />

命令： (layout-list-of-file "C:\\abc.dwg" )
("Model" "Layout2" "Layout1")

sicky111

沙发。支持楼主。