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

Something like this should accomplish what you want...

 

Sub Main()
    Dim oDoc As Document
    oDoc = ThisDoc.Document

    BatchQTY = InputBox("Enter Batch QTY", "Batch QTY", 10)

    oBatchQTYCol = 5
    oCurrentQTYCol = 4

    For Each oSheet in oDoc.Sheets
        For Each oPL in oSheet.PartsLists
            Call ClearPLCol(oPL, oBatchQTYCol)
            Call BatchPL(oPL, oCurrentQTYCol, oBatchQTYCol, BatchQTY)
        Next
    Next
    MsgBox("Done")
End Sub

Sub ClearPLCol(oPL As PartsList, oCol As Integer)
    For Each oRow in oPL.PartsListRows
        oRow.Item(oCol).Value = ""
    Next
End Sub

Sub BatchPL(oPL As PartsList, oCurrentQTYCol As Integer, oBatchQTYCol As Integer, oBatchQTY As String)

  On Error GoTo ErrHandler
    For Each oRow in oPL.PartsListRows
        oCurQTY = CINT(oRow.Item(oCurrentQTYCol))
        oRow.Item(oBatchQTYCol).value = oCurQTY*oBatchQTY
    Next


  On Error GoTo 0
  Exit Sub

  ErrHandler:
    MsgBox("Cannot convert row qty into an integer. This rule is not valid with 
        non integer quantities")
    On Error GoTo 0

End SUb

--------------------------------------
Did you find this reply helpful ? If so please use the 'Accept as Solution' or 'Like' button below.

Justin K
Inventor 2018.2.3, Build 227 | Excel 2013+ VBA
ERP/CAD Communication | Custom Scripting
Machine Design | Process Optimization


iLogic/Inventor API: Autodesk Online Help | API Shortcut In Google Chrome | iLogic API Documentation
Vb.Net/VBA Programming: MSDN | Stackoverflow | Excel Object Model
Inventor API/VBA/Vb.Net Learning Resources: Forum Thread

Sample Solutions:Debugging in iLogic ( and Batch PDF Export Sample ) | API HasSaveCopyAs Issues |
BOM Export & Column Reorder | Reorient Skewed Part | Add Internal Profile Dogbones |
Run iLogic From VBA | Batch File Renaming| Continuous Pick/Rename Objects

Local Help: %PUBLIC%\Documents\Autodesk\Inventor 2018\Local Help

Ideas: Dockable/Customizable Property Browser | Section Line API/Thread Feature in Assembly/PartsList API Static Cells | Fourth BOM Type