不打开cad图形的前提下如何获取图形中层的各种属性？

翔羽

如题！！

本人打算在不打开cad图形的前提下如何获取图形中图层的各种属性？比如图层的名字，线形，颜色等。

用objectdbx吗？请问如何实现的？

alin

Sub testDBX()

Dim i As Integer
Dim objLayers As AcadLayers
Dim oObjectDBX As Object
Dim sFileName As String

Set oObjectDBX = AcadApplication.GetInterfaceObject("ObjectDBX.AxDbDocument.16")

sFileName = "c:\BRACE_89.dwg"
oObjectDBX.Open sFileName

Set objLayers = oObjectDBX.Layers
For i = 0 To objLayers.Count - 1
MsgBox objLayers(i).Name
Next i

End Sub

翔羽

谢谢alin版主

我去试试看，有问题再请教你！！