[原创]遍历图层,提取相关数据.

兰州人

Layers.Count 图层数

Layers.Item(ii).Name  图层名

Layers.Item(ii).color 图层颜色

此程序是工作实践总结,简单明了

Sub ls()
  With ThisDrawing
    For ii = 0 To .Layers.Count - 1
      With Layers.Item(ii)
        Debug.Print .Name, .color, .Lineweight, .Linetype, .PlotStyleName, .Plottable, .ViewportDefault
      End With
    Next ii
  End With
 
End Sub
结果

粗边框线       140           40           Continuous    Color_140     True          False
细边框线       139           15           Continuous    Color_139     True          False
标题栏         131           15           Continuous    Color_131     True          False
粗实线         1             40           Continuous    Color_1       True          False
细实线         3             15           Continuous    Color_3       True          False
尺寸线         6             15           Continuous    Color_6       True          False
中心线         4             15           CENTERX2      Color_4       True          False
剖面线         43            15           Continuous    Color_43      True   

dxhy

什么意思?不是很明白啊!

CAD学习开发

非常好，简单明了！

xiaping

不错的实例，谢谢共享。