The earlier article in the Automation series discussed how to control a parametric part from VB.Net. In this post you learn how to create variations of a part by changing the value of the suppression variables.<\/P><\/p>\n
Begin with creating a Window Form Application as explained in the previous article<\/A>. Add a ListBox Set properties for the Form, ListBox and the Button as below:<\/P><\/p>\n 1. Form:<\/STRONG><\/SPAN><\/P> Text: <\/EM>Part Configurator<\/P> TopMost: <\/EM>True<\/P> StartPosition:<\/EM> CenterScreen<\/P> MaximizeBox:<\/EM> False<\/P> MinimizeBox:<\/EM> False<\/P><\/p>\n 2. Button:<\/STRONG><\/SPAN><\/P> Text: <\/EM>Configure Part<\/P> Name:<\/EM> btnConfigure<\/P><\/p>\n 3. ListBox:<\/STRONG><\/SPAN><\/P> Name: <\/EM>lstShaft<\/P><\/p>\n With the ListBox still selected, click the ellipsis button A new dialog pops up titled ‘String Collection Editor’. This holds the items to be displayed in the ListBox for the user to pick.<\/P><\/p>\n As shown above type one name on each line. These are the variations of the Shaft that the program will generate.<\/P><\/p>\n Click OK when done and Press F5 or from the Debug menu, select Start Debugging This would be the right time to add Solid Edge references if not so far as explained in this first article<\/A> in the Automation series.<\/P><\/p>\n Press Ctrl+Shift+S to Save All<\/EM> files in the project.<\/P><\/p>\n Switch to Solid Edge and create a Shaft with three features – a Taper, a Hole and a Keyway as shown below:<\/P><\/p>\n Right click each feature in the PathFinder viz. Keyway, Taper and Hole. Each time select Add Suppression Variable<\/EM> from the context menu that appears.<\/P><\/p>\n This adds new variables to the Variable Table one for each of the features. The value of this variable can be set to 0 to un-suppress or 1 to suppress the feature.<\/P><\/p>\n In the Part environment, right click anywhere in the graphics area except on the model and select Variables… from the context menu to bring up the Variable Table.<\/P><\/p>\n Note the new variables with names FeatureName_Suppress. Try changing the value of the variables from 0 to 1 and observe how the corresponding feature gets suppressed.<\/P><\/p>\n With all three features getting suppressed the shaft appears to be a simple variant without any features as shown in image.<\/P><\/p>\n Through the VB.Net code, we will change the value of these suppression variables to create a variation of the shaft as per user selection from the ListBox.<\/P><\/p>\n Switch to Visual Studio using Ctrl+Tab or Win+Tab.<\/P><\/p>\n Double-click anywhere on the Form except on any of the controls. This will open the code window with the cursor placed inside the Sub for Form_Load. Code placed here is executed when the program starts i.e. when the Form loads.<\/P><\/p>\n Press Ctrl+Home to go to the top of the code window and add the following lines:<\/P><\/p>\n The meaning, importance and use of these lines has already been explained in the previous articles.<\/P><\/p>\n Also add variables for Solid Edge and variables collection as explained in the previous article<\/A>:<\/P><\/p>\n Dim oApp As SolidEdgeFramework.Application Place the cursor back into the Form_Load Sub and add lines as below:<\/P><\/p>\n The first two lines for the oApp = Marshal… and oVars = oApp… are already explained in the previous post<\/A>.<\/P><\/p>\n lstShaft is the name of the ListBox on the Form. A ListBox has items in it displayed when the program runs.<\/P><\/p>\n Each item has an index number assigned internally. The first item in the ListBox has an index number of 0 while the second item that appears in the ListBox has an index of 1 and so on.<\/P><\/p>\n The SelectedIndex property of the ListBox named lstShaft means the index number of the item currently selected.<\/P><\/p>\n By setting the value of this property to 0 we specify that the first item in the ListBox be selected. Press F5 again to check this upon which the Form appears as shown in image.<\/P><\/p>\n The zeroth item i.e the first item in the list is selected automatically.<\/P><\/p>\n If the user selects a variant from the list by clicking it, the SelectedIndex property changes.<\/P><\/p>\n The new SelectedIndex value can be checked via the Button on the Form and accordingly the shaft can be configured to render the selected variant in Solid Edge.<\/P><\/p>\n Double-click the button Configure Part<\/EM> and type the following:<\/P><\/p>\n If lstShaft.SelectedIndex = 1 Then<\/STRONG> and press <ENTER>. The End If<\/STRONG> line will be added automatically.<\/P><\/p>\n Complete the code as below:<\/P><\/p>\n If lstShaft.SelectedIndex = 2 Then oApp.ActiveDocument.Recompute()<\/PRE><\/p>\n The second item with text Tapered Shaft<\/EM> has the index of 1. If this is selected by user, the SelectedIndex value is 1. If this is so, change the corresponding value of its suppression variable Taper_Suppress to 0 so as to un-suppress it in Solid Edge.<\/P><\/p>\n This will create a tapered shaft when the button is clicked.<\/P><\/p>\n Similarly, if the SelectedIndex is 2, it means the user has picked the item Shaft with Keyway and to create this variant, the Keyway needs to be un-suppressed by setting its Suppress variable to 0.<\/P><\/p>\n This will create a Shaft with a keyway when the button is clicked.<\/P><\/p>\n Complete the code as below:<\/P><\/p>\n If lstShaft.SelectedIndex = 2 Then If lstShaft.SelectedIndex = 3 Then If lstShaft.SelectedIndex = 4 Then If lstShaft.SelectedIndex = 5 Then If lstShaft.SelectedIndex = 6 Then Note that, to create a variation where two or more features need to be un-suppressed, call the oVars.Edit method twice or those many times – simple as that.<\/P><\/p>\n It is customary to copy-paste repeating code.<\/P><\/p>\n Tip:<\/STRONG> In Visual Studio, you need not select an entire line to copy it. Just place the cursor on the line to copy and press Ctrl+C, the line gets copied.<\/P><\/p>\n Test your program by pressing F5 and selecting various items from the ListBox followed by pressing the Configure Part button.<\/P><\/p>\n Solid Edge should update by unsuppressing feature(s) as per the selection.<\/P><\/p>\n By now you must have noticed that after creating a variant – Tapered Shaft with Hole and Keyway – followed by creating any other variant, say – a Shaft with a Hole – it does not update the shaft model.<\/P><\/p>\n In the next installment, learn:<\/EM><\/P> 1. How to handle this situation.<\/P> 2. About the Select Case<\/STRONG> statement which makes the program run faster and more efficiently.<\/P><\/p>\n The completed code files are not provided purposely with this post, I would insist you try out the steps and build your own version of the program.<\/P><\/p>\n Should you face any problems with coding, the Solid Edge Dev Forum is a click<\/A> away.<\/P> Or simply post a new message<\/A>.<\/P><\/p>\n -Tushar Suradkar<\/P>![\"02.png\"](\"http:\/\/blogs.sw.siemens.com\/wp-content\/uploads\/sites\/8\/2019\/09\/02-28.png\" "\\"02.png\\"")
<\/span> and a Button to the Form.<\/P><\/p>\n
\n
\n
\n
\n
\n
\n
\n
\n![\"03.png\"](\"http:\/\/blogs.sw.siemens.com\/wp-content\/uploads\/sites\/8\/2019\/09\/03-31.png\" "\\"03.png\\"")
<\/span> in front of the Items<\/STRONG> property as shown below:<\/P><\/p>\n![\"01.png\"](\"http:\/\/blogs.sw.siemens.com\/wp-content\/uploads\/sites\/8\/2019\/09\/01-25.png\" "\\"01.png\\"")
<\/span><\/P><\/p>\n![\"05.png\"](\"http:\/\/blogs.sw.siemens.com\/wp-content\/uploads\/sites\/8\/2019\/09\/05-27.png\" "\\"05.png\\"")
<\/span> to preview your Part Configurator dialog.<\/P><\/p>\n![\"04.png\"](\"http:\/\/blogs.sw.siemens.com\/wp-content\/uploads\/sites\/8\/2019\/09\/04-28.png\" "\\"04.png\\"")
<\/span><\/P>
\n![\"05.png\"](\"http:\/\/blogs.sw.siemens.com\/wp-content\/uploads\/sites\/8\/2019\/09\/05-28.png\" "\\"05.png\\"")
<\/span><\/P>
\n![\"06.png\"](\"http:\/\/blogs.sw.siemens.com\/wp-content\/uploads\/sites\/8\/2019\/09\/06-22.png\" "\\"06.png\\"")
<\/span><\/P>
\nImports System.Runtime.InteropServices
\nImports SolidEdgeFramework
\nImports SolidEdgePart
Public Class Form1<\/PRE>
\nPublic Class Form1<\/p>\n
\n Dim oVars As SolidEdgeFramework.Variables<\/PRE><\/p>\nPrivate Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
\n oApp = Marshal.GetActiveObject(“SolidEdge.Application”)
oVars = oApp.ActiveDocument.Variables
lstShaft.SelectedIndex = 0<\/STRONG>
\nEnd Sub<\/PRE>
\n![\"07.png\"](\"http:\/\/blogs.sw.siemens.com\/wp-content\/uploads\/sites\/8\/2019\/09\/07-20.png\" "\\"07.png\\"")
<\/span><\/P>
\nIf lstShaft.SelectedIndex = 1 Then
\n oVars.Edit(“Taper_Suppress”, 0)
\nEnd If<\/p>\n
\n oVars.Edit(“Keyway_Suppress”, 0)
\nEnd If<\/p>\n If lstShaft.SelectedIndex = 1 Then
\n oVars.Edit(“Taper_Suppress”, 0)
\n End If<\/p>\n
\n oVars.Edit(“Keyway_Suppress”, 0)
\n End If<\/p>\n
\n oVars.Edit(“Hole_Suppress”, 0)
\n End If<\/p>\n
\n oVars.Edit(“Taper_Suppress”, 0)
\n oVars.Edit(“Keyway_Suppress”, 0)
\n End If<\/p>\n
\n oVars.Edit(“Taper_Suppress”, 0)
\n oVars.Edit(“Hole_Suppress”, 0)
\n End If<\/p>\n
\n oVars.Edit(“Taper_Suppress”, 0)
\n oVars.Edit(“Keyway_Suppress”, 0)
\n oVars.Edit(“Hole_Suppress”, 0)
\n End If
oApp.ActiveDocument.Recompute()<\/PRE><\/p>\n![\"tip.png\"](\"http:\/\/blogs.sw.siemens.com\/wp-content\/uploads\/sites\/8\/2019\/09\/tip-1.png\" "\\"tip.png\\"")
<\/span><\/P>
\n
\n
\n
\n
\n