紧急求助：AE能不能给SDE里面线图层增加圆弧要素？（ArcMap可以）

紧急求助：AE能不能给SDE里面线图层增加圆弧要素？ArcMap可以的。实际紧急，各位知道请指点指点。

<P>可以的，不过这样的图形不能导成CAD格式，其他应用基本没问题</P>

谢谢酷哥指点。

<P>这个是帮助里的例子</P><PRE><P>'This example demonstrates how to use the methods on ICurve</P>
<P>Public Sub CurveDemo()<BR>   Dim pCArc As ICircularArc<BR>   Set pCArc = New CircularArc<BR>   Dim pOrigin As IPoint<BR>   Set pOrigin = New Point<BR>   Dim pSubCArc As ICircularArc<BR>   Dim pTangent As ILine<BR>   Dim pNormal As ILine<BR>   Set pTangent = New Line<BR>   Set pNormal = New Line<BR>   Dim pTanPoint As IPoint<BR>   Set pTanPoint = New Point<BR>   Dim bAsRatio As Boolean<BR>   Dim pNearPoint As IPoint<BR>   Set pNearPoint = New Point<BR>   Dim DistOnCurve As Double<BR>   Dim NearDist As Double<BR>   Dim bRight As Boolean<BR>   Dim Pi As Double<BR>   <BR>   Pi = 4 * Atn(1)<BR>   <BR>   pOrigin.PutCoords 0, 0<BR>   pCArc.PutCoordsByAngle pOrigin, 0, 2 * Pi, 100   '0 to 2Pi = Full-arc<BR>   <BR>   'pSubCArc is Set by GetSubcurve.  Half-arc (Pi/2 to 3Pi/2)<BR>   pCArc.GetSubcurve 0.25, 0.75, True, pSubCArc<BR>   <BR>   MsgBox "Main: Closed? " ; pCArc.IsClosed ; vbCrLf ; "Length: " ; pCArc.Length ; vbCrLf _<BR>          ; "Sub: Closed? " ; pSubCArc.IsClosed ; vbCrLf ; "Length: " ; pSubCArc.Length<BR>   <BR>   'Subcurve From point (0.0) is the same as the main curve point at 0.25 (25%)<BR>   'Subcurve To point (1.0) is the same as the main curve point at 0.75 (75%)<BR>   MsgBox "Subcurve From: " ; OutputPoint(pSubCArc.FromPoint) ; vbCrLf ; _<BR>          "Subcurve T " ; OutputPoint(pSubCArc.ToPoint)<BR>   <BR>   'Query the tangent (length 20) of the point 0.3 (30%) along the subcurve<BR>   'Query the normal (length 10) of the point 0.4 (40%) along the main curve<BR>   'Note: 0.3 (30%) along the subcurve is the same point as the point<BR>   '      0.4 (40%) along the main curve<BR>   pSubCArc.QueryTangent esriExtendTangentAtFrom, 0.3, True, 20, pTangent<BR>   pCArc.QueryNormal esriExtendTangentAtFrom, 2 * pCArc.Length / 5, False, 10, pNormal<BR>   <BR>   MsgBox "Tangent: " ; OutputLine(pTangent) ; vbCrLf ; _<BR>          "Normal: " ; OutputLine(pNormal)<BR>   <BR>   'Finds the point along the To tangent extended 20% beyond the ToPoint<BR>   pCArc.QueryPoint esriExtendTangentAtTo, 1.2, True, pTanPoint<BR>   <BR>   MsgBox "Point on Tangent: " ; OutputPoint(pTanPoint)<BR>   <BR>   'Finds the point on the Circular Arc nearest to the point extended tangentially<BR>   'Returns the nearest point, the distance to the point, the distance along the curve,<BR>   '  whether the point is on the right side of the curve, and AsRatio indicator<BR>   pCArc.QueryPointAndDistance esriNoExtension, pTanPoint, bAsRatio, pNearPoint, DistOnCurve, NearDist, bRight<BR>   <BR>   MsgBox "Nearest Point: " ; OutputPoint(pNearPoint) ; vbCrLf ; _<BR>          "Distance: " ; NearDist<BR>   <BR>   pSubCArc.ReverseOrientation  'pSubCArc now is the arc from 3Pi/2 to Pi/2<BR>End Sub</P>
<P>Public Function OutputPoint(pPoint As IPoint) As String<BR>   OutputPoint = "(" ; pPoint.X ; ", " ; pPoint.Y ; ")"<BR>End Function<BR>Public Function OutputLine(pLine As ILine) As String<BR>   Dim pFromPoint As IPoint<BR>   Dim pToPoint As IPoint<BR>   Set pFromPoint = New Point<BR>   Set pToPoint = New Point<BR>   <BR>   pLine.QueryFromPoint pFromPoint<BR>   pLine.QueryToPoint pToPoint<BR>   OutputLine = "From " ; OutputPoint(pFromPoint) ; " to " ; OutputPoint(pToPoint)<BR>End Function</P></PRE>

学习一下。。。。。。。。。。