---

Hallo Leute,

ich bins wieder mit einen kleinen Problem...
Ich versuche die Linien bzw. deren X-Y-Z-Koordinaten, die ich in einer Skizze gesetzt habe, auszulesen. Das klappt aber leider nicht... Ich fange grade erst mit NX Programmierung an und einfach nicht den Bogen raus, wie das unter .Net aufgebaut ist...

Erstmal mein Code:

--------------------------
Public Sub fkt()
...

nxSession = NXOpen.Session.GetSession()
nxPart = nxSession.Parts.Work
nxSketches = nxPart.Sketches.ToArray

For j = 0 To nxSketches.Length - 1
  nxGeometries = nxSketches(j).GetAllGeometry

  for i = 0 to nxGeometries.length - 1
    MsgBox(nxGeometries(i).ToString())
  next i
next j

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

bis zu den Linien bin ich nur halbwegs gekommen, da mir diese Funktion (nxGeometries(i).ToString()) "Line [eine Zahl (5-stellig)]" zurückgibt...

Doch wie komme ich von hier aus weiter?
Irgendwie müsste ich doch ein Point3d-Object für den Start- und Endpunkt der Linie bekommen...

Würde mich über baldige Hilfe freuen.

Mit freundlichen Grüßen
Michael

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

---

Hallo Michael,

ohne das nun ausprobiert zu haben, gehe ich davon aus, daß die fünfstellige Zahl der sog. TAG ist. Mit diesem Tag kann über ask_type_and_subtype (vermutlich in NXOpen.Object) der Objekttyp festgestellt werden. Handelt es sich jetzt um eine Linie, geht der Zugriff aus deren Daten wie folgt: Objekt anlegen mit Dim my_line as NXOpen.line (Kann auch ... as New ... lauten). Über NXObjectManager.Get()  kriegt man das Objekt zum Tag. Mit my_line.[Startpoint|Endpoint] können dann die Punkte gelesen werden, für die man zuvor das entsprechende Objekt (Point3D)  anlegt. Aus dem Punkt sind dann die Koordinaten in der selben Weise abzufragen.

So oder so ähnlich könnte das funktionieren, siehe oben.

Gruß, Michael

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

---

Hallo Michael

Hab deinen Ansatz nicht ausprobiert, weil ich in der Zwischenzeit schon eine Lösung gefunden habe:

------------------------
Public Sub fkt()
...

nxSession = NXOpen.Session.GetSession()
nxPart = nxSession.Parts.Work
nxSketches = nxPart.Sketches.ToArray

For j = 0 To nxSketches.Length - 1
  nxGeometries = nxSketches(j).GetAllGeometry

  for i = 0 to nxGeometries.length - 1

    Dim l As NXOpen.Line = CType(nxGeometries(i), NXOpen.Line)
    MsgBox(l.EndPoint.X)

  next i
next j

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

Aber bis ich darauf gekommen bin, das Line eine abgeleitete Klasse von NXObject ist, hats lange gedauert.

Aber vielen Dank für deine Hilfe
Michael

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

---

Hallo Michael,

bis auf die Abfrage des Objekttyps und der Typumwandlung mit Ctype ist es der selbe Weg wie oben beschrieben. Und solange Du nur Linien im Sketch hast, wird's auch klappen. Sollten aber im Sketch neben Lines auch andere Objekte drin sein, wirst Du vermutlich in eine Exception laufen. Ctype kann halt aus einem Kreis keine Linie zaubern, das kann der NXObjectmanager genauso wenig.

Um sicher zu gehen, daß Dein Program stabil läuft, sollte also vor einer Typwandlung die Typabfrage gemacht werden. 

Gruß, Michael

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

---

Gut das du mich dran erinnerst, hatte ich auch noch vor!
Danke.

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