Dim instance As IModelDoc2
Dim CenterX As Double
Dim CenterY As Double
Dim CenterZ As Double
Dim MajorX As Double
Dim MajorY As Double
Dim MajorZ As Double
Dim MinorX As Double
Dim MinorY As Double
Dim MinorZ As Double
Dim StartX As Double
Dim StartY As Double
Dim StartZ As Double
Dim EndX As Double
Dim EndY As Double
Dim EndZ As Double
Dim value As Object
value = instance.CreateEllipticalArc2(CenterX, CenterY, CenterZ, MajorX, MajorY, MajorZ, MinorX, MinorY, MinorZ, StartX, StartY, StartZ, EndX, EndY, EndZ)
|