---

Hallo zusammen!
Ich habe eine Datei in der sich Punktkoordinaten befinden. Diese will ich in NX einlesen und im WCS erzeugen lassen. Ich habe das VB-Beispiel, welches sich in ...\NX75\UGOPEN\SampleNXOpenApplications\.NET\File2Points befindet, angepasst.

Ergebnis: Punkte werden eingelesen und erzeugt.
ABER leider relativ zum absoluten Koordinatensystem. Ich möchte sie im WCS (welches relativ zum absoluten Koordinatensystem verdreht und verschoben wurde) erzeugen.

Frage: Wie muss ich das Script verändern damit die Punkte relativ zum WCS erzeugt werden?

Auschnitt Quellcode:

Code:

---

Dim pt As Point3d
Dim delim As Char () = { ","C }
Dim strings As String () = line.Split(delim)
pt.x = Double.Parse(strings(0),provider)
pt.y = Double.Parse(strings(1),provider)
pt.z = Double.Parse(strings(2),provider)

Dim p As Point
p = session.Parts.Work.Points.CreatePoint(pt)

---

------------------

Deine Wahrnehmung bestimmt deine Realität!

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

---

Hallo uger,

ich hatte mal das gleiche Problem. Bei mir funktionierts so:

Dim pt As Point3d
Dim delim As Char () = { ","C }
Dim strings As String () = line.Split(delim)
pt.x = Double.Parse(strings(0),provider)
pt.y = Double.Parse(strings(1),provider)
pt.z = Double.Parse(strings(2),provider)

Dim ptwcs As Point3d = WCS2Abs(pt)

Dim p As Point
p = session.Parts.Work.Points.CreatePoint(ptwcs)

-------

Function WCS2Abs(ByVal inPt As Point3d) As Point3d
        Dim pt1(2), pt2(2) As Double

        pt1(0) = inPt.X
        pt1(1) = inPt.Y
        pt1(2) = inPt.Z

        ufs.Csys.MapPoint(UFConstants.UF_CSYS_ROOT_WCS_COORDS, pt1, _
            UFConstants.UF_CSYS_ROOT_COORDS, pt2)

        WCS2Abs.X = pt2(0)
        WCS2Abs.Y = pt2(1)
        WCS2Abs.Z = pt2(2)

    End Function

Gruß Thorsten

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

---

Vielen Dank schon einmal. ABER....

Die Zeile mit

  ufs.Csys.MapPoint(UFConstants.UF_CSYS_ROOT_WCS_COORDS, pt1, _
            UFConstants.UF_CSYS_ROOT_COORDS, pt2)

wird angemeckert. Muss ich da noch irgendwelche Namespaces einbinden? Welche? Ich blick noch nicht durch und weiss nicht wie ich die Info in der NXOpen-Doku finden kann.

(ratloser) uger

------------------

Deine Wahrnehmung bestimmt deine Realität!

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

---

Hallo uger,

versuchs mal mit:

Imports NXOpen.UF

und

Function WCS2Abs(ByVal inPt As Point3d) As Point3d
        Dim pt1(2), pt2(2) As Double

        Dim ufs As UFSession = UFSession.GetUFSession()

        pt1(0) = inPt.X
        pt1(1) = inPt.Y
        pt1(2) = inPt.Z

        ufs.Csys.MapPoint(UFConstants.UF_CSYS_ROOT_WCS_COORDS, pt1, _
            UFConstants.UF_CSYS_ROOT_COORDS, pt2)

        WCS2Abs.X = pt2(0)
        WCS2Abs.Y = pt2(1)
        WCS2Abs.Z = pt2(2)

    End Function

Gruß Thorsten

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

---

Ahhh, jetzt hab ich es gesehen

Code:

---

Dim ufs As UFSession = UFSession.GetUFSession()

---

Jetzt klappts auch, Danke

uger

------------------
 
Deine Wahrnehmung bestimmt deine Realität!

[Diese Nachricht wurde von uger am 24. Mrz. 2014 editiert.]

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

---

Hallo uger,

schau noch mal in die letzte Antwort.

In der Function habe ich noch etwas ergänzt:

Dim ufs As UFSession = UFSession.GetUFSession()

Gruß Thorsten

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

---

Ja, hab ich zu spät gesehen, meinen Beitrag dann editiert und dann hast Du mich überholt.

  Klappt aber super, vielen Dank.

uger

------------------

Deine Wahrnehmung bestimmt deine Realität!

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