Ilogic to save as and rename an assembly and all components

[Anonymous]

This is something I have not been able to figure out. Where I am getting stuck is performing a save as of the components and the renaming of all filenames.

I'd would like to run a rule in an assembly that would perform a save as of the assembly file and all components as well as prompt the user to enter the file names.

The assembly would consist of the following.

Assembly1

Part1

Part2

Part3

When the rule is run the user will be prompted to enter files names for each file. In this case 4 filenames will need to be entered.

The rule will then save the assembly and components to a file path specified in the rule. Any help is appreciated, thanks!

[marcin_otręba · Accepted solution]

in vba make new project , in module1 place code, then add userform1 with textbox1 and button1.

when code will be executed it will fire form for each component to write number/ name, in button1.execute write me.hide

if you want to use it in ilogic you need to make some chnges...

dim path as string

Public Sub saveandreplace()
On Error Resume Next
Dim oAsmDoc As AssemblyDocument
   UserForm1.Show
     path= UserForm1.TextBox1

    Set oAsmDoc = ThisApplication.ActiveDocument
    Dim oAsmCompDef As ComponentDefinition
    Set oAsmCompDef = ThisApplication.ActiveDocument.ComponentDefinition
    Dim oLODRep As LevelOfDetailRepresentation
    Call TraverseAssembly(oAsmDoc.ComponentDefinition.Occurrences)
    UserForm1.Show
     name = UserForm1.TextBox1
     oAsmDoc.SaveAs path & name & ext
End Sub

Private Sub TraverseAssembly(Occurrences As ComponentOccurrences)
 On Error Resume Next
    Dim oOcc As ComponentOccurrence
    Dim doc As Document
    For Each oOcc In Occurrences
        If oOcc.DefinitionDocumentType = kAssemblyDocumentObject Then
            Call TraverseAssembly(oOcc.SubOccurrences)
        End If
     Set doc = oOcc.Definition.Document

ext=rigth(oOcc.Definition.Document.fullfilename, 4)
     UserForm1.Show
     name = UserForm1.TextBox1
        doc.SaveAs path & name & ext, False
    Next 
End Sub

[bradeneuropeArthur]

Use the out of the box inventor "I logic copy design" found in the ribbon when no models are active.

So no coding required...
Regards.