Hi @Anonymous,
Test the old ilogic code ...
Dim oDoc As PartDocument = ThisApplication.ActiveDocument
Dim oAsset As Asset
Dim oLib As AssetLibrary = ThisApplication.AssetLibraries("NUPIS")'Name of Appearance Library
Dim oLibAsset As Asset
Dim iCount As Integer
iCount = 1
Dim iMax As Integer
iMax = oDoc.Assets.Count
Do While iCount <= iMax
On Error Resume Next
oAsset = oDoc.Assets.Item(iCount)
If oAsset.AssetType = 99073 Then 'Only Update Appearance, vb = kAssetTypeAppearance
If oDoc.ActiveAppearance.DisplayName = oAsset.DisplayName Then 'If local Appearance is active
oDoc.ActiveRenderStyle.UpdateFromGlobal
Else 'If Appearance is only local
oLibAsset = oLib.AppearanceAssets.Item(oAsset.DisplayName)
oAsset.Delete 'Delete local Appearance
oAsset = oLibAsset.CopyTo(oDoc, True) 'Load Appearance from Library
End If
End If
iCount = iCount + 1
Loop
