Hi, sample from api (Inventor 2026 Help | Create a simple appearance. | Autodesk) :
Dim doc As Document
doc = ThisApplication.ActiveDocument
' Only document appearances can be edited, so that's what's created.
' This assumes a part or assembly document is active.
Dim docAssets As Assets
docAssets = doc.Assets
' Create a new appearance asset.
Dim appearance As Asset
appearance = docAssets.Add(kAssetTypeAppearance, "Generic", _
"MyShinyRed", "My Shiny Red Color")
Dim tobjs As TransientObjects
tobjs = ThisApplication.TransientObjects
Dim color As ColorAssetValue
color = appearance.Item("generic_diffuse")
color.value = tobjs.CreateColor(255, 15, 15)
Dim floatValue As FloatAssetValue
floatValue = appearance.Item("generic_reflectivity_at_0deg")
floatValue.value = 0.5
floatValue = appearance.Item("generic_reflectivity_at_90deg")
floatValue.value = 0.5
i use it like this:
materialasset.Item("physmat_Keywords").Value = sap_.Text
materialasset.Item("physmat_Label").Value = sap_.Text
materialasset.Item("physmat_Manufacturer").Value = Producent_.Text
materialasset.Item("physmat_Comments").Value = kategoria_.Text
materialasset.Item("physmat_Model").Value = wymiar_.Text
materialasset.Item("physmat_Type").Value = "physmat_" & assloctype.ToLower
materialasset.Item("physmat_class").Value = obr_czt.Text
materialasset.Item("physmat_Cost").Value = ilosc_.Text
or:
Dim generic_color As Inventor.TextureAssetValue
generic_color = app_ass.Item("hardwood_color")
Dim textureValue As TextureAssetValue = generic_color
Dim texture As AssetTexture = textureValue.Value
Dim textureSubValue As AssetValue = texture.Item("unifiedbitmap_Bitmap")
If texture.Item("texture_WAngle").Value <> 0 Then texture.Item("texture_WAngle").Value = 0
here is shown how to access assetvalues:
Inventor 2025 Help | Write out all physical properties to a file. | Autodesk