画圆和画矩型

<P>画圆和画矩型,分别是用TrackCircle和TrackRectangle,可是不知道怎么把它保存到当前编辑的图层里,求救大侠!<BR></P>

自己顶一下,希望有人能解答一下,3q

<P>我没做过这个</P>
<P>不过我觉得你 可以建立一个polygon层，来绘制这些图形</P>

<P>set pFeature=pFeatureClass.CreatFeature</P>
<P>set pFeature.Geometry=pGeometry</P>
<P>pFeature.store</P>

<P>以下代码,画圆可以,保存到当前编辑层,可是画矩形会出错,帮忙看看吧</P>
<P>       Case isCircle<BR>       '画圆<BR>           Dim pCircle As IPolygon<BR>           <BR>           Set pCircle = MapControl1.TrackCircle<BR>           MapControl1.DrawShape pCircle<BR>           Set pGeom = pCircle<BR>           CreateFeature pGeom<BR>           Exit Sub<BR>       Case isRectangle<BR>       '画矩形<BR>'           Dim pRectangle As IPolygon<BR>'           Set pRectangle = MapControl1.TrackRectangle<BR>'           Set pGeom = pRectangle<BR>'           CreateFeature pGeom<BR>'           Exit Sub</P>

<P>是不是不能像这样用啊,画矩形还是搞不定,以下红色是出错,请大家帮忙看下,3q</P>
<P>           Dim pGeom As IGeometry           </P>
<P>           Dim pRectangle As IPolygon<BR>           <FONT color=#ff0000>Set pRectangle = MapControl1.TrackRectangle</FONT>           </P>
<P>           Set pGeom = pRectangle<BR>           Call CreateFeature(pGeom)</P>