how do I run code on a part within an assembly?

Anonymous — Wed, 17 Dec 2014 16:32:50 GMT

I have this ilogic routine

InventorVb.RunMacro("DocumentProject", "Color", "ChangeColor","red")

However I want it to run this macro

Option Explicit

Dim oPartDoc As PartDocument
Dim oCompDef As ComponentDefinition

 
Public Sub ChangeColor(strColor As String)
    Set oPartDoc = ThisApplication.ActiveDocument
    Set oCompDef = oPartDoc.ComponentDefinition
    Dim appAsset As Asset
    Dim oLib As AssetLibrary
    Set oLib = ThisApplication.AssetLibraries("Autodesk Appearance Library")
    Set appAsset = oLib.AppearanceAssets(strColor)
    oPartDoc.ActiveAppearance = appAsset
End Sub

within the part itself.

Ultimately I need to save 3 versions of a file in an assy, each of a different color. So I'm trying to set up a routine that takes the active part, copies an object from the assy to the part, saves 3 copies of different colors, and then creates an assy of each of those 3 parts. I have code to perform almost all of these tasks but I'm stuck trying to bring them together.

My guess is if I can figure out how to run macros on a part from within the Assy I can do the rest.

topic how do I run code on a part within an assembly? in Inventor Programming Forum

how do I run code on a part within an assembly?