Export assembly (with drawings)

Hi,

I am editing your code to use it with a different naming method.
For 1 particualr part I get a journal execution error from which I can't find the couse. It says NXOpen.NXException: Invalid file name at NXopen.UF.UFClone.PerformClone(NamingFailures_naming_failures).

Option Strict Off
Imports System
Imports System.Collections.Generic
Imports System.Text.RegularExpressions
Imports System.IO
Imports System.Windows.Forms
Imports NXOpen
Imports NXOpen.Assemblies
Imports NXOpen.UF
Imports NXOpen.UI

Module Cloon_Tool

Dim theSession As Session = Session.GetSession()

Dim theUFS As NXOpen.UF.UFSession = NXOpen.UF.UFSession.GetUFSession()

Dim theUISession As UI = ui.GetUI

Public lw As ListingWindow = theSession.ListingWindow

Public pList As New List(Of String)

Sub Main()

' when there is a part loaded, error!
If Not IsNothing(theSession.Parts.Display) Then
theUISession.NXMessageBox.Show("Error", NXOpen.NXMessageBox.DialogType.Error, "There is allready a part loaded. Close the part and try again!...")
Exit Sub
End If

' searching Excel- and NX-Data
Dim OFD As New OpenFileDialog

OFD.Title = "Please select an assembly"
OFD.Filter = "NX-Files (*.prt) |*.prt"
OFD.InitialDirectory = "C:\"

Dim BGfileName As String
Dim BGDirectory As String

If OFD.ShowDialog = DialogResult.OK Then

BGDirectory = Replace(OFD.FileName, System.IO.Path.GetFileName(OFD.FileName), "")
BGfileName = System.IO.Path.GetFileName(OFD.FileName)

Else

Exit Sub

End If

' loading assembly
' error when assembly can't be loaded
Dim loadStatus As PartLoadStatus
Dim BG As Part = theSession.Parts.OpenBaseDisplay(BGDirectory & BGfileName, loadStatus)
If loadStatus.NumberUnloadedParts > 0 Then
theUISession.NXMessageBox.Show("Error!", NXOpen.NXMessageBox.DialogType.Error, "Error loding the assembly!" & vbNewLine & "Number of unloaded parts: " & loadStatus.NumberUnloadedParts & vbNewLine & "Check your loading options...")
Exit Sub
End If

Dim displayPart As Part = theSession.Parts.Display

Dim c As ComponentAssembly = displayPart.ComponentAssembly
If Not IsNothing(c.RootComponent) Then

pList.Add(c.RootComponent.DisplayName)

getComps(c.RootComponent, 0)

Else

theUISession.NXMessageBox.Show("Error", NXOpen.NXMessageBox.DialogType.Error, "Part is not an assembly!")
Exit Sub

End If

Dim value As String = String.Join(vbNewLine, pList)
lw.Open()
lw.WriteLine(vbNewLine & vbNewLine & "Parts List:" & vbNewLine & value & vbNewLine & vbNewLine)
'lw4.Close()

'checking drawings
Dim drwList As New List(Of String)
Dim numNotFound As Integer = 0
Dim notFound As String = ""
lw.WriteLine(vbNewLine & vbNewLine & "DRAWINGS ZOEKEN....." & vbNewLine)
For Each temp As String In pList
Dim tmpPart As Part
Try
tmpPart = CType(theSession.Parts.FindObject(temp), Part)
Catch ex As Exception
theUISession.NXMessageBox.Show("Error", NXOpen.NXMessageBox.DialogType.Error, "Part " & temp & " is corrupt or not loaded!")
theSession.Parts.CloseAll(BasePart.CloseModified.CloseModified, Nothing)
Exit Sub
End Try
If FindDrawings(tmpPart.FullPath, drwList) = 0 Then
notFound &= tmpPart.Leaf & vbNewLine
numNotFound += 1
End If
Next
'Dim drwListValues As String = String.Join(vbNewLine, drwList)
'lw4.WriteLine(vbNewLine & vbNewLine & "Gevonden drawings:" & vbNewLine & drwListValues & vbNewLine & vbNewLine)

' MessageBox mit nicht gefundenen Zeichnungen anzeigen
' in this particular case, the suffix for the drawing can take many forms; the english version of this message could be changed to something like:
' "Drawings for the following parts could not be found:"
'Dim lw2 As ListingWindow = theSession.ListingWindow
'lw2.Open()
If numNotFound > 0 Then
If theUISession.NXMessageBox.Show("Drawing Inspection!", NXOpen.NXMessageBox.DialogType.Question, "Drawings for the following parts could not be found: " & vbNewLine & vbNewLine & notFound & vbNewLine & vbNewLine & "Press ""Yes"" to proceed, press ""No"" to abort...") = 2 Then
Exit Sub
End If
'lw2.WriteLine(notFound)
End If
'lw2.Close()

'Ausgabeverzeichnis auswählen
Dim theDirectory As String

Dim FolderBrowserDialog1 As New FolderBrowserDialog
With FolderBrowserDialog1

.RootFolder = Environment.SpecialFolder.Desktop

.SelectedPath = "Please set path to initial directory..."

.Description = "Please select an output directory..."

If .ShowDialog = DialogResult.OK Then

theDirectory = .SelectedPath

Else

Exit Sub

End If

End With

Dim cloner As NXOpen.UF.UFClone = theUFS.Clone

Dim opt As NXOpen.UF.UFClone.ExLogOpts
opt.allow_missing_components = False

cloner.Initialise(NXOpen.UF.UFClone.OperationClass.CloneOperation)
cloner.SetDefNaming(UFClone.NamingTechnique.NamingRule)
cloner.SetDefDirectory(theDirectory)
cloner.AddAssembly(BGDirectory & BGfileName, Nothing)

'Zeichnungen anhängen
For y As Integer = 0 To drwList.Count - 1
cloner.AddPart(drwList.Item(y))
Next

' Hier Namensgebung (aktuell: Dateinamen beibehalten)
Dim namerule1 As NXOpen.UF.UFClone.NameRuleDef
namerule1.type = UFClone.NameRuleType.ReplaceString
namerule1.new_string = ""

cloner.SetNameRule(namerule1, Nothing)
'Teilefamilien
cloner.SetFamilyTreatment(UFClone.FamilyTreatment.TreatAsLost)
cloner.SetLogfile(theDirectory & "\" & BGfileName.Replace(".prt", "_export.txt"))
cloner.SetDryrun(False)
cloner.PerformClone(Nothing)
cloner.Terminate()

'alle Teile schließen und Meldung geben
theSession.Parts.CloseAll(BasePart.CloseModified.CloseModified, Nothing)

theUISession.NXMessageBox.Show("Clone Operation", NXOpen.NXMessageBox.DialogType.Information, "The assembly export is completed!")

End Sub

Sub getComps(ByVal comp As Component, ByVal indent As Integer)
'Dim lw1 As ListingWindow = theSession.ListingWindow
'lw1.Open()
For Each child As Component In comp.GetChildren()

If Not pList.Contains(child.DisplayName) Then pList.Add(child.DisplayName)
'lw1.WriteLine(child.DisplayName & vbNewLine)
getComps(child, indent + 1)

Next
'lw1.Close()
End Sub

Function FindDrawings(ByVal modelPath As String, ByRef dwgList As List(Of String)) As Integer

'search folder of work part to find drawings
Dim searchFolder As String = IO.Path.GetDirectoryName(modelPath)
Dim baseNumber As String = IO.Path.GetFileNameWithoutExtension(modelPath)
lw.WriteLine("ZOEKEN NAAR:" & baseNumber & vbNewLine)

'lw.WriteLine(vbNewLine & vbNewLine & "search folder: " & searchFolder & vbNewLine)
'lw.WriteLine(vbNewLine & vbNewLine & "Drawings Found:" & vbNewLine)

Dim dwgs As New List(Of String)

'Dim searchPattern As String = "[-|_]dwg(\.\d*)?"
'Dim searchPattern1 As String = Regex.Escape(baseNumber) + "_DRW"
'Dim searchPattern2 As String = baseNumber & "_11[0|2]-\d*$"

Dim prtFiles1() As String = IO.Directory.GetFiles(searchFolder, "*.prt")
'Dim lw3 As ListingWindow = theSession.ListingWindow
'lw3.Open()
For Each prt As String In prtFiles1
If Regex.IsMatch(IO.Path.GetFileNameWithoutExtension(prt), "^" & Regex.Escape(baseNumber) + "_DRW$") Then
dwgs.Add(prt)
dwgList.Add(prt)
lw.WriteLine(vbNewLine & "GEVONDEN:" & prt & vbNewLine & vbNewLine)
End If
Next
'lw3.Close

'Dim prtFiles2() As String = IO.Directory.GetFiles(searchFolder, "*.prt")
'For Each prt As String In prtFiles2
' If Regex.IsMatch(IO.Path.GetFileNameWithoutExtension(prt), searchPattern2) Then
' dwgs.Add(prt)
' dwgList.Add(prt)
' End If
'Next

Return dwgs.Count

End Function

Public Function GetUnloadOption(ByVal dummy As String) As Integer

Return Session.LibraryUnloadOption.Immediately

End Function

End Module

can you please update the code with English language since am getting errors while running the code.