Hi everyone,
I am working over a journal to clone from .clone files
we need to clone several times same part/asm with different names.
I have an excel that builds those clone files.
Now I have a code that (just part of it,I ´ve simplified Sub Main, imports just to show intentions):
Option Strict Off
Imports...
Module
Dim inDir As String
Dim myclone As NXOpen.UF.UFClone = ufs.Clone
Sub Main()
Dim dir As String
Dim count As Integer
'ask for dir where .clone files are (this works fine)
carpeta = startDir
If (Sel_Dir(dir) <> DialogResult.OK) Then Return
inDir = dir
'go to my process Sub
process(dir)
End Sub
Sub process(dir As String)
Dim files() As String
Dim file As String
files = Directory.GetFiles(dir, "*.clone", SearchOption.AllDirectories)
For Each file In files
clone(file)
Next
End Sub
'------------
'this sub is exactly as I have it in my code, and it works (it clones) but never ends
Sub clone (file)
Dim opt As NXOpen.UF.UFClone.ExLogOpts
opt.allow_missing_components = False
myclone.ExecuteLogFile(NXOpen.UF.UFClone.OperationClass.CloneOperation, file, opt)
myclone.SetDryrun(False)
myclone.Terminate()
End Sub
'------------
End Module
Problem: the clone sub, does clone files, but it never "ends" the sub,so my program never goes back to main, and of course never goes back to loop, to work over next .clone file.
I think it has to do with .ExecuteLogFile, but I didnt find much info about it (just what is in plm doc).
have you got any idea what is going on? whats missing?