Set Appearance to ComponentOccurence

[APvdM]

Hello,

In an assembly I try to pick a color from an occurence an apply it to another one.
I got some code from the API help and i am adding some code.

Public Sub SetOccurrenceAppearance()
    Dim asmDoc As AssemblyDocument
    Set asmDoc = ThisApplication.ActiveDocument
    Dim assetLib As AssetLibrary
    Dim libAsset As Asset

    Dim localAsset As Asset
    On Error Resume Next
        
    Dim occ As ComponentOccurrence
    Set occ = ThisApplication.CommandManager.Pick(kAssemblyOccurrenceFilter, "Selecteer welke kleur overgenomen moet worden.")
    
    Set localAsset = occ.Appearance
    
    If Err Then
        On Error GoTo 0
        
        Set assetLib = ThisApplication.AssetLibraries.Item("Breston")
        
        Set libAsset = assetLib.AppearanceAssets.Item("Yellow")
        
        Set localAsset = libAsset.CopyTo(asmDoc)
    End If
    On Error GoTo 0
    
    Dim occ1 As ComponentOccurrence
    Set occ1 = ThisApplication.CommandManager.Pick(kAssemblyOccurrenceFilter, "Selecteer het te kleuren onderdeel.")
    
    Set occ1.Appearance = localAsset
    
End Sub

The last sentence (Set occ1.Appearance = localAsset) gives errors in the inventor VBA.

The same problem appears in Microsoft Visual Studio when i try: oOcc1.Appearance = occColor

Is there anyone who knows what the problem is?

[NachoShaw]

Looks to me like you are collecting the appeal cell from an assembly part and attempting to apply it to the assembly itself instead of another part.

Wouldn't you need to select another part to copy the appearance to?

Nacho

[NachoShaw]

Oh hang on, I see the rest of the code now (reading on my phone)....

Have you tried

Set occ1.Appearance = occ.Appearance



Nacho

[APvdM]

Ah, that's a simple solution without the use of extra variabels.. 

It works nice.. Thanks!

The code I sent yesterday works also, but only when I pick the color of an overrided part. I didn't try that earlier.

Thus picking the color of a parts that's not overrided gives an error.

Maybe because the Appearance (source) type or whatever gives problems?

For sake of completeness: Set occ1.Appearance = occ.Appearance is the right notation. Set before it is not right.