Uf clone functions call question

[Ehaviv]

Hi is someone know in which order to call the uf cloning functions.
I know the order of the first and last but between I don't.

Thank you in advanced.


ufs.Clone.Terminate()
ufs.Clone.Initialise(UFClone.OperationClass.ImportOperation)
ufs.Clone.SetFamilyTreatment(UFClone.FamilyTreatment.StripFamilyStatus)
ufs.Clone.setDefNaming(UFClone.NamingTechnique.Autogen)
ufs.Clone.SetDefDirectory(pathsave)
ufs.Clone.SetDefAction(UFClone.Action.Overwrite)
ufs.Clone.SetLogfile(pathsave + "clone.txt")
ufs.Clone.SetDefAssocFileCopy (False)
ufs.Clone.SetDefFolder (user_name + ":" + import_folder)


Dim di As New IO.DirectoryInfo(pathsave)

Dim lFiles As IO.FileInfo() = di.GetFiles("*.prt")

Dim fi As System.IO.FileSystemInfo

Dim foundfile As IO.FileInfo

' get the files in the directory

For Each foundFile In lFiles


OS_FileName = foundFile.name.Remove(foundFile.name.Length - 4, 4)
ufs.Clone.AddAssembly(pathsave + foundfile.name, load_status)
ufs.Clone.AddPart(pathsave + foundfile.name)
ufs.Clone.setNaming(foundFile.name, UFClone.NamingTechnique.Autogen, OS_FileName)
ufs.Clone.SetPdmDesc(foundfile.name, OS_FileName)
ufs.Clone.SetPdmName(foundfile.name, OS_FileName)
ufs.Clone.SetAssocFileCopy (foundfile.name, False)

Next
Dim naming_failures As UFClone.NamingFailures = Nothing
ufs.Clone.setdryrun (false)
ufs.Clone.GenerateReport()
ufs.Clone.PerformClone (naming_failures)
ufs.Clone.Terminate()

 

[Ehaviv]

I need to know it the in between functions call order is important.

The above example was taken from this link

http://www.eng-tips.com/viewthread.cfm?qid=378131

and copied here for convantion

cschnei (Industrial) 
(OP)
29 Apr 15 07:22 
Hello Alex,
 I think you forgot to initialise the clone operation. Here is a snippet of the code I use to import all parts of a selected OS Folder to a specified Teamcenter folder:

 ufs.Clone.Terminate()
 ufs.Clone.Initialise(UFClone.OperationClass.ImportOperation)
[b] ufs.Clone.SetFamilyTreatment(UFClone.FamilyTreatment.StripFamilyStatus)
 ufs.Clone.setDefNaming(UFClone.NamingTechnique.Autogen)
 ufs.Clone.SetDefDirectory(pathsave)
 ufs.Clone.SetDefAction(UFClone.Action.Overwrite)
 ufs.Clone.SetLogfile(pathsave + "clone.txt")
 ufs.Clone.SetDefAssocFileCopy (False)
 ufs.Clone.SetDefFolder (user_name + ":" + import_folder)[/b]


 Dim di As New IO.DirectoryInfo(pathsave)

 Dim lFiles As IO.FileInfo() = di.GetFiles("*.prt")

 Dim fi As System.IO.FileSystemInfo

 Dim foundfile As IO.FileInfo

 ' get the files in the directory

 For Each foundFile In lFiles


 OS_FileName = foundFile.name.Remove(foundFile.name.Length - 4, 4)
 [b]ufs.Clone.AddAssembly(pathsave + foundfile.name, load_status)
 ufs.Clone.AddPart(pathsave + foundfile.name)
 ufs.Clone.setNaming(foundFile.name, UFClone.NamingTechnique.Autogen, OS_FileName)
 ufs.Clone.SetPdmDesc(foundfile.name, OS_FileName)
 ufs.Clone.SetPdmName(foundfile.name, OS_FileName)
 ufs.Clone.SetAssocFileCopy (foundfile.name, False)

 Next
 Dim naming_failures As UFClone.NamingFailures = Nothing
 ufs.Clone.setdryrun (false)
 ufs.Clone.GenerateReport()
 ufs.Clone.PerformClone (naming_failures)
 ufs.Clone.Terminate()
[/b]
 I hope this helps.
 Carsten