---

Servus,

ich benötige eine Ausgabe der X/Y-Koordinaten aller auf einem Zeichnungsblatt eines NX-Drawings vorhandene Punkte (NX6.0.4, VB.Net)

Was habe ich bisher probiert?

1. Lösung:
Dim theSession As Session = Session.GetSession()
Dim workPart As Part = theSession.Parts.Work
For Each obj1 As DisplayableObject In workPart.Points
    Dim point As Point
    point = obj1
    Dim origin As Point3d = point.Coordinates
    msgbox("Ermittelter Punkt (Koordinaten): " & vbCrLf & origin.X & " x " & origin.Y)
    obj1 = Nothing
Next

Vorteil:
Ich weiß wie ich an die Koordinaten komme.

Nachteil:
Diese Lösung listet nicht nur alle Punte des aktuellen Zeichnungsblattes (Sheets) auf, sondern _alle_ Punkte des aktiven Teiles - also auch diejenigen auf den anderen Zeichnungsblättern oder in eventuell vorhandenem 3D-Modell.

2. Lösung:
Dim dwgView As NXOpen.Tag = NXOpen.Tag.Null
ufs.Draw.AskViewOfDrawing(curDwg, dwgView)
Dim obj As NXOpen.Tag = NXOpen.Tag.Null
Do
    ufs.View.CycleObjects(dwgView, UFView.CycleObjectsEnum.DependentObjects, obj)
    If obj <> NXOpen.Tag.Null Then
        ufs.Obj.AskTypeAndSubtype(obj, intType, intSubtype)
        If intType = UFConstants.UF_drafting_entity_type And _
            intSubtype = UFConstants.UF_draft_point_subtype Then

            'hmmm... wie jetzt hier weiter???

        End If
    End If
Loop Until obj = NXOpen.Tag.Null

Vorteil:
Ich erhalte wirklich nur die Objekte, die auf dem aktuellen Zeichnungsblatt liegen.

Nachteil:
Ich habe keine Ahnung, wie ich über diese Methode an die Koordinaten komme... 

Könnt Ihr mir hierbei helfen?

Danke  vielmals im Voraus,
Jürgen

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

---

Zitat:

---

Original erstellt von Jürgen75:
            'hmmm... wie jetzt hier weiter???

---

Hallo Jürgen,

entweder Du bleibst bei der UFSession (mal in ufs.Modl, ufs.Curve etc. nach passender Funktion suchen) oder Du wandelst den Tag über den NXObjectManager bzw. Ctype in einen Point um.

Gruß, Michael

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

---

Hallo Michael,

tausend Dank!!!

Der Tip mit ufs.Curve... war Gold wert!!! Den Wink mit dem Zaunpfahl habe ich gebraucht!

Hier zur Vollständigkeit halber der Code der inneren If-Abfrage:

If intType = 2 And intSubtype = 0 Then
  Dim pCoords(2) as Double
  ufs.Curve.AskPointData(obj, pCoords)
  For Each aCoords As Double In pCoords
    MsgBox(aCoords.ToString)
  Next
End If

Danke und Grüße,
Jürgen

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

---

Hallo Jürgen,

der Zaunpfahl hat andere Dimensionen. Das hier würd' ich vielleicht als Stöckchen, eher noch als Streichholz bezeichnen. 

Gruß, Michael

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