Here is an example of an iLogic rule for a task like that. You will need to edit/change which iProperty you want to copy on Lines 7 and 12 though.
Sub Main
If ThisDoc.Document.DocumentType <> DocumentTypeEnum.kAssemblyDocumentObject Then Return
Dim oADoc As AssemblyDocument = ThisDoc.Document
Dim oSS As Inventor.SelectSet = oADoc.SelectSet
If oSS.Count = 0 Then Return
'<<< EDIT THIS >>>
Dim oValue As Object = iProperties.Value("Custom", "PropertyToCopy")
For Each oObj In oSS
If TypeOf oObj Is ComponentOccurrence Then
Dim oOcc As ComponentOccurrence = oObj
'<<< EDIT THIS >>>
iProperties.Value(oOcc.Name, "Custom", "PropertyToCopy") = oValue
End If
Next
If oADoc.RequiresUpdate Then oADoc.Update2(True)
If oADoc.Dirty Then oADoc.Save2(True)
End Sub
If this solved your problem, or answered your question, please click ACCEPT SOLUTION .
Or, if this helped you, please click (LIKE or KUDOS) 👍.
Wesley Crihfield

(Not an Autodesk Employee)