Assign color using Design View Representations at Part Level

[RoyWickrama_RWEI]

I got help from WEB, but it is not still doing well.

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
		'DesignViewRepresen​tations.("Default").Activate
		oStockNumber = UCase(iProperties.Value("Project", "Stock Number"))
		If oStockNumber = "BASE PL" Or oBasePL = "BASE PLATE" Then
		iProperties.PartColor = "Orange"
		End If
	End If
Next

 

I request help.

[adam.nagy]

Hi,

The only problem I had with the rule was this:

iProperties.PartColor = "Orangre"

I needed to modify it to 

iProperties.PartColor = "Orange"

Then it worked.

Cheers,

[RoyWickrama_RWEI]

Thanks.