layoutlist函数的实现代码

marting

列出当前文档所有的LAYOUT名， AUTOLISP提供了layoutlist函数

命令: (layoutlist)
("布局1" "布局2")

下面我们自己写个实现的函数

1. (defun _layoutlist (/ item name names)
   
2.   (vlax-for item (vla-get-layouts
   
3.                    (vla-get-ActiveDocument (vlax-get-acad-object))
   
4.                  )
   
5.     (setq name (vla-get-name item))
   
6.     (if (/= name "Model")
   
7.       (setq names (cons name names)))
   
8.   )
   
9.   (reverse names)
   
10. )
    
11. 
    

(defun _layoutlist (/ item name names)<br />   (vlax-for item (vla-get-layouts<br />                    (vla-get-ActiveDocument (vlax-get-acad-object))<br />                  )<br />     (setq name (vla-get-name item))<br />     (if (/= name "Model")<br />       (setq names (cons name names)))<br />   )<br />   (reverse names)<br /> )<br /> <br />

命令: (_layoutlist)
("布局1" "布局2")

青梅煮茶

啥也不说了，感谢楼主分享哇！

kqqt6236

啥也不说了，感谢楼主分享哇！

qqqincccken

谢谢楼主的分享试用一下

HLCAD

经典小程序，非常实用，楼主的每一个程序都令人爽心悦目！