ilgoc Enter the coating method for each material.

[tkddud711]

In the assembly environment, I want the custom iProperties "Coating" to say ANODIZING for all parts with material A6061. Is it possible?

[dalton98 · Accepted solution]

Try this

Dim oAssy As AssemblyDocument = ThisApplication.ActiveDocument
Dim oRefDoc As Document
For Each oRefDoc In oAssy.AllReferencedDocuments
	If Not oRefDoc.ComponentDefinition.BOMStructure = kNormalBOMStructure Then Continue For
	If Not oRefDoc.DocumentType = kPartDocumentObject Then Continue For
	
	If oRefDoc.PropertySets.Item(3).Item("Material").Value = "Aluminum 6061"
		Try
		oRefDoc.PropertySets.Item(4).Item("Coating").Value = "ANODIZING"
		Catch
		oRefDoc.PropertySets.Item(4).Add("ANODIZING", "Coating")
		End Try	
	End If
Next

[tkddud711]

thank you
Works fine.
One more request here, I would like to write ANODIZING in the message box. Is it possible?

[tkddud711]

thank you
Works fine.
One more request here, I would like to write ANODIZING in the message box. Is it possible?

[dalton98]

@tkddud711 

myparam = InputBox("Prompt", "Title", "Default Entry")
'------------
'----------
'-----------
oRefDoc.PropertySets.Item(4).Item("Coating").Value = myparam

[tkddud711]

I'm not familiar with ilogic.
Please tell me the full code ㅜㅜ

[dalton98]

myparam = InputBox("Enter Coating Name", "Custom iProperty - Coating", )
Dim oAssy As AssemblyDocument = ThisApplication.ActiveDocument
Dim oRefDoc As Document
For Each oRefDoc In oAssy.AllReferencedDocuments
	If Not oRefDoc.ComponentDefinition.BOMStructure = kNormalBOMStructure Then Continue For
	If Not oRefDoc.DocumentType = kPartDocumentObject Then Continue For

	If oRefDoc.PropertySets.Item(3).Item("Material").Value = "Aluminum 6061"
		Try
		'custom iproperty exists
		oRefDoc.PropertySets.Item(4).Item("Coating").Value = myparam
		Catch
		'custom iproperty doesn't exist
		oRefDoc.PropertySets.Item(4).Add(myparam, "Coating")
		End Try
	End If
Next