[求助]关于两条线关联的程序为什么错？

yyrr1984

下面这段程序为实现两条线的关联，请教高手错在哪里？

Public Sub GetHandle()
  Dim objSelect1 As AcadEntity
  Dim objSelect2 As AcadEntity
  Dim DataType(0) As Integer
  Dim Data(0) As Variant
  DataType(0) = 1005
 
  ThisDrawing.Utility.GetEntity objSelect1, basePnt, "选择边线1："
  ThisDrawing.Utility.GetEntity objSelect2, basePnt, "选择边线2："
 
  Data(0) = Str(objSelect2.Handle)
  objSelect1.SetXData DataType, Data
End Sub

laoliu09

DataType(0) = 1001: Data(0) = "Test_Application"
DataType(1) = 1000: Data(1) = "This is a test for xdata"

必须写应用程序名,必须从组码1001开始！

放纵

哎 同样的问题啊  都愁死我了  感觉自己真是没有编程的天赋啊 但老师还是给自己一个编程的题目 突然感觉自己是那么笨啊