Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
RoyWickrama_RWEI
1126 Views, 4 Replies

To Create Material Library for Material, Finish (Color) & Appearance

I am creating a comprehensive material library for material, finish (color and paint spec) and texture (expanded metal, perforated sheet, gratings etc.).

I tried with so many leads through the whole day. But could not get through a workable solution.

I shall be most grateful if someone help me.

Libraries to do with are:

Material libraries

  • Inventor Material Library
  • Autodesk Material Library
  • InventorMaterialLibrary_RWEI

Appearance Libraries

  1. InventorMaterialLibrary_RWEI
  2. RWEI Appearance Library
  3. RWEI Texture Library
  4. RWEI Appearance Library RAL
Sub Main()
	Dim oDoc = ThisDoc.Document
	Dim assetLib As AssetLibrary


	Dim oList_Assets As New ArrayList	
	For Each oAssetLibrary In ThisApplication.AssetLibraries
	oList_Assets.Add(oAssetLibrary.DisplayName)
	Next oAssetLibrary
	

	oAssetLibrary_Selected = InputListBox("SELECT REQ'D LIB. FROM ABOVE!", oList_Assets, oList_Assets.Item(0), "CHANGE MATERIAL ASSET LIB.", "LIST OF ASSET LIBRARIES")

	oIndex = oList_Assets.indexof(oAssetLibrary_Selected)


'	Dim oAppearanceAssets As AssetsEnumerator
'	oAppearanceAssets = oPartDoc.AppearanceAssets
	oAssetlib = ThisApplication.AssetLibraries.oList_Assets(oIndex)
'	ThisApplication.ActiveAppearanceLibrary = oAssetLibrary_Selected.indexof(oAssetLibrary_Selected)
	 


End Sub

 

 

2019-03-31 19_57_04.png

 

2019-03-31 19_48_50.png

 

2019-03-31 20_04_57.png

 

2019-03-31 14_55_41.png

2019-03-31 15_11_01.png

 

Autodesk Inventor Professional 2019

Vault Professional 2019