Add Xdata Points.

I need to store two doubles as xData.
StartPoint(2)
EndPoint(2)
Which group codes would I use?

Thank You...

 

I used this for now...

DataType(0) = 1001: Data(0) = "Points"
DataType(1) = 1040: Data(1) = dblLength(0)
DataType(2) = 1040: Data(2) = dblLength(1)
DataType(3) = 1040: Data(3) = dblLength(2)

 

Hi Paul,
First, this part of the online documentation may help:
"Group Codes in Numerical Order" in the DXF reference

So something like this:
Sub test3()
Dim code(2) As Integer
Dim val(2) As Variant
Dim lin As AcadLine

Set lin = ThisDrawing.HandleToObject("77C2BFCE2783AD95")
code(0) = 1001: code(1) = 1011: code(2) = 1011
val(0) = "Test_App"
val(1) = lin.StartPoint
val(2) = lin.EndPoint
lin.SetXData code, val

End Sub

HTH,

 

I didn't think you could add an array..Thanks..
Maybe I'll try a Record...