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

yyrr1984 · 发表于 2007-5-29 21:42:00

下面这段程序为实现两条线的关联，请教高手错在哪里？
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