关于克隆装配件的vb代码,哪位帮忙看看错在哪里了

lcm

Dim myufsession As UFSession
        myufsession = UFSession.GetUFSession

        Dim clone1 As UFClone = myufsession.Clone

        clone1.Initialise(UFClone.OperationClass.CloneOperation)
        Dim status As UFPart.LoadStatus

        clone1.AddAssembly("f:\lcm\ugopen\z.prt", status)
  
        Dim action As UFClone.Action = UFClone.Action.Clone
        clone1.SetDefAction(action)

        Dim naming As UFClone.NamingTechnique = UFClone.NamingTechnique.NamingRule

        clone1.SetDefNaming(naming)

进行到这一步就不行了 换了几种命名方式都不行
        Dim namerule1 As UFClone.NameRuleDef
        Dim type1 As UFClone.NameRuleType = UFClone.NameRuleType.ReplaceString
        namerule1.type = type1
        namerule1.new_string = "new"
        namerule1.base_string = "z"

        Dim fail1 As UFClone.NamingFailures

        clone1.SetNameRule(namerule1, fail1)
   
        clone1.SetDefDirectory("f:\lcm\ugopen\")
  
        clone1.GenerateReport()
        Dim faile As UFClone.NamingFailures
        clone1.PerformClone(faile)
   
        clone1.Terminate()