Save As all occurrences from an assembly

[JorisSteurs1246]

The code below should make a copy of every part in an assembly and save it with a specific File name.

I think I have it all right up to the moment the part needs to be saved , I get an unknow error.

Any ideas what is going on here?

SyntaxEditor Code Snippet

  'check this file is an assembly
        Dim doc As Document = ThisApplication.ActiveDocument
        If doc.DocumentType = kPartDocumentObject Then
            MessageBox.Show("This rule can only be run in an assembly file!", "Cadline iLogic")
            Return
        End If

Dim newname As String
Dim compdef As ComponentDefinition
compdef = doc.ComponentDefinition
If (doc.documenttype = 12291) Then ' only do this for assembly or subassembly
 For Each occ In compdef.Occurrences
    If (occ.definition.type =83886592) Then ' only do this for part
         Dim oNewDoc As PartDocument
          oNewDoc = ThisApplication.Documents.Add(kPartDocumentObject, , False)
            occ.Name =  iProperties.Value(occ.Name,"Project", "Part Number")
             newname = iProperties.Value(occ.Name,"Project", "Part Number") & ".ipt"
            MessageBox.Show("I found variable: " & newname , "Info")
             ThisApplication.SilentOperation = True
               'oNewDoc = occ.Definiton.Document.SaveAs(newname, True)    
            oNewDoc.SaveAs(newname, False)    
            ThisApplication.SilentOperation = False
            
    End If
 Next 
End If

[Jef_E]

You are making a new empty document? And then saving it as another empty document?

Dim oNewDoc As PartDocument
oNewDoc = ThisApplication.Documents.Add(kPartDocumentObject, , False)

[JorisSteurs1246]

you are right , right now a new empty document is created, 

but I don't manage to save it with a new name.

It goes wrong at this line

oNewDoc.SaveAs(newname, False)

my final goal is to save out an occurrence from the  assembly with another filename. 

[MechMachineMan]

If you are trying to make a smart way to rename parts, I hope you realize that without replacing references within your code, your file references will be all messed up.

[JorisSteurs1246]

The command I use now manually now  you find under the productivity tab, called "save and Replace Component". 

The goal is get some code together that loops trough the assembly and saves every part by its partnumber.

If I do this manually with the "save and Replace Component" all the references and constrains are still OK , so I assume it will not be different when using iLogic?