Help!!!!Mapx +vb 中出现的问题

我运行时，会有提示run-time error"424", object requested. why ,请大虾们赐教。谢谢，急切的等待你的指点。
Dim ftrs As Features
Dim ftr As Feature
Dim ly As Layer
Set ly = Map1.Layers.Item("Semple")
Set ftrs = ly.AllFeatures
Set ftr = ftrs.Item(1)
'Set obj = GetObject("c:\Program File\MapInfo\MapX 5.0\maps\Mygeoset", "Semple")
Set pts = ftr.Nodes
For i = 1 To pts.Count
 pt.X = pts.Item(i).X
  pt.Y = pts.Item(i).Y
Print pt.X, pt.Y
Next
<img src="images/post/smile/dvbbs/em09.gif" />

谢谢斑竹！QQ: 174533198

简单的说你可以通过FEATURE.PARTS去实现！
详细的你可以看看MAPX有关的PARTS的帮助！

你有QQ吗？
那样，说起来方便一点！

再次感谢！但我目的是获得多线物体所有节点的坐标值，结果值出现起始节点的值。why?请赐教。谢谢，急切的等待你的指点。

X = ftrs.Item(i).CenterX
 Y = ftrs.Item(i).CenterY
改成上面的代码，X，Y为DOUBLE类型。

谢谢斑竹！。我运行时，会有提示"Compile error Invalid use of  property". why ,请赐教。谢谢，急切的等待你的指点。
 pt.X = ftrs.Item(i).CenterX
  pt.Y = ftrs.Item(i).CenterY

for i = 1 to pts.count
 pt.x = pts.item(i).x
  pt.y = pts.item(i).y
print pt.x, pt.y
next
你把上面代码中pts改为ftrs：
 pt.x = ftrs.item(i).CenterX
  pt.y = ftrs.item(i).CenterY