请教：怎么写圆形和矩形来选择图元？

<P align=left>利用point,polyline,polygon来选择图元我写好了，不过circle和rectangle不知道怎么写，请高手指点</P>
<P align=left> </P>

<P>这个还没解决呀</P>
<P>偶顶上去，高手帮忙呀</P>

<PRE>这个是arcmap里的例子，改改就可以用了</PRE><PRE> </PRE><PRE>Private Sub UIToolControl1_MouseDown(ByVal button As Long, ByVal shift As Long, ByVal x As Long, ByVal y As Long)

Dim pMxApp As IMxApplication
Set pMxApp = Application
Dim pMxDoc As IMxDocument
Set pMxDoc = Application.Document
Dim pCenter As IPoint
Set pCenter = pMxDoc.ActiveView.ScreenDisplay.DisplayTransformation.ToMapPoint(x, y)

Dim pCArc As ICircularArc
Set pCArc = CreateCArcFull(pCenter, 200, True)

Dim pSegmentCollection As ISegmentCollection
Set pSegmentCollection = New Polygon
pSegmentCollection.AddSegment pCArc
Dim pPolygon As IPolygon
Set pPolygon = pSegmentCollection
pPolygon.Close

pMxDoc.FocusMap.SelectByShape pSegmentCollection, pMxApp.SelectionEnvironment, False
pMxDoc.ActiveView.Refresh
End Sub

Private Function CreateCArcFull(pCPoint As IPoint, Radius As Double, _
                                IsCCW As Boolean) As ICircularArc
   Dim pConstCArc As IConstructCircularArc
   Set pConstCArc = New CircularArc
   pConstCArc.ConstructCircle pCPoint, Radius, IsCCW
   Set CreateCArcFull = pConstCArc
End Function</PRE>

<PRE>Dim pMxApp As IMxApplication<BR>Set pMxApp = Application<BR>Dim pMxDoc As IMxDocument<BR>Set pMxDoc = Application.Document<BR>--------</PRE><PRE>这几句该如何改呢？</PRE>

<DIV class=quote><B>以下是引用<I>wuyue521_0</I>在2006-6-29 20:17:11的发言：</B><BR><PRE>Dim pMxApp As IMxApplication<BR>Set pMxApp = Application<BR>Dim pMxDoc As IMxDocument<BR>Set pMxDoc = Application.Document<BR>--------</PRE><PRE>这几句该如何改呢？</PRE></DIV>
<P>
<P>set pmap=mapcontrol1.map</P>
<P>前面的全部删除即可.</P>

<P>最简单的方法</P>
<P>mapcontrol1.trackrectangle</P>

你先构建一个圆形的区域,把它传给geometry,可以借监楼上的方法.

楼上有道理