Heip!!!VB+MapX的程序在运行中出现的问题

诸位大虾请救命！我运行下列一段程序出现"Run-time error 1004  no object was found using  the index you specified " 急待你的解围.在线恭候.谢谢。 Dim arrVals As Variant  Dim obj As MapXLib.Feature  Dim iNodeCnt As Integer  Dim NodesLBound As Integer  Dim NodesUBound As Integer  Dim PolysLBound As Integer  Dim PolysUBound As Integer  Set obj = Map1.Layers("Semple").Selection(1) -------此句有错  arrVals = obj.Nodes  NodesLBound = LBound(arrVals, 1)  NodesUBound = UBound(arrVals, 1)  PolysLBound = LBound(arrVals, 2)  PolysUBound = UBound(arrVals, 2)  For i = PolysLBound To PolysUBound   Debug.Print "Begin Poly #"; i   iCoordCnt = arrVals(NodesLBound, i) * 2   For j = NodesLBound + 1 To iCoordCnt Step 2    Debug.Print "Pt#"; j / 2; "("; arrVals(j, i); ","; arrVals(j + 1, i); ")"   Next j   Debug.Print "End Poly #"; i   Debug.Print ""  Next i