Skip to content
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension


Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
43 changes: 38 additions & 5 deletions Form_VarHandler.Designer.vb

Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.

22 changes: 22 additions & 0 deletions Form_VarHandler.vb
Original file line number Diff line number Diff line change
Expand Up @@ -30,6 +30,8 @@ Public Class Form_VarHandler
tmpSlider2.objDoc = objDoc
tmpSlider2.LengthUnits = LengthUnits
tmpSlider2.UpdateDoc = BT_Update.Checked
tmpSlider2.SaveImages = BT_SaveImages.Checked
tmpSlider2.CheckInterference = BT_CheckInterference.Checked
AddHandler tmpSlider2.LB_value.TextChanged, AddressOf Slider_Click

FLP_Vars.Controls.Add(tmpSlider2)
Expand Down Expand Up @@ -253,6 +255,8 @@ Public Class Form_VarHandler
Dim tmpWorkFlow As New Form_WorkFlow
tmpWorkFlow.Variables = tmpVariables
tmpWorkFlow.UpdateDoc = BT_Update.Checked
tmpWorkFlow.SaveImages = BT_SaveImages.Checked
tmpWorkFlow.CheckInterference = BT_CheckInterference.Checked
tmpWorkFlow.LengthUnits = LengthUnits

tmpWorkFlow.ShowDialog(Me)
Expand All @@ -269,6 +273,24 @@ Public Class Form_VarHandler

End Sub

Private Sub BT_SaveImages_Click(sender As Object, e As EventArgs) Handles BT_SaveImages.Click
For Each C As Control In FLP_Vars.Controls
If TypeOf C Is UC_Slider Then
Dim tmpSlider As UC_Slider = CType(C, UC_Slider)
tmpSlider.SaveImages = BT_SaveImages.Checked
End If
Next
End Sub

Private Sub BT_CheckInterference_Click(sender As Object, e As EventArgs) Handles BT_CheckInterference.Click
For Each C As Control In FLP_Vars.Controls
If TypeOf C Is UC_Slider Then
Dim tmpSlider As UC_Slider = CType(C, UC_Slider)
tmpSlider.CheckInterference = BT_CheckInterference.Checked
End If
Next
End Sub

Private Function GetLengthUnits(objDoc As SolidEdgeFramework.SolidEdgeDocument) As SolidEdgeConstants.UnitOfMeasureLengthReadoutConstants
Dim tmpLengthUnits As SolidEdgeConstants.UnitOfMeasureLengthReadoutConstants

Expand Down
6 changes: 6 additions & 0 deletions Form_WorkFlow.vb
Original file line number Diff line number Diff line change
Expand Up @@ -5,6 +5,8 @@ Public Class Form_WorkFlow

Public Variables As List(Of Object)
Public UpdateDoc As Boolean = False
Public SaveImages As Boolean = False
Public CheckInterference As Boolean = False
Public LengthUnits As SolidEdgeConstants.UnitOfMeasureLengthReadoutConstants

Private Sub Add_Event_Click(sender As Object, e As EventArgs) Handles Add_Event.Click
Expand Down Expand Up @@ -136,6 +138,10 @@ Public Class Form_WorkFlow

Form_VarHandler.objDoc.Parent.DoIdle()

If SaveImages Then UC_Slider.DoSaveImage(Form_VarHandler.objDoc)

If CheckInterference Then If Not UC_Slider.DoCheckInterference(Form_VarHandler.objDoc) Then Exit For

Next

StepEvent.LB_SEQ.ForeColor = Color.DarkGray
Expand Down
20 changes: 20 additions & 0 deletions My Project/Resources.Designer.vb

Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.

6 changes: 6 additions & 0 deletions My Project/Resources.resx
Original file line number Diff line number Diff line change
Expand Up @@ -127,6 +127,9 @@
<data name="Checked" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\icons8_checked_checkbox_16.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="CheckInterference" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CheckInterference.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Close" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\icons8_close_window_16.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
Expand Down Expand Up @@ -160,6 +163,9 @@
<data name="Save" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\icons8_save_16.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="SaveAsImage" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\SaveAsImage.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Settings" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\icons8_settings_16.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
Expand Down
Binary file added Resources/CheckInterference.png
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Binary file added Resources/SaveAsImage.png
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
11 changes: 11 additions & 0 deletions SolidEdge-VarHandler.vbproj
Original file line number Diff line number Diff line change
Expand Up @@ -202,6 +202,15 @@
<Isolated>False</Isolated>
<EmbedInteropTypes>True</EmbedInteropTypes>
</COMReference>
<COMReference Include="SolidEdgeAssembly">
<Guid>{3E2B3BD4-F0B9-11D1-BDFD-080036B4D502}</Guid>
<VersionMajor>1</VersionMajor>
<VersionMinor>0</VersionMinor>
<Lcid>0</Lcid>
<WrapperTool>tlbimp</WrapperTool>
<Isolated>False</Isolated>
<EmbedInteropTypes>True</EmbedInteropTypes>
</COMReference>
<COMReference Include="SolidEdgeConstants">
<Guid>{C467A6F5-27ED-11D2-BE30-080036B4D502}</Guid>
<VersionMajor>1</VersionMajor>
Expand Down Expand Up @@ -295,6 +304,8 @@
<None Include="Resources\icons8_opened_folder_16.png" />
<None Include="Resources\icons8_save_16.png" />
<None Include="Resources\icons8_Update_Done_16.png" />
<None Include="Resources\SaveAsImage.png" />
<None Include="Resources\CheckInterference.png" />
<Content Include="slider.ico" />
<Content Include="VarHandler.ico" />
<Content Include="MainForm.png" />
Expand Down
Loading