Guten morgen zusammen,
wir nutzen bei uns ein Button zum exportieren von Step-Dateien auf einen bestimmten Ordner.
Jedoch funktioniert dieser Export nicht zuverlässig.
Bei manchen Komponenten läuft der Prozess sauber durch, bei manchen Komponenten kommt jedoch nur ein LOG-File mit der Meldung:
UG to STEP
! WARNING- No parts in current input file
Der Export der Step wurde im Code wie folgt erstellt.
Wisst Ihr zufällig wo das Problem sein könnte?
Viele Grüße
Eduard
Dim markId1 As NXOpen.Session.UndoMarkId = Nothing
markId1 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Visible, "Start")
Dim stepCreator1 As NXOpen.StepCreator = Nothing
stepCreator1 = theSession.DexManager.CreateStepCreator()
stepCreator1.ExportAs = NXOpen.StepCreator.ExportAsOption.Ap214
stepCreator1.OutputFile = ausgabeFile'"C:\temp\" & currentFile & "-" & index & ".stp"
lg.WriteLine("~ OutputFile : " & stepCreator1.OutputFile) 'LOG
stepCreator1.SettingsFile = "C:\plm\nx\step214ug\ugstep214.def"
stepCreator1.ExportSelectionBlock.SelectionScope = NXOpen.ObjectSelector.Scope.SelectedObjects
stepCreator1.ObjectTypes.Curves = True
stepCreator1.ObjectTypes.Surfaces = True
stepCreator1.ObjectTypes.Solids = True
stepCreator1.ObjectTypes.ProductData = True
stepCreator1.ColorAndLayers = True
stepCreator1.InputFile = originalFile '"@DB/" & currentFile & "/" & strRevision "
lg.WriteLine("~ InputFile : " & stepCreator1.InputFile) 'LOG
stepCreator1.OutputFile = ausgabeFile ' & "stp"
lg.WriteLine("~ StepOut : " & stepCreator1.OutputFile) 'LOG
theSession.SetUndoMarkName(markId1, "STEP-Exportoptionen-Dialogfenster")
stepCreator1.ExportSelectionBlock.SelectionScope = NXOpen.ObjectSelector.Scope.EntirePart
Dim markId2 As NXOpen.Session.UndoMarkId = Nothing
markId2 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Invisible, "STEP-Exportoptionen")
theSession.DeleteUndoMark(markId2, Nothing)
Dim markId3 As NXOpen.Session.UndoMarkId = Nothing
markId3 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Invisible, "STEP-Exportoptionen")
stepCreator1.FileSaveFlag = False
stepCreator1.LayerMask = "1" '"1-256"
Dim nXObject1 As NXOpen.NXObject = Nothing
nXObject1 = stepCreator1.Commit()
theSession.DeleteUndoMark(markId3, Nothing)
theSession.SetUndoMarkName(markId1, "STEP-Exportoptionen")
stepCreator1.Destroy()
theSession.CleanUpFacetedFacesAndEdges()
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP