Save and replace Ilogic

[Anonymous]

I found this code on the forum that is good to call the command :

The command name to use is : "AssemblyBonusTools_SaveAndReplaceComponentCmd"

put this in a iLogic rule:

    ' Get the CommandManager object.
    Dim oCommandMgr As CommandManager
   oCommandMgr = ThisApplication.CommandManager

    ' Get control definition for the line command.
    Dim oControlDef As ControlDefinition
    oControlDef = oCommandMgr.ControlDefinitions.Item( _
                                                 "AssemblyBonusTools_SaveAndReplaceComponentCmd") 
    ' Execute the command.
    oControlDef.Execute

But what i'm trying to do (with out success yet) is to create an Ilogic that will call the save and replace cmd for all components (parts, assembly and sub assembly) that the Iprop, part number is empty.

If someone can help me for that i will apreciate!

[MechMachineMan · Accepted solution]

 Dim oDoc AS Document
oDoc = ThisDoc.Document

Dim oSS AS SelectSet
oSS = oDOc.SelectSet

Dim oCommandMgr As CommandManager
oCommandMgr = ThisApplication.CommandManager

Dim oControlDef As ControlDefinition
oControlDef = oCommandMgr.ControlDefinitions.Item("AssemblyBonusTools_SaveAndReplaceComponentCmd") 

For Each oOcc in oDoc.ComponentDefinition.Occurrences.AllLeafOccurrences
    If oOcc.Definition.Document.PropertySets("Design Tracking Properties")("Part Number").Value = ""
        oSS.Clear
        oSS.Select(oOcc)
        oControlDef.Execute
    End if
Next

[Anonymous]

Exactly what was looking for.

Many tks. Mechmachine

[Anonymous]

Just realize that working for all parts and sub assembly parts, but do not work with sub assembly

[marcin_otręba]

You want to put new names(numbers) for such files manually or by code ?

This method affects only selected file, so if you have more than 1 occurrence in assembly, or file occurs in subassemblies then you will get massive fails...

In my codes i use saveas instead because i noticed that if it is saved from code then save as method replace that file in all opened documents...:

doc.SaveAs newname,  False

then if file is member of assembly, and that assembly is opened then it is replaced without any further functions or procedures... it works for *.ipt, and*.iam files.

if you dont want to replace use:

doc.SaveAs newname,  True

true/false means that you saveascopy or not.

in my opinion this is the best way to do it because you don't need to bother with checking for all occurs of replaced file, you need only to remember that it will be replaced in all opened assemblies.

[Anonymous]

can we add an open the file, after the save replace command is done

[o.sassen]

Hi All, 

one additional question to the subject. we have an assembly with iparts. But we want to save the files as custom part. but we need the vault to fill in the names. (numbering). So we are using the command "AssemblyBonusTools_SaveAndReplaceComponentCmd". But for every part we gat an window to accept and save te name. is it possible to automatically save the suggested name? 

I thanks you in advance. 

Yours, 

[nbarbars]

How can i have this work for a specific part name without selecting the part? not sure how to call on the part that needs to be saved as. I just need to have it save and replace "beam_width" component if the length parameter is x long

[rprivittB3TTG]

I am needing a similar solution. Example:

FrameAssembly.iam

     - FrameSketch.ipt

I need to replace the FrameSketch.ipt with a new part with a constructed part number. The constructed part number code is already established. I just need the simplest code for replacing the sketch part. The name of the sketch part never changes because it is a template added to the FrameAssembly.iam template.