Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
karthur1
in reply to: Jef_E

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