菜鸟提问：ao中的编辑－插入新元素，不明白的地方！

<P>菜鸟提问：Private Sub CreatePolylineFeatures(pFeatureClass As IFeatureClass, numberToCreate As Long)
  If (numberToCreate = 0) Then Exit Sub
  
  lblFeatures.Caption = "Creating Polylines"
  lblFeatures.Refresh
  prgIndividual.Value = 0
  prgIndividual.Max = numberToCreate
  Dim i As Long
  Dim pFeature As IFeature
  Dim pPoint As IPoint
  Dim pPointCollection As IPointCollection
  Dim j As Long
  
  For i = 1 To numberToCreate
    Set pFeature = pFeatureClass.CreateFeature
    Set pPoint = New Point
    Set pPointCollection = New Polyline
    
<B>  </B><FONT color=#ff0000><B> For j = 1 To Int(11 * Rnd)
      pPoint.X = 1001 * Rnd
      pPoint.Y = 1002 * Rnd</B></FONT>
    
      <FONT color=#ff0066><B>pPointCollection.AddPoint pPoint</B></FONT>
    Next j
    <B><FONT color=#ff0033>Set pFeature.Shape = pPointCollection
</FONT></B>    pFeature.Store
    prgIndividual.Value = i
    <B><FONT color=#ff0000>prgOverall.Value = prgOverall.Value + 1</FONT></B>
  Next i
End Sub</P>
<P>这个函数我有上面用红色粗体表示的四处共三个不明白的地方。1,坐标是怎么计算的，现在我想在一个已经知道坐标的地方插入新的点元素，我该怎么办？2,<FONT color=#000000> Set pFeature.Shape = pPointCollection作什么用？  3,prgOverall.Value = prgOverall.Value + 1又干什么？谢谢。</FONT></P>

<P>你这段代码是生成polyline feature 的一种用法。</P><P>polyline 是由一系列顺序顶点构成。这一系列点可以保存在pointcollection 中。</P><P><b><FONT color=#ff0000>For j = 1 To Int(11 * Rnd)
      pPoint.X = 1001 * Rnd
      pPoint.Y = 1002 * Rnd</FONT></b>
生成任意的1到10个之随机的X，Y坐标对，并由X，Y坐标对定义一个点对象。并将其点加入点集。</P><P><b><FONT color=#ff0066>pPointCollection.AddPoint pPoint</FONT></b>
在点集的最后位置增加一个新点 </P><P><b><FONT color=#ff0033>Set pFeature.Shape = pPointCollection</FONT></b></P><P>将点集做为polyine feature 的几何形状。实现 pointcollection 到 polyline的构成。</P><P><b><FONT color=#ff0000>prgOverall.Value = prgOverall.Value + 1</FONT></b></P><P><FONT color=#ff0000><b>[prgOverall] </b></FONT><FONT color=#000000>这个家伙好象没看到定义，应该是用来计数的吧。应该没什么用。
</FONT></P>

1002 和  1001 代表什么坐标？坐标系呢？坐标是怎么计算的，现在我想在一个已经知道坐标的地方插入新的点元素，我该怎么办？。

1001 和1002 只是一个随机数。但是现在我想在一个已经知道坐标x,y（投影坐标）的地方插入新的点元素而该库的坐标系统是GCS_WGS_1984坐标系，我该怎么办？

<img src="images/post/smile/dvbbs/em02.gif" />

我是菜鸟,学习中^^^^