用代码实现ArcGIS中使用绘制的圆形选择要素

相信熟悉ArcGIS的朋友都知道只能使用面状选择，这可是一大遗憾。为了提高使用灵活性本文将以实际代码实现圆形选择要素，大大方便劳动。使用绘制的圆形选择要素，算是弥补ESRI只能使用面状选择的遗憾吧？？？

Private Sub UIToolControl1_MouseDown(ByVal button As Long, ByVal shift As Long, ByVal x As Long, ByVal y As Long)
　Dim pMxApp As IMxApplication
　Dim pMxDoc As IMxDocument
　Dim pActiveView As IActiveView
　Dim pRubberCirc As IRubberBand
　Dim pCircArc As ICircularArc
　Dim pGeo As Igeometry
　Dim pMap As Imap
　Dim pMapPoint As WKSPoint
　Dim pDevPoint As tagPOINT
　Dim pDisplayTransformation As IDisplayTransformation

　Set pMxApp = Application
　Set pMxDoc = Application.Document
　Set pMap = pMxDoc.FocusMap
　Set pActiveView = pMap
　' Create a new RubberCircle
　Set pRubberCirc = New RubberCircle
　' Return a new CircularArc from the tracker object using TrackNew
　Set pCircArc = pRubberCirc.TrackNew(pMxDoc.ActiveView.ScreenDisplay, Nothing)

　'Convert radius to screen pixels
　Set pDisplayTransformation = pMxApp.Display.DisplayTransformation

　pMapPoint.x = pCircArc.Radius
　pMapPoint.y = pCircArc.Radius

　pDisplayTransformation.TransformCoords pMapPoint, pDevPoint, 1, 10