---

Hallo
ich möchte genau 100 Punkte auf einer Kurve erstellen

manuel geht das ja total leicht,
Menu: Insert->Datum/Point->Point Set->Points on Curve->equal parameters->100

ein Journal zeichnert bei mir leider nichts auf

aber ich finde den befehl in VB für NX4 nicht
ich hoffe mir kann jemand helfen
gruß Maikx

[Diese Nachricht wurde von Maikx am 12. Dez. 2008 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Über das Journal funktioniert es erst ab NX6 mit dem neuen PointSetBuilder.

Cheers.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo zusammen,

es gibt eine Funktion, AskCurvePoints (o.ä.) , mit der sich die entsprechenden Koordinaten entlang einer Kurve ermitteln lassen. Anschließend können damit die Punkte gesetzt werden.

Gruß, Michael

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

ja mit AskCurvePoints kann man in einem bestimmten Abstand Punkte erzeugen und dann auslesen,
nur ich brauch halt von jeder Kurve die gleiche Anzahl von Punkten, dass kann man da leider nicht einstellen 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Maikx,

wo liegt denn das Problem ? Zuerst beziehst Du Dich auf eine Kurve und 100 Punkte, jetzt sind's mehrere Kurven mit der gleichen Anzahl an Punkten ??

Ein Bild könnte helfen.

   

Gruß, Michael

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Unbenannt.JPG

ok hab mal schnell nen kleines Bild gemalt, damit du siehst was ich meine 

also Problem ist das die kurven nicht gleich lang sind,
mit askcurvepoints und z.b. einem ctol wert: 0,05 hät ich bei der ersten kurve 125 punkte bei der nächsten 142

also wäre es schön wenn ich eine genau anzahl auslesen könnte, damit die punkte anzahl immer gleich ist 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

pnts_on_crv.vb.txt

Hallo Maikx,

mit AskCurvePoints gibt es tatsächlich keine Möglichkeit, die Punkteanzahl direkt anzugeben. Auch die Berechnung der Bogenlänge und entsprechende Angabe der maximalen Schrittweite bringt nur annähernd die gewünschte Anzahl.
Alternativ setzt man die Punkte eben einzeln in einer For- Schleife. Ein Beispiel findest Du im Anhang.

Gruß, Michael

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ja das sieht gut aus,
allerdings hab ich einen Fehler in: scalar.Value = i / (n_pnt - 1)

Er sagt das Value ReadOnly ist und bricht bei mir in NX4 ab 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Da gibt's auf die Schnelle zwei Alternativen:
1: Scalar bei jedem Schleifendurchlauf neu machen anstatt zu ändern.
2: In NXOpen.UF gibt's eine Funktion zur Punkterzeugung, die m.W. ohne Skalar auskommt.

Gruß, Michael

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Scalar bei jedem Schleifendurchlauf neu machen anstatt zu ändern hört sich leicht an, aber irgendwie häng ich fest und komm nicht auf die Lösung,
hat jemand nen Tipp für mich?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

pnts_on_crv.vb.txt

Anbei die Variante mit einem neuen Skalar je Schleifendurchlauf.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Boah besten dank, wie kann ich das wieder gut machen? 
Ich hatte keinen nullscalar für denn ref_pnt festgelegt
BIG THX

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hab noch ne kleine Frage 
vb.net:wenn ich mit in der for next schleife folgendes eingebe:

lw.Open()
lw.WriteLine(nx_pnt.Coordinates.X.ToString)

dann lese ich die Punkt nach Folgendem Schema aus:
4,500718
-77,236692
-574,714035
-595,882406
251,873212
23,310449

ich möchte die aber gerne sortiert haben :
-595,882406
-574,714035
-77,236692
4,500718
23,310449
251,873212

geht das mit array.sort? ein array ist ja nicht vorhanden

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von Maikx:
ein array ist ja nicht vorhanden

---

Wo ist das Problem ? Schreib' die Koordinaten innerhalb der Schleife zuerst in ein Array anstatt ins ListingWindow. Nach der Schleife kannst Du dann sortieren.

Gruß, Michael

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

pp_02.txt

Ich schreib dir mal meinen Code, ich habe nachm sortieren immer nur 0 raus...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

test1 wird innerhalb der FOR Schleife immer wieder initialisiert.

So sollte es funktionieren:

Code:

---

    Sub Main()
        Dim undomark As Session.UndoMarkId = sess.SetUndoMark(Session.MarkVisibility.Visible, "create points")

        Dim n_pnt As Integer = 100

        Dim crv As NXObject = select_curve()

        If Not crv Is Nothing Then
            Dim nullscalar As Scalar = wp.Scalars.CreateScalar(0, Scalar.DimensionalityType.Length, SmartObject.UpdateOption.WithinModeling)
            Dim ref_pnt As Point = wp.Points.CreatePoint(CType(crv, IBaseCurve), nullscalar, SmartObject.UpdateOption.WithinModeling)

            Dim test1(n_pnt - 1) As Double
            Dim test2(n_pnt - 1) As Double
            Dim messp As Point

            For i As Integer = 0 To n_pnt - 1
                Dim scalar As Scalar = wp.Scalars.CreateScalar(i / (n_pnt - 1), scalar.DimensionalityType.Length, SmartObject.UpdateOption.WithinModeling)
                Dim nx_pnt As Point = wp.Points.CreatePoint(CType(crv, IBaseCurve), ref_pnt, scalar, PointCollection.AlongCurveOption.Percent, Sense.Forward, SmartObject.UpdateOption.WithinModeling)
                nx_pnt.SetVisibility(SmartObject.VisibilityOption.Visible)
                'nx_pnt.SetName("p_" & i + 1)
                messp = nx_pnt
                test1(i) = nx_pnt.Coordinates.X.ToString("F6")
                sess.UpdateManager.AddToDeleteList(scalar)
            Next i

            test2 = test1
            Array.Sort(test2)

            For i As Integer = 0 To n_pnt - 1
                lw.Open()
                lw.WriteLine(test2(i))
            Next i

            sess.UpdateManager.AddToDeleteList(nullscalar)
        End If
        sess.UpdateManager.DoUpdate(undomark)

    End Sub

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP