|
阅读：956回复：1
AO中画椭圆
没有现成的，可以写一段简单的vba程序，画一个envelope，然后用下面的代码根据envelope生成一个椭圆<BR>Public Function CreateEArcFull(pEnv As IEnvelope) As IEllipticArc<BR> Dim pConstEArc As IConstructEllipticArc<BR> Set pConstEArc = New EllipticArc<BR> pConstEArc.ConstructEnvelope pEnv<BR> Set CreateEArcFull = pConstEArc<BR>End Function
|
|
|
1楼#
发布于：2007-05-01 19:00
谢谢！
|
|