"Batch-Only" Programm

Module NXCODE
Public modus As String = ""
Public inputfile As String = ""
Public outputfile As String = ""
Public definitionfile As String = ""
Public logfile As String = ""
Public hidden As Boolean = False
Public theSession As Session = Session.GetSession()
Public workPart As Part
Public displayPart As Part
Public refMembers(-1) As NXObject

Const REFSETNAME As String = "NAMEOFTHEREFSETGOESHERE"

Sub Main(ByVal startparam() As String)
If CheckStartParameter(startparam) = False OrElse ValidateArguments() = False Then
Console.WriteLine("Konvertierung aufgrund eines Fehlers beendet...")
Environment.ExitCode = 1
Exit Sub
End If
LoadPart()
GetVisibleBodies()
End Sub

Sub LoadPart()
Dim basePart1 As BasePart
Dim partLoadStatus1 As PartLoadStatus
basePart1 = theSession.Parts.OpenBaseDisplay(inputfile, partLoadStatus1)
displayPart = theSession.Parts.Display
workPart = theSession.Parts.Work
partLoadStatus1.Dispose()
End Sub

Function ValidateArguments() As Boolean

If Not IO.File.Exists(definitionfile) OrElse Not IO.File.Exists(inputfile) Then
Console.WriteLine("Definitions- oder Inputdatei nicht gefunden")
Return False
End If
Try
If IO.File.Exists(outputfile) Then
IO.File.Delete(outputfile)
End If
Catch ex As Exception
Console.WriteLine("Überschreiben der STEP Datei fehlgeschlagen. " & ex.Message)
Return False
End Try
Return True
End Function

Sub GetVisibleBodies()

Dim theBodies As New List(Of DisplayableObject)
Dim myReferenceSets As ReferenceSet() = workPart.GetAllReferenceSets()

For Each myRefSet As ReferenceSet In myReferenceSets
If myRefSet.Name.ToUpper() = REFSETNAME Then
refMembers = myRefSet.AskAllDirectMembers()
For Each myObject As DisplayableObject In refMembers
If hidden = True Then
theBodies.Add(myObject)
Else
If myObject.IsBlanked = False Then
theBodies.Add(myObject)
End If
End If
Next
End If
Next

If theBodies.Count > 0 Then
StepExport(theBodies)
Else
Console.WriteLine("Nichts zu exportieren...")
Environment.ExitCode = 1
Exit Sub
End If
End Sub

Sub StepExport(ByVal theBodies As List(Of DisplayableObject))

Console.WriteLine("Starte Konvertierung...")

Dim step214Creator1 As Step214Creator
step214Creator1 = theSession.DexManager.CreateStep214Creator()
Try

With step214Creator1
.SettingsFile = definitionfile
.ExportSelectionBlock.SelectionScope = ObjectSelector.Scope.SelectedObjects
.ObjectTypes.Solids = True
.ObjectTypes.Structures = True
.ObjectTypes.Surfaces = True
.ObjectTypes.Csys = True
.ObjectTypes.Curves = True
.OutputFile = outputfile
.FileSaveFlag = False
.LayerMask = "1-256"
.ProcessHoldFlag = True
Dim added1 As Boolean
added1 = .ExportSelectionBlock.SelectionComp.Add(theBodies.ToArray)
End With

Dim nXObject1 As NXObject
nXObject1 = step214Creator1.Commit()
Catch ex As NXException
Console.WriteLine("Fehler... " & ex.Message)
Environment.ExitCode = 1
Exit Sub
Finally
Console.WriteLine("Beende Konvertierung...")
step214Creator1.Destroy()
End Try

End Sub

Function CheckStartParameter(ByVal startparam As Array) As Boolean
If startparam.Length < 4 Then
Console.WriteLine("Es wurden nur " & startparam.Length.ToString & " von 4 benötigten Startparametern übergeben")
Return False
Else
Dim lastloop As Integer = startparam.Length - 1
For Each value As String In startparam
If value.ToLower.Contains("d=") And value.ToLower.Contains(".def") Then
definitionfile = value.Substring(value.IndexOf(Chr(61)) + 1, value.Length - 1 - value.IndexOf(Chr(61)))
ElseIf value.ToLower.Contains("m=") And value.ToLower.Contains("online") Or value.ToLower.Contains("offline") Then
modus = value
ElseIf value.ToLower.Contains("o=") And value.ToLower.Contains(".stp") Then
outputfile = value.Substring(value.IndexOf(Chr(61)) + 1, value.Length - 1 - value.IndexOf(Chr(61)))
ElseIf value.ToLower.Contains("h=") Then
If value.ToLower.Contains("h=true") Then
hidden = True
End If
ElseIf lastloop <= 0 And value.ToLower.Contains(".prt") Then
inputfile = value
Else
Console.WriteLine("Falscher Kommandozeilen-Parameter übergeben, beende Konvertierung...")
Environment.ExitCode = 1
Return False
End If
lastloop -= 1
Next
End If
Return True
End Function