怎么在Ae中画椭圆

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

不过如果要保存在shapefile或者数据库中,你需要启动编辑

'开始 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
'...
'...