---

Habe eine tolles Feature gefunden.. aber finde den Befehl für NX4 vb.net    kann mir jemand helfen?

unter: Insert -> Curve from Bodies -> Section 
kann man eine Ebenen erstellen, die eine Kurve schneiden und auf der Kurve Punkte erstellt..

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

---

uf_curve.gif

manchmal hilft's etwas zu suchen und zu lesen

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

---

hallo mseufert,
bin leider kein programmier und steh leider auch nachm lesen noch aufm schlauch, mir fehlt es leider bei der umsetzung 

gruß EMMY

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

---

Hallo EMMY,

da haben wir schon eine Gemeinsamkeit: Informatiker bzw. Programmierer bin ich auch nicht. Und was die Umsetzung angeht, ist's ganz ähnlich. Das müsste ich auch erst erarbeiten oder ein zutreffendes Beispiel suchen.

Gruß, Michael

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

---

Servus,

wie soll dein Tool am Ende aussehen?

Wenn es dir nur um die Punkte geht, schau dir mal das Punkteset an 

Gruß,
  Thomas

------------------
Hopfen und Mals
Gott erhalts 

Programming is similar to sex. If you make a mistake, you have to support it for the rest of your life.

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

---

ja es geht mir am Ende "nur" um die Punkte 

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

---

intersection.JPG

also ich probier das jetzt mal anders, (siehe Bild im Anhang)

ich erstelle mir selber eine Ebene und versuche jetzt über
PointConstructor->Intersection Point die Punkte oben und unten auf der Kurve zu verteilen
(es ist eine Kurve, keine zwei)

ich habe den curve.tag und Ebenen.tag und
jetzts hapert es leider noch an der Punkteerstellung mittels des Befehls Intersection...

Ich bekomme leider nur immer den Punkt der oberen Kurve..
kann mir jemand helfen, wie ich auch den unteren punkt bekomme?

Dim ref_point(2) As Double
ref_point(0) = 0      'x
ref_point(1) = 0      'y
ref_point(2) = 0      'z
Dim plane_tag As NXOpen.Tag = datumPlane2.Tag
Dim out_info As NXOpen.UF.UFCurve.IntersectInfo = Nothing
ufs.Curve.Intersect(curve, plane_tag, ref_point, out_info)

lw.Open()
lw.WriteLine(out_info.curve_point(0) & " " & out_info.curve_point(1) " " & out_info.curve_point(2))

kann mir jemand dabei behilflich sein?   

[Diese Nachricht wurde von EMMY am 17. Apr. 2009 editiert.]

[Diese Nachricht wurde von EMMY am 17. Apr. 2009 editiert.]

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

---

probier den ref_point in der gewünschten Richtung einmal mit +Wert und einmal mit -Wert auslesen..

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