DWGPROPS XRecord

Hi Group,

Consider this snippet,

'snip

Dim XRecord as AcadXRecord
Dim varDataType as Variant
Dim varDataValue as Variant

On Error Resume Next
Set XRecord = ThisDrawing.Dictionaries("DWGPROPS")
If Err.Number = 0 then
XRecord.GetXRecordData varDataType, varDataValue
else
Err.Clear
End If

'snip

Anyone know what the numeric values in the resulting varDataType array
represent?

Cheers,
Ken Hutson
San Antonio, TX

 

R. Robert Bell,
If you are saying that these are DXF group codes, then that's fine. But
AutoDesk must be using this data structure in ways I cannot imagine. These
values come from the Drawing Properties dialog box and some simply don't
hold up in a DXF group code paradigm. For example:

varDataValue(6) holds the value from the Statistics tab, "Last saved by:"
field. varDataType(6) has a value of 8 which is the DXF group code for
layer name.

Makes no sense. Am I missing something here?

Cheers,
Ken Hutson
San Antonio, TX

 

Look at the page titled "Group Code Value Types". (Yeah, you *were* missing
something! <vbg>)

--
R. Robert Bell


R. Robert Bell,
If you are saying that these are DXF group codes, then that's fine. But
AutoDesk must be using this data structure in ways I cannot imagine. These
values come from the Drawing Properties dialog box and some simply don't
hold up in a DXF group code paradigm. For example:

varDataValue(6) holds the value from the Statistics tab, "Last saved by:"
field. varDataType(6) has a value of 8 which is the DXF group code for
layer name.

Makes no sense. Am I missing something here?

Cheers,
Ken Hutson
San Antonio, TX