请教各位大侠如何在Ao中画扇形啊？

<P>我用vb+Mapcontrol来做一图形。需要画出扇形。可是我在Ao的对象接口里只找到IcircleArc接口。这个接口可以画出圆和弧段，就是不能画出扇形来。那位大侠知道怎么画出扇形？？？？我很着急！</P>

<P>Sorry I cannt find any interface to draw Sector directly! SO i have this foolish method!</P><P>try this one:</P><P>    Dim pca As ICircularArc
    Set pca = New CircularArc
    
    Dim pp As IPoint                                    '圆心
    Set pp = New Point
    pp.PutCoords mapX, mapY
    
    pca.PutCoordsByAngle pp, 1.57, 3.14, 200#
    
    Dim pstart As IPoint                               '起点
    Dim pend As IPoint                                '终点
    
    Set pstart = pca.FromPoint
    Set pend = pca.ToPoint
    
    Dim line1 As ILine                                '起始线
    Set line1 = New esriCore.Line
    line1.PutCoords pp, pstart                  
    Dim line2 As ILine                                '终线
    Set line2 = New esriCore.Line
    line2.PutCoords pend, pp
    
    Dim psc As ISegmentCollection
    Set psc = New Polyline
    psc.AddSegment line1
    psc.AddSegment pca
    psc.AddSegment line2
    
    MapControl1.DrawShape psc</P>