05-26-2022
06:17 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
05-26-2022
06:17 AM
I've tried something like this, but can't set the ActiveMaterial I've retieve. Thanks
Dim Doc As Document
Dim pDoc As PartDocument
Dim material As MaterialAsset
Set Doc = ThisApplication.ActiveDocument
Set pDoc = ThisApplication.ActiveDocument
For Each material In Doc.MaterialAssets
If material.IsUsed Then
pDoc.ActiveMatrial = material.DisplayName '(??? I don't know how to set)
Else
End If
Next