[编程申请]：请问一下如何能够得到cad中所有的图层

playboy

如题
如何得到cad的所有图层的列表
就是
（假如有三个层经过程序的计算就可以得到这三个层的列表）

gsxin00

点任意图层,在点右健,弹出对话框,点“selece all”即可。

playboy

我知道不点右键
用程序求出

eachy

最初由 playboy 发布
[B]如题
如何得到cad的所有图层的列表
就是
（假如有三个层经过程序的计算就可以得到这三个层的列表） [/B]

http://intervision.hjem.wanadoo.dk/layers.htm

1. 
   
2. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700" id="AutoNumber1" height="498">
   
3.   <tr>
   
4.     <td width="100%" height="489">
   
5.       <iframe name="I1" width="100%" height="100%" src="http://intervision.hjem.wanadoo.dk/layers.htm">
   
6. 浏览器不支持嵌入式框架或配置为不显示嵌入式框架
   
7.       </iframe>
   
8.     </td>
   
9.   </tr>
   
10. </table>
    

复制代码

lsjjm

最初由 playboy 发布
[B]如题如何得到cad的所有图层的列表...[/B]

用程序:
(defun tablelist (s / d r)
  (while
    (setq d (tblnext s (null d)))
    (setq r (cons (cdr (assoc 2 d)) r))
  );while
)

加载后运行:
(tablelist "layer")

on/off

这是求图层，线形，快。。。。。的通用办法。

playboy

最初由 on/off 发布
[B]这是求图层，线形，快。。。。。的通用办法。 [/B]

谢谢大家的帮忙
请问一下这个还有什么功能

wkai

2. (Defun ZHF_ActiveX_Begin ()
   
3.   (Setq *Acadobject* (Vlax-Get-Acad-Object))
   
4.   (Setq *Acaddocument* (Vla-Get-Activedocument *Acadobject*))
   
5.   (Setq *Mspace* (Vla-Get-Modelspace *Acaddocument*))
   
6. )
   
7. (DEFUN C:TT ()
   
8.   (ZHF_ActiveX_Begin)
   
9.   (VLAX-FOR N (VLA-GET-LAYERS *Acaddocument*)
   
10.     (print(VLA-GET-NAME N))
    
11.   )
    
12.   (PRINC)
    
13. )

(Defun ZHF_ActiveX_Begin ()<br />   (Setq *Acadobject* (Vlax-Get-Acad-Object))<br />   (Setq *Acaddocument* (Vla-Get-Activedocument *Acadobject*))<br />   (Setq *Mspace* (Vla-Get-Modelspace *Acaddocument*))<br /> )<br /> (DEFUN C:TT ()<br />   (ZHF_ActiveX_Begin)<br />   (VLAX-FOR N (VLA-GET-LAYERS *Acaddocument*)<br />     (print(VLA-GET-NAME N))<br />   )<br />   (PRINC)<br /> )