获取图层列表的三种方法和效率比较

marting

1. ;方法1
   
2. (defun GetLayers1 (/ lst)
   
3.   (vlax-map-collection
   
4.     (vla-get-Layers
   
5.       (vla-get-ActiveDocument
   
6.         (vlax-get-acad-object)
   
7.       )
   
8.     )
   
9.     (function
   
10.       (lambda (x) (setq lst (cons (vla-get-name x) lst)))
    
11.     )
    
12.   )
    
13.   lst
    
14. )
    

;方法1<br /> (defun GetLayers1 (/ lst)<br />   (vlax-map-collection<br />     (vla-get-Layers<br />       (vla-get-ActiveDocument<br />         (vlax-get-acad-object)<br />       )<br />     )<br />     (function<br />       (lambda (x) (setq lst (cons (vla-get-name x) lst)))<br />     )<br />   )<br />   lst<br /> )<br />

1. ;方法2
   
2. (defun GetLayers2 (/ tdef lst)
   
3.   (while (setq tdef (tblnext "LAYER" (not tdef)))
   
4.     (setq lst (cons (cdr (assoc 2 tdef)) lst))
   
5.   )
   
6.   lst
   
7. )
   

;方法2<br /> (defun GetLayers2 (/ tdef lst)<br />   (while (setq tdef (tblnext "LAYER" (not tdef)))<br />     (setq lst (cons (cdr (assoc 2 tdef)) lst))<br />   )<br />   lst<br /> )<br />

方法三：

游客，如果您要查看本帖隐藏内容请回复

效率比较：

(GETLAYERS3).....1123 / 1.40 <最快>
(GETLAYERS1).....1264 / 1.25  
(GETLAYERS2).....1576 / 1.00 <最慢>

q3_2006

第三种方法还真不知道哈..学习了..

q3_2006

原来 1才是没用过的方法哈...

newer

方法2，慢就慢在每次都要打开图层表进行读操作，其他两个方法都是打开一次，就读出所有层信息了。

auva

来学习第三种方法了，感谢！

pengfei2010

看看啥子好东西，谢谢楼主

llsheng_73

学习最高效的方法

sh_h

回复看看第三种方法！！！

zz159504

学习最高效的方法

xinxirong

ffffffffffffffffffffffffffffffffffffffffff

占卜者

谢谢楼主

cable2004

学习了..

dnbcgrass

回复看看！

sicky111

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

yoyoho

确实是难得好帖啊，顶先