Parts List Total Qty iLogic
Sorry, I guess I'm missing a step in the attachment process.
Try
Dim oDrawDoc As DrawingDocument = ThisDoc.Document
Dim oSheet As Sheet = oDrawDoc.ActiveSheet
Dim oDrawingView As DrawingView = oSheet.DrawingViews(1)
Dim oBorder As Border = oSheet.Border
Dim oPlacementPoint As Point2d
d0 = InputBox("Prompt", "Title", "2")
If oBorder IsNot Nothing Then
oPlacementPoint = oBorder.RangeBox.MaxPoint
Else
oPlacementPoint = ThisApplication.TransientGeometry.CreatePoint2d(oSheet.Width, oSheet.Height)
End If
Dim oPartsList As PartsList = oSheet.PartsLists.Add(oDrawingView, oPlacementPoint)
Dim invProperty As Inventor.Property
Dim invCustProperty As PropertySet
Dim dVDoc As Document
Dim oPartList As PartsList = oDrawDoc.ActiveSheet.PartsLists.Item(1)
Dim i As Long = 0
oPartList.PartsListRows.Add(i, False)
For i = 1 To oPartList.PartsListRows.Count
oCell = oPartList.PartsListRows.Item(i).Item("PC")
oCell4 = oPartList.PartsListRows.Item(i).Item("TOTAL QTY")
If oCell.Value = "" Then
oCell2 = oPartList.PartsListRows.Item(i).Item("REMARKS")
oCell3 = oPartList.PartsListRows.Item(i).Item("MK")
dVDoc = ThisApplication.Documents.ItemByName(oPartList.ReferencedDocumentDescriptor.FullDocumentName)
invCustProperty = dVDoc.PropertySets.Item("Inventor User Defined Properties")
invProperty = invCustProperty.Item("Weight")
oCell2.Value = CStr(Round(invProperty.Value,0)) + " LBS EACH"
invProperty = invCustProperty.Item("NAME")
oCell3.Value = (invProperty.Value)
oCell4.Value = d0
End If
Next
Catch
MsgBox("Some error")
End Try
Hi
I have been trying to analyse your code, but I struggled to understand what you are trying to achieve.
There is a lot going on which could probably be done in your templates.
The "Cell4=d0" works just fine, its the rest of the code which is confusing.
Perhaps I missed something, but try this.
Looking at your code, you would like a field for "Total QTY" which shows the manually inputted value.
The Parts list must contain the "Total QTY" column.
Here is a snipped of code for you:
Dim oDrawDoc As DrawingDocument
oDrawDoc = ThisApplication.ActiveDocument
Dim oPartList As PartsList
oPartList = oDrawDoc.ActiveSheet.PartsLists.Item(1)
oASSQTY = InputBox("Enter Quantity of Assemblies Required", "iLogic", 1)
' Iterate through the contents of the parts list.
Dim i As Long
For i = 1 To oPartList.PartsListRows.Count
oCell = oPartList.PartsListRows.Item(i).Item("TOTAL QTY")
oCell.Value = oASSQTY
Next
BUT if you want to change the 'Item QTY' to reflect the total number required for all the assemblies, then you need to go one step further.
In the parts list, create the Total QTY column as per above.
Create another column as a multiplier, eg, "ASSY QTY"
Edit the Parts List
Right click on the "TOTAL QTY" column
->Format column
Select "Substitution"
->Click on Enable Value,Substitution
->Browse Properties, and choose "ASSY QTY"
->Change the "First Value" to "Sum of Values"
->Click OK.
I have modified the same code to reflect the new changes:
Dim oDrawDoc As DrawingDocument
oDrawDoc = ThisApplication.ActiveDocument
Dim oPartList As PartsList
oPartList = oDrawDoc.ActiveSheet.PartsLists.Item(1)
oASSQTY = InputBox("Enter Quantity of Assemblies Required", "iLogic", 1)
' Iterate through the contents of the parts list.
Dim i As Long
For i = 1 To oPartList.PartsListRows.Count
oCell = oPartList.PartsListRows.Item(i).Item("ASSY QTY")
oCell.Value = oASSQTY
Next
Note:
In the Image below, I have changed the "QTY" Column Label to "QTY EA"
Hope this makes sense and I have managed to help you.
Try and get this working for yourself before adding it to the main body of the code.
