Incremental eine Kurve mit VB.net oder C#

Question

drehen Ich versuche, eine Kurve inkrementell zu drehen mit den Codes unten in C# und Vb.net (der Editor importiert bereits die notwendigen Bibliotheken). In meinem 3D-Modellierungsprogramm bekomme ich überlappende Linien anstelle von Linien mit unterschiedlichen Winkeln. Was mache ich falsch?

auf C#:

private void RunScript(Curve ln, int x, double angle, ref object A) 
{ 
List<Curve> lines = new List<Curve>(); 
Int16 i = default(Int16); 
for(i = 0; i <= x; i++){ 
ln.Rotate(angle * i, Vector3d.ZAxis, ln.PointAtEnd); 
lines.Insert(i, ln); 
} 
A = lines; 

auf VB.net:

Private Sub RunScript(ByVal ln As Curve, ByVal x As Integer, ByVal angle As Double,   
ByRef A As Object) 

Dim lns As New List(Of Curve)() 
Dim i As Int16 
For i = 0 To x 
ln.Transform(transform.Rotation(angle * i, vector3d.ZAxis, ln.PointAtEnd)) 
lns.Insert(i, ln) 
Next 
A = lns 

Answer 1

Ich brauche die Linie zu duplizieren, bevor die nächsten in der Schleife sonst dort rotierende ist keine Spur davon.

In C#:

private void RunScript(Curve ln, int x, double angle, ref object A) 
{ 
List<Curve> lns = new List<Curve>; 
for (int = 0; i<= x; i++) 
    { 
    Curve copy = ln.DuplicateCurve(); 
    copy.Rotate(angle * i, Vector3d.ZAxis, ln.PointAtEnd); 
    lns.Add(copy); 
    } 
} 
A = lns; 

in VB.net:

Private Sub RunScript(By Val ln As Curve, ByVal x As Integer, ByVal angle As Double, By Ref A as Object) 
    Dim lns As New List(Of Curve)() 
    For i As Integer = 0 To x 
    Dim nl As Curve = ln.DuplicateCurve() 
    nl.Transform(transform.Rotation(angle*i, vector3D.ZAxis, ln.PointAtEnd)) 
    lns.Add(nl) 
    Next 
    A = lns 
End Sub