Message 1 of 3
Assign color using Design View Representation at part level
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Dim oApp As Inventor.Application oApp = ThisApplication Dim oDoc As Document oDoc = ThisDoc.Document Dim ocompdef As ComponentDefinition ocompdef = odoc.ComponentDefinition For Each oViewRep In ocompdef.RepresentationsManager.DesignViewRepresentations 'If oViewRep.Name.Contains("Default") Then 'OK If oViewRep.Name = "Default" Then 'OK oViewRep.activate 'DesignViewRepresentations.("Default").Activate oStockNumber = UCase(iProperties.Value("Project", "Stock Number")) If oStockNumber = "BASE PL" Or oBasePL = "BASE PLATE" Then iProperties.PartColor = "Orangre" End If End If Next