find what the density is ?

[Darkforce_the_ilogic_guy]

I  want to find a way to find the density of all the part. and paint the part ....

I have the code for paint the part ... now I need to find out if i can find out with componemt that need to get paited

can I use this for each loop to finde it?  can anyone tell me how to do it with it ... code below does not work ..but believe it is very to to what i need

Dim oAsmDoc As AssemblyDocument
	oAsmDoc = ThisApplication.ActiveDocument
	

Dim oRefDocs As DocumentsEnumerator
	oRefDocs = oAsmDoc.AllReferencedDocuments
	Dim oRefDoc As Document
	
	For Each oRefDoc In oRefDocs



D = oRefDoc.PhysicalPropertiesAsset.item("density") 
MsgBox(D)

next 

[bradeneuropeArthur]

Hi @Darkforce_the_ilogic_guy 

Based on what value needs it to be painted?

[Darkforce_the_ilogic_guy]

1 . which as a rule is because the user has forgotten to give the componemt  it proper weight

[bradeneuropeArthur]

Dim oAsmDoc As AssemblyDocument
	oAsmDoc = ThisApplication.ActiveDocument
	

Dim oRefDocs As DocumentsEnumerator
	oRefDocs = oAsmDoc.AllReferencedDocuments
	Dim oRefDoc As Document
	
	For Each oRefDoc In oRefDocs



D = oRefDoc.PropertySets.Item(3).item("density").value 
MsgBox(D)

next