04-05-2018
07:10 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
04-05-2018
07:10 AM
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
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