计算图层个数

xubin9705

请教各位程序高手，我想计算图中有多少个图层，并且能把这些图层读出来，该怎么写这个程序!!!

sailorcwx

3. ;alisp方法实现
4. (defun c:amf(/ YH_INDEX YH_LAYER YH_LAYERS)
5.   (setq YH_layers (list (cdr (assoc 2 (tblnext "LAYER" T))))
6. YH_index 1
7. )
8.   (while (setq YH_layer (tblnext "LAYER"))
9.     (setq YH_layers (append YH_layers (list (cdr (assoc 2 YH_layer))))
10.    YH_index (1+ YH_index))
11.     )
12.   (princ YH_layers)
13.   (princ YH_index)
14.   (princ)
15.   )
17. ;vlisp方法实现
18. (defun c:vmf()
19.   (vl-load-com)
20.   (setq YH_layersclt (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
21. YH_index (vla-get-count YH_layersclt)
22. YH_layers '()
23. )
24.   (vlax-for YH_layer YH_layersclt
25.     (setq YH_layers (append YH_layers (list (vla-get-name YH_layer))))
26.     )
27.   (princ YH_layers)
28.   (princ YH_index)
29.   (princ)
30.   )

;alisp方法实现 (defun c:amf(/ YH_INDEX YH_LAYER YH_LAYERS)   (setq YH_layers (list (cdr (assoc 2 (tblnext "LAYER" T)))) YH_index 1 )   (while (setq YH_layer (tblnext "LAYER"))     (setq YH_layers (append YH_layers (list (cdr (assoc 2 YH_layer))))    YH_index (1+ YH_index))     )   (princ YH_layers)   (princ YH_index)   (princ)   ) ;vlisp方法实现 (defun c:vmf()   (vl-load-com)   (setq YH_layersclt (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))) YH_index (vla-get-count YH_layersclt) YH_layers '() )   (vlax-for YH_layer YH_layersclt     (setq YH_layers (append YH_layers (list (vla-get-name YH_layer))))     )   (princ YH_layers)   (princ YH_index)   (princ)   )

carrot1983

楼上的厉害哦..两种方法都提出来了..

顶一个

xubin9705

谢谢,你真厉害

Sayonana

1. (vla-get-count (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))))

复制代码

LongZT

能否简单的解释下,因为我是新手.谢谢!