怎么在Ae中画椭圆

怎么在Ae中画椭圆，请谢谢各位

在帮助里查看这个接口IEllipticArc Interface (esriGeometry)

<img src="images/post/smile/dvbbs/em13.gif" /><img src="images/post/smile/dvbbs/em12.gif" />还是不会啊请问有没有代码啊？

<P>呵呵,绘制的代码如下</P>
<P>
<TABLE>

<TR>
<TD class=postvalue> </TD></TR>
<TR>
<TH> </TH>
<TD><PRE>Sub EllipseRotate()
    Dim pEnv As IEnvelope
    Set pEnv = New Envelope
    With pEnv
        .XMin = -1
        .YMin = -2
        .XMax = 1
        .YMax = 2
    End With
        
    Dim pConsEllArc As IConstructEllipticArc
    Set pConsEllArc = New EllipticArc
    pConsEllArc.ConstructEnvelope pEnv
    
    Dim pEllArc As IEllipticArc
    Set pEllArc = pConsEllArc
    
    Dim pCurve As ICurve
    Set pCurve = pEllArc
    Debug.Print
    Dim dMajor As Double, dMinor As Double, dRatio As Double
    pEllArc.GetAxes dMajor, dMinor, dRatio
    Debug.Print "before: major " ; dMajor; ", Minor: " ; dMinor
    Debug.Print "Axis Angle: " ; Atn(pCurve.FromPoint.Y / pCurve.FromPoint.X) * 180 / PI
    
    Dim pRotPoint As IPoint
    Set pRotPoint = New Point
    pRotPoint.X = Rnd * 100
    pRotPoint.Y = Rnd * 100
    
    Dim pTrans2D As ITransform2D
    Set pTrans2D = pEllArc
    pTrans2D.Rotate pRotPoint, Rnd * PI
    pEllArc.GetAxes dMajor, dMinor, dRatio
    Debug.Print "after: major " ; dMajor; ", Minor: " ; dMinor
    Debug.Print "Axis Angle: " ; Atn(pCurve.FromPoint.Y / pCurve.FromPoint.X) * 180 / PI
    
End Sub
</PRE><PRE>不过如果要保存在shapefile或者数据库中,你需要启动编辑</PRE><PRE><PRE>'开始 the edit session
'...
'...

'创建椭圆(ellipse),可以使用上面的过程代码'...
'...

这个放在pTrans2D.Rotate pRotPoint, Rnd * PI的后面
  Dim pFeat As IFeature
  Set pFeat = pFClass.CreateFeature
  Set pFeat.Shape = pEllArc
  pFeat.Store

'停止 edit operation
'...
'...</PRE> </PRE></TD></TR></TABLE></P>

<P>谢谢。</P>

<P>我不赞成上面的说法，AE9.2本来提供了强大的二次开发工具，为什么还要一点点的开发代码。现在就可利用下列代码实现基本绘图：</P>
<P>/创建绘图工具板并添加到工具条中<BR>            //////////////////////////////////////////////////////////////////////////<BR>            m_ToolbarPDraw = new ToolbarPaletteClass();</P>
<P>            m_ToolbarPDraw.AddItem("esriControls.ControlsEditingSketchTool", -1, -1);<BR>            m_ToolbarPDraw.AddItem("esriControls.ControlsNewMarkerTool", -1, -1);<BR>            m_ToolbarPDraw.AddItem("esriControls.ControlsNewLineTool", -1, -1);<BR>            m_ToolbarPDraw.AddItem("esriControls.ControlsNewCurveTool", -1, -1);<BR>            m_ToolbarPDraw.AddItem("esriControls.ControlsNewCircleTool", -1, -1);<BR>            m_ToolbarPDraw.AddItem("esriControls.ControlsNewRectangleTool", -1, -1);<BR>            m_ToolbarPDraw.AddItem("esriControls.ControlsNewPolygonTool", -1, -1);</P>

<P>axToolbarControl1.AddItem(m_ToolbarPDraw, 0, -1, true, 0, esriCommandStyles.esriCommandStyleIconOnly);</P>

厉害!!, 要是我也用九殿二版本的话,就舒服了。

<P>先顶一下！</P>
<P>山外有山啊</P>

<P>6楼的朋友,9.2的确提供了编辑工具条</P>
<P>但是还是有没有升级的朋友需要,呵呵</P>