tc405003 发表于 2005-10-31 19:34:00

请教，可何取得图层与图层颜色列表

请教，可何取得图层与图层颜色列表

zxj_76 发表于 2005-11-1 08:22:00

<P>&nbsp; On Error Resume Next<BR>&nbsp; Set AcadApp = GetObject(, "AutoCAD.Application")<BR>&nbsp; If Err &lt;&gt; 0 Then Exit Sub<BR>&nbsp;&nbsp;<BR>&nbsp; Set AcadDoc = AcadApp.ActiveDocument<BR>&nbsp; Set MoSpace = AcadDoc.ModelSpace<BR>&nbsp;&nbsp;<BR>&nbsp; For Each I In AcadDoc.Layers<BR>&nbsp;&nbsp;&nbsp; Print I.Name &amp; "," &amp; I.Color<BR>&nbsp; Next</P>
页: [1]
查看完整版本: 请教，可何取得图层与图层颜色列表