modify custom iproperty of selected(.Pick) component in assembly

[Anonymous]

The following code fails with "Error in rule: Change By Selection, in document: test.iam Public member 'Document' on type 'ComponentOccurrenceProxy' not found." Any help wold be appreciated. It appears i need to get the document object from the ComponentOccuranceProxy but I'm Not sure how... I am using kAllEntitiesFilter because it allows me to "reach into" subassemblies in th browser while making the selection.

SyntaxEditor Code Snippet

'select end1
 sel_flag=0
 Dim end1 = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kAllEntitiesFilter,"Select End 1:")
 If (Not end1 Is Nothing) Then
   sel_flag=1
 End If
 If(sel_flag=1)
  MessageBox.Show(end1.Name, "End1")
  Dim docEnd1 as document
  docEnd1 = end1.Document
  customPropertySet = docEnd1.PropertySets.Item("Inventor User Defined Properties")
  customPropertySet.item("Connected To").Value = end1.Name
 End If

[Owner2229 · Accepted solution]

Hi, here you go:

 For more than one seleced parts:

' Select parts, use Esc key when you have selected all wished parts
Dim Comps As ObjectCollection
Dim Comp As ComponentOccurrence
While True
    Comp = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kAssemblyLeafOccurrenceFilter,"Select End 1:")
    ' If nothing gets selected then we're done
    If IsNothing(comp) Then Exit While
    comps.Add(comp) 
End While

' If none parts are selected, end the rule
If Comps.Count = 0 Then Exit Sub

' Go throught all selected parts
For Each Comp In Comps
    MessageBox.Show(Comp.Name, "End1")
    Dim oDoc as document = Comp.Definition.Document
    oProSet = oDoc.PropertySets.Item("Inventor User Defined Properties")
    oProSet.Item("Connected To").Value = Comp.Name
Next

For single part:

' Select part
Dim Comp As ComponentOccurrence
Comp = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kAssemblyLeafOccurrenceFilter,"Select End 1:")

' If no part is selected, end the rule
If Comp Is Nothing Then Exit Sub

MessageBox.Show(Comp.Name, "End1")
Dim oDoc as document = Comp.Definition.Document
oProSet = oDoc.PropertySets.Item("Inventor User Defined Properties")
oProSet.Item("Connected To").Value = Comp.Name

[Anonymous]

Awsome! Kudos for the multple pick version. I don't happen to need it right now, but I'm sure I will!

[MechMachineMan]

You can also perfrom the selection of the parts BEFORE you run the rule by using the method:

Dim oDoc As Document = ThisApplication.ActiveDOcument
Dim oSelectSet As SelectSet = oDoc.SelectSet

If oSelectSet.Count = 0
     MsgBox("Nothing selected!")
Else
         For Each oItem in oSelectSet
               If oItem.Type = ObjectTypeEnum.kComponentOccurrenceObject 'Change sheet/object OR Perform test as necessary.
                        'Do Stuff here if it is a component occurrence
               End if ' Item Type
         Next
End if 'Selection