---

test.txt

Servus,

ich hab mal wieder ein kleines Problem...

Ich hole mir aus einem Part mit diesem Code:

Dim Path As String = PFAD
Dim objs() As NXObject = workPart.Layers.GetAllObjectsOnLayer(15)
Dim lw As ListingWindow = theSession.ListingWindow
        lw.SelectDevice(ListingWindow.DeviceType.File, Path)
        theSession.Information.DisplayObjectsDetails(objs)

über ein Journal Informationen zu einer 2D-Kontur.
Auf dem Layer 15 gibt es genau 51 Elemente (Linien, Kreisbögen, Splines). Leider wird meine Textdatei immer mitten im 50.Element abgeschnitten, sprich, die Informationen werden nicht bis zum Schluss in die Datei geschrieben.

Nun frage ich mich warum dies so ist?
Schließt sich das ListingWindow zu schnell?

Ein weiteres Problem ist, die Datei bleibt auch nach Ausführung des Journals durch NX geöffnet sodass ich sie erst löschen kann wenn ich NX beendet habe.
Muss bei meinem Script noch das ListingWindow geschlossen werden oder eine Pause rein damit alles in die Datei geschrieben wird?

Anbei die Textdatei die ich raus schreibe.

Würde mich über eine Antwort freuen =)

Gruß
Bito

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

---

Hallo Bito,

Ohne den kompletten Quellcode zu sehen, würde ich sagen, dass Dein Ausgabestream noch offen ist und der Rest der Ausgabe im Puffer.
Ein lw.Close() sollte es tun.

Gruß
Jan

------------------
Jan Böttcher
www.ib-boettcher.de

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

---

Ok, hier noch mal der gesamte Code:

Option Strict On
Imports System
Imports NXOpen
Imports System.IO
Imports System.Windows.Forms
Imports System.Runtime.InteropServices
Imports NXOpen.UF
Imports NXOpen.Utilities
Imports NXOpenUI

Module NXJournal
    Sub Main()

        Dim theSession As Session = Session.GetSession()        
        Dim workPart As Part = theSession.Parts.Work
        Dim displayPart As Part = theSession.Parts.Display
        Dim UFSes As UFSession = UFSession.GetUFSession()
        Dim Path As String = Pfad  <----Hier steht normalerweise auch ein richtiger Pfad =)
        Dim objs() As NXObject = workPart.Layers.GetAllObjectsOnLayer(15)
        Dim lw As ListingWindow = theSession.ListingWindow
       
        lw.SelectDevice(ListingWindow.DeviceType.File, Path)
        theSession.Information.DisplayObjectsDetails(objs)
lw.close()

    End Sub
End Module

Hier ist auch schon das lw.close() mit drin und habs getestet. Hat leider keine Änderung gebracht.
Weder die Datei ist vollständig, noch lässt sich die Datei löschen ohne vorher NX zu schließen.

Gruß
Bito

[Diese Nachricht wurde von Bito00 am 03. Mai. 2011 editiert.]

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

---

Hallo Bito

Stimmt, mein Close() reicht nicht. Es muss noch das Ausgabeziel wieder umgeschaltet werden.

lw.SelectDevice(ListingWindow.DeviceType.Window,"")

Sorry für die halbe Antwort.

Gruß
Jan

------------------
Jan Böttcher
www.ib-boettcher.de

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

---

Ahh, jetzt funktioniert es.

Danke für die schnelle Hilfe!

Gruß
Bito

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

---

Hallo zusammen,

was müsste ich zusätzlich an dem hier dargestellten Code anpassen damit ich nur die Informationen der Flächen eines bestimmten Layers ausschreiben kann?
Ich habe schon einige Foren beiträge durchforstet aber leider nichts brauchbares gefunden. Ich hoffe ihr könnt mir weiterhelfen.

Viele Grüße
Muxen

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