03-12-2018
09:02 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
03-12-2018
09:02 AM
1. Post your sample code.
2. Post links of things that might be similar to what you want if you don't know how to code
'define the assembly Dim oAssyDoc As AssemblyDocument oAssyDoc = ThisApplication.ActiveDocument 'define the appearance library Dim oLib As AssetLibrary oLib = ThisApplication.AssetLibraries("Autodesk Appearance Library") 'make sure colors are in assembly doc Dim libAsset As Asset libAsset = oLib.AppearanceAssets.Item("Smooth - Red") Try localAsset = libAsset.CopyTo(oAssyDoc) Catch 'catch error if it's already local End Try libAsset = oLib.AppearanceAssets.Item("Smooth - Black") Try localAsset = libAsset.CopyTo(oAssyDoc) Catch End Try Dim oAsmCompDef As AssemblyComponentDefinition oAsmCompDef = oAssyDoc.ComponentDefinition Dim oOcc As ComponentOccurrence Dim oAsset As Asset Dim oSS As SelectSet oSS = oAssyDoc.SelectSet Dim oSelCollection As New Collection For Each oItem In oSS oSelCollection.Add(oItem) Next 'set color overrides of components at the assembly level For Each oOcc In oAsmCompDef.Occurrences.AllLeafOccurrences Dim MatchFound As Boolean = False For Each oItem In oSelCollection If oOcc.Equals(oItem) Then MatchFound = True End If Next If MatchFound = True Then oAsset = oAssyDoc.Assets.Item("Smooth - Red") Else oAsset = oAssyDoc.Assets.Item("Smooth - Black") End If oOcc.Appearance = oAsset Next
Edited by
Discussion_Admin
--------------------------------------
Did you find this reply helpful ? If so please use the 'Accept as Solution' or 'Like' button below.
Justin K
Inventor 2018.2.3, Build 227 | Excel 2013+ VBA
ERP/CAD Communication | Custom Scripting
Machine Design | Process Optimization

iLogic/Inventor API: Autodesk Online Help | API Shortcut In Google Chrome | iLogic API Documentation
Vb.Net/VBA Programming: MSDN | Stackoverflow | Excel Object Model
Inventor API/VBA/Vb.Net Learning Resources: Forum Thread
Sample Solutions:Debugging in iLogic ( and Batch PDF Export Sample ) | API HasSaveCopyAs Issues |
BOM Export & Column Reorder | Reorient Skewed Part | Add Internal Profile Dogbones |
Run iLogic From VBA | Batch File Renaming| Continuous Pick/Rename Objects
Local Help: %PUBLIC%\Documents\Autodesk\Inventor 2018\Local Help
Ideas: Dockable/Customizable Property Browser | Section Line API/Thread Feature in Assembly/PartsList API Static Cells | Fourth BOM Type
Inventor 2018.2.3, Build 227 | Excel 2013+ VBA
ERP/CAD Communication | Custom Scripting
Machine Design | Process Optimization
iLogic/Inventor API: Autodesk Online Help | API Shortcut In Google Chrome | iLogic API Documentation
Vb.Net/VBA Programming: MSDN | Stackoverflow | Excel Object Model
Inventor API/VBA/Vb.Net Learning Resources: Forum Thread
Sample Solutions:Debugging in iLogic ( and Batch PDF Export Sample ) | API HasSaveCopyAs Issues |
BOM Export & Column Reorder | Reorient Skewed Part | Add Internal Profile Dogbones |
Run iLogic From VBA | Batch File Renaming| Continuous Pick/Rename Objects
Local Help: %PUBLIC%\Documents\Autodesk\Inventor 2018\Local Help
Ideas: Dockable/Customizable Property Browser | Section Line API/Thread Feature in Assembly/PartsList API Static Cells | Fourth BOM Type