Code:
Dim ufs As UFSession = UFSession.GetUFSession()
Dim theSession As NXOpen.Session = NXOpen.Session.GetSession()
Dim partSaveStatus1 As NXOpen.PartSaveStatus
Dim partName As String
Dim partNumber As String
Dim partRevision As String
Dim partFileType As String
Dim partFileName As String ' ----------------------------------------------
' Dateiauslesen: Name, partNumber, Revision, Typ, partFileName
' ----------------------------------------------
Try
ufs.Part.AskPartName(theSession.Parts.BaseWork.Tag, partName)
ufs.Ugmgr.DecodePartFileName(partName, partNumber, partRevision, partFileType, partFileName)
Catch ex As Exception
MsgBox(ex.ToString)
End Try
Try
' ----------------------------------------------
' Unterscheiden des ItemTyps; Wenn cae_solution oder cae_mesh workpart in workSimpart oder workFemPart geändert und dementsprechend speichern
' ----------------------------------------------
If partFileType = "cae_solution" Then
' ----------------------------------------------
' Menü: Datei->Optionen ->Speicheroptionen... JT Haken raus
' ----------------------------------------------
theSession.Parts.SaveOptions.VisualizationData = False
Dim workSimPart As SimPart = CType(theSession.Parts.BaseWork, SimPart)
partSaveStatus1 = workSimPart.Save(SimPart.SaveComponents.False, SimPart.CloseAfterSave.False)
partSaveStatus1.Dispose()
' ----------------------------------------------
' Menü: Datei->Optionen ->Speicheroptionen... JT + CGM Haken rein
' ----------------------------------------------
theSession.Parts.SaveOptions.VisualizationData = True
workSimPart.SaveOptions.DrawingCgmData = True
ElseIf partFileType = "cae_mesh" Then
' ----------------------------------------------
' Menü: Datei->Optionen ->Speicheroptionen... JT Haken raus
' ----------------------------------------------
theSession.Parts.SaveOptions.VisualizationData = False
Dim workFemPart As FemPart = CType(theSession.Parts.BaseWork, FemPart)
partSaveStatus1 = workFemPart.Save(FemPart.SaveComponents.False, FemPart.CloseAfterSave.False)
partSaveStatus1.Dispose()
' ----------------------------------------------
' Menü: Datei->Optionen ->Speicheroptionen... JT + CGM Haken rein
' ----------------------------------------------
theSession.Parts.SaveOptions.VisualizationData = True
workFemPart.SaveOptions.DrawingCgmData = True
Else
Dim workPart As NXOpen.Part = theSession.Parts.Work
Dim displayPart As NXOpen.Part = theSession.Parts.Display
' ----------------------------------------------
' Menü: Datei->Optionen ->Speicheroptionen... JT Haken raus
' ----------------------------------------------
theSession.Parts.SaveOptions.VisualizationData = False
' ----------------------------------------------
' Menü: Datei->Nur aktives Teil speichern
' ----------------------------------------------
partSaveStatus1 = workPart.Save(NXOpen.BasePart.SaveComponents.False, NXOpen.BasePart.CloseAfterSave.False)
partSaveStatus1.Dispose()
' ----------------------------------------------
' Menü: Datei->Optionen ->Speicheroptionen... JT + CGM Haken rein
' ----------------------------------------------
theSession.Parts.SaveOptions.VisualizationData = True
workPart.SaveOptions.DrawingCgmData = True
End If
Catch ex As Exception
MsgBox(ex.ToString)
End Try