- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Below is the entire code. I just looked at the ipart and it has 3,683 rows.
Thanks,
Kirk
oLength = InputBox("Enter the length change (+ or -)in inches.", "iLogic", "0.25")
Dim oAsmDoc as Inventor.AssemblyDocument
oAsmDoc = ThisDoc.Document
Dim comp As Inventor.ComponentOccurrence
For Each comp In oAsmDoc.ComponentDefinition.Occurrences
rowName = iPart.RowName(comp.Name)
RowValue=iPart.CurrentRowValue("Cutlength")
StockNoStringValue=iPart.CurrentRowStringValue("Stock Number")
NewLength=RowValue+oLength
MemberStringValue=StockNoStringValue & "-" & NewLength
i = iPart.FindRow(comp.Name, "Member", "=", MemberStringValue)
If i < 0 Then
MessageBox.Show("Some problem occurred", "iLogic")
Else
'MessageBox.Show("iPart set to row: " & MemberStringValue , "Change ALL members iLogic")
End If
Next