[求助]获取图元结点时的问题求助

<P>我有获取图元（线、区域）的VB代码，但不知如何调用，总是出错？</P>
<P>Public Function getfeaturespatialinfo(ByVal ftr As MapXLib.Feature) As featurespatialinfo<BR>Dim pts As Points<BR>Dim pt As Point<BR>Dim i, k As Integer<BR>If (ftr.Type = miFeatureTypeLine) Or (ftr.Type = miFeatureTypeRegion) Then<BR>k = 0<BR>For Each pts In ftrs.Parts<BR>For Each pt In pts<BR>k = k + 1<BR>Next<BR>Next<BR>getfeaturespatialinfo.nodecount = k<BR>ReDim getfeaturespatialinfo.nodepoints(1 To k)<BR>k = 0<BR>For Each pts In ftr.Parts<BR>For Each pt In pts<BR>k = k + 1<BR>getfeaturespatialinfo.nodepoints(k).Set pt.X, pt.Y<BR>Next<BR>Next<BR>End If<BR>End Function<BR></P>
<P>Private Sub 节点坐标_Click()<BR>Dim aaa<BR>Dim ftr As MapXLib.Feature<BR>Dim lyr As MapXLib.Layer<BR>Dim ftrs As MapXLib.Features<BR>For Each lyr In Map1.Layers<BR>For Each ftr In lyr.Selection<BR>If (ftr.Type = miFeatureTypeRegion) Then<BR>Debug.Print "找到：" ; ftr.Name ; ftr.Area ; "平方公里"<BR>End If<BR>Next<BR>Next<BR>' ' ' 在此如何调用[getfeaturespatialinfo]，究竟需要哪些参数，调用格式？急急急！</P>
<P>end Sub<BR></P>