Scroll bar with material in part-template
This is a similar scenario, but gets the materials from an actual asset library, instead of from the current document. You just need to edit the name of the library, or edit the full file name of your library file for it to open and source the materials from.
Dim oMatList As New List(Of String)
Dim oALibs As AssetLibraries = ThisApplication.AssetLibraries
Dim oLib As AssetLibrary
Try
oLib = oALibs.Item("MyMatLibName")
Catch
oLib = oALibs.Open("FullFileNameOfLibraryFile")
Catch
MsgBox("Could not find that material library.", vbCritical, "")
Exit Sub
End Try
If IsNothing(oLib) Then Exit Sub
Dim oMAs As AssetsEnumerator = oLib.MaterialAssets
If oMAs.Count = 0 Then Exit Sub
For Each oMA As MaterialAsset In oMAs
oMatList.Add(oMA.DisplayName)
Next
Dim oChosenMatName As String
oChosenMatName = InputListBox("", oMatList, oMatList.Item(0), "Materials", "List Of Materials")
Dim oChosenMat As MaterialAsset = oMAs.Item(oChosenMatName)
MsgBox("oChosenMat.DisplayName = " & oChosenMat.DisplayName,,"")
If this solved your problem, or answered your question, please click ACCEPT SOLUTION .
Or, if this helped you, please click (LIKE or KUDOS) 👍.
Wesley Crihfield
(Not an Autodesk Employee)
What type of file is your 'company unique file', if not a ".adsklib"? I did not know that you wanted the chosen material to be set as the 'active' material in the 'active' document, but that can be easily fixed. You can replace the MsgBox line at the end of the code I posted with these following lines:
Dim oLocalCopy As MaterialAsset = Nothing
Try : oLocalCopy = oChosenMat.CopyTo(ThisDoc.Document, True) : Catch : End Try
Try : ThisDoc.Document.ActiveMaterial = oLocalCopy : Catch : End TryYou can not set a 'library only' asset directly as the 'active' one in a document. You first have to create a 'local' copy of it, then set that local copy as the 'active' one.
Wesley Crihfield
(Not an Autodesk Employee)
Hi @Gwennberg. However your current code is laid out, once you have a reference to a local copy of the material (Asset) you want to set as your part's 'active' material, then you can set that as the value of the PartDocument.ActiveMaterial property. That is a Read/Write property whose value is an Asset. The part type document is the only which has that property. Assemblies do not have a set material, because they do not contain any of their own solids...with the exception of weldment type assemblies and the weld beads you can create in them. You can see this is what I was attempting to do in the last line of code I posted above.
Edit: There is also an iLogic shortcut snippet (Link1, Link2) for setting the material of a part (or the material of part type component in an assembly), if you like that sort of thing. But it might not be so obvious which document it will effect in some complicated situations:
iProperties.Material = "MyMaterialName"...plus, I assume that a material with that name must already exist within the target part for this to work.
Wesley Crihfield
(Not an Autodesk Employee)
