---

Hallo zusammen,
ich arbeite mittlerweile mit Journals im NX. Ich nehme die Journals hauptsächlich mit dem Recorder auf und ändere sie dann geringfügig mit VB Code, meine Programmierkenntnisse sind praktisch nicht vorhanden aber ich lese mich ein. Im Augenblick möchte ich mit meinem Journal im Partfile ein Maß ändern dann das i_part-,fem- und Simfile aktualisiern und neu Simulieren. Anschließend das ganze von vorn mit 1mm mehr dicke usw. Nun eine start Dicke eingabeaufforderung sowie eine Schleife zum neu simulieren habe ich geschafft das läuft alles soweit gut. Das Problem ist aber das es mir bei jedem Schleifendurchlauf die Simulationsergebnisse ohne Zwischenspeichern überschreibt (eh logisch).  

Ich wollte also schon vor Beginn der Simulation in die Schleife ein Speichern unter (z.B.: mit dem Schleifenzähler) einfügen das funktioniert aber nicht! Ich habe dann das Speichern unter mal versucht isoliert laufen zu lassen aber auch das geht nicht? Anbei der Code. Wisst ihr wo das Problem liegt? Liegt es auch daran dass das Ausgangsteil nach jedem Speichern unter anders heißt? Wo kann ich Details zu den Funktionen in NX Journals nachlesen (Übergabewerte etc.)? 

vielen Dank!
LG Matthias

Option Strict Off
Imports System
Imports NXOpen

Module NXJournal
Sub Main

Dim theSession As Session = Session.GetSession()
Dim workSimPart As CAE.SimPart = CType(theSession.Parts.BaseWork, CAE.SimPart)

Dim displaySimPart As CAE.SimPart = CType(theSession.Parts.BaseDisplay, CAE.SimPart)

' ----------------------------------------------
'  Menu: File->Save As...
' ----------------------------------------------
Dim Teilename As String = InputBox ("Bitte neuen Namen eingeben")
Dim simPart1 As CAE.SimPart = CType(workSimPart, CAE.SimPart)

Dim partSaveStatus1 As PartSaveStatus
partSaveStatus1 = simPart1.SaveAs("C:\Users\wozma07\Documents\Uebungen\Versuche\Neuer Ordner\" &Teilename)

partSaveStatus1.Dispose()
' ----------------------------------------------
'  Menu: Tools->Journal->Stop Recording
' ----------------------------------------------

End Sub
End Module

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

---

Hat sich erledigt, es lag an der fehlenden Dateiendung:

partSaveStatus1 = simPart1.SaveAs("C:\Users\wozma07\Documents\Uebungen\Versuche\NeuerOrdner\" &Teilename &".sim")

jetzt werden alle der Reihe nach simuliert und abgelegt

LG Matthias

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