Showing posts with label standard. Show all posts
Showing posts with label standard. Show all posts
Thursday, December 21, 2017
Ilogic Add Standard Virtual Parts From a Text File
Ilogic Add Standard Virtual Parts From a Text File
Issue:
You have a number of standard Virtual parts that you find yourself adding over and over. Youd like to have the ability to add them based on a predefined list.
Solution:
Here is an example iLogic rule that will read a *.txt file and present the contents to the user in an input box list. The user is then asked to enter a quantity for the virtual part, and then the virtual part occurrences are added to the assembly. If one or more occurrences of the virtual part exist in the assembly, the iLogic rule deletes them and just adds back the total number needed.
(update: see also iLogic - Add Standard Virtual Parts From an Excel File or a similar solution)
(update: see also iLogic - Add Standard Virtual Parts From an Excel File or a similar solution)
 |
| An example text file list |
 |
| The list presented to the user in an input list box. |
 |
| The input box presented to the user to set the quantity. |
 |
| The virtual parts added to the assembly. |
 |
| Adjusting the quantity. |
 |
| The iLogic rule deletes the original 18 occurrences and just adds back the number specified. |
Here is the example iLogic rule:
(special thanks to Brian Ekins for the code he posted at this link.)
(special thanks to Brian Ekins for the code he posted at this link.)
Dim MyArrayList As New ArrayList
MyArrayList = GoExcel.CellValues("U:iLogic examplesVirtual Part List.xls", "Sheet1", "A2", "A1000")
Dim sVirtPart As String
get user input from list
sVirtPart = InputListBox("Select a virtual part to add.", _
MyArrayList, MyArrayList.Item(0), "iLogic", "Standard Virtual Parts")
check for empty input in the case where the user cancels out of the input box
If sVirtPart = "" Then
Return end rule
Else
End if
get iProperties from the XLS file
For MyRow = 2 To 1000 index row 2 through 1000
find the cell in column A that matches the user selection
If sVirtPart = (GoExcel.CellValue("A" & MyRow)) Then
get the iProperty from the XLS file for each column
oProp1 = GoExcel.CellValue("A" & MyRow )
oProp2 = GoExcel.CellValue("B" & MyRow )
oProp3 = GoExcel.CellValue("C" & MyRow)
oProp4 = GoExcel.CellValue("D" & MyRow)
oProp5 = GoExcel.CellValue("E" & MyRow)
Exit For
End If
Next
get quantity from user
iQTY = InputBox("Enter the TOTAL number of:" _
& vblf & " " & sVirtPart & "" _
link download
Read more »
Subscribe to:
Posts (Atom)