Hi!
The information you want is stored in the Drawings Dictionary collection as
an XRecord named "DWGPROPS"
But only if the DWGPROPS command has been used at least once in the drawing.
Assuming that it has, you can use code like this to get at that data from
VBA:
Public Sub PrintDWGPROPS()
Dim objRecord As AcadXRecord
Dim objCol As AcadDictionaries
Dim varType As Variant
Dim varData As Variant
Dim intCnt As Integer
On Error GoTo Err_Control
Set objCol = ThisDrawing.Dictionaries
Set objRecord = objCol.Item("DWGPROPS")
objRecord.GetXRecordData varType, varData
For intCnt = LBound(varType) To UBound(varType)
Debug.Print varData(intCnt)
Next intCnt
Exit_Here:
Exit Sub
Err_Control:
Debug.Print Err.Description
Resume Exit_Here
End Sub
And if it does not exist, well, AutoDesk product support offered this..
Please note, I don't support this link.
I don't even like looking at the code this page contains.
*grits teeth and posts anyway
http://discussion.autodesk.com/WebX?233@@.ef00c8e/6!enclos
ure=.ef04db8
Now, if that comes back with a page not found its because the URL did a
wrap, it should all be one big line..
Randall Rath
