mehdi-tarkian
/
X2021
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Small fixes

This commit is contained in:
Mans 2021-04-27 12:10:49 +02:00
parent fd4b903862
commit e880c88064
12 changed files with 435 additions and 227 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
HLCt/Parts/START.SLDPRT
View File

Binary file not shown.

7
Wardrobe/GUI/AppForm.vb
View File

@ -66,6 +66,13 @@ Public Class AppForm
Individual.ComboBox_Type.Items.Add("Pressure Welded") Individual.ComboBox_Type.Items.Add("Pressure Welded")
Individual.ComboBox_Type.Items.Add("Type A") Individual.ComboBox_Type.Items.Add("Type A")
For i = 25 To 55 Step 5
Individual.ComboBox_Frame.Items.Add(i & " x " & i)
Next
For i = 65 To 85 Step 10
Individual.ComboBox_Frame.Items.Add(i & " x " & i)
Next
End Sub End Sub
End Class End Class

201
Wardrobe/GUI/Individual.Designer.vb generated
View File

@ -24,6 +24,11 @@ Partial Class Individual
Private Sub InitializeComponent() Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Individual)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Individual))
Me.Panel_Data = New System.Windows.Forms.Panel() Me.Panel_Data = New System.Windows.Forms.Panel()
Me.CheckBox_3DModel = New System.Windows.Forms.CheckBox()
Me.CheckBox_FrameDrawing = New System.Windows.Forms.CheckBox()
Me.CheckBox_GratingDrawing = New System.Windows.Forms.CheckBox()
Me.CheckBox_Frames = New System.Windows.Forms.CheckBox()
Me.CheckBox_Instructions = New System.Windows.Forms.CheckBox()
Me.Button_Back = New System.Windows.Forms.Button() Me.Button_Back = New System.Windows.Forms.Button()
Me.TextBox_Width = New System.Windows.Forms.TextBox() Me.TextBox_Width = New System.Windows.Forms.TextBox()
Me.ComboBox_Width = New System.Windows.Forms.ComboBox() Me.ComboBox_Width = New System.Windows.Forms.ComboBox()
@ -59,11 +64,8 @@ Partial Class Individual
Me.Panel_Grating = New System.Windows.Forms.Panel() Me.Panel_Grating = New System.Windows.Forms.Panel()
Me.Label2 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label()
Me.CheckBox_Instructions = New System.Windows.Forms.CheckBox() Me.ComboBox_Frame = New System.Windows.Forms.ComboBox()
Me.CheckBox_Frames = New System.Windows.Forms.CheckBox() Me.Label8 = New System.Windows.Forms.Label()
Me.CheckBox_GratingDrawing = New System.Windows.Forms.CheckBox()
Me.CheckBox_FrameDrawing = New System.Windows.Forms.CheckBox()
Me.CheckBox_3DModel = New System.Windows.Forms.CheckBox()
Me.Panel_Data.SuspendLayout() Me.Panel_Data.SuspendLayout()
Me.Panel_Recesses.SuspendLayout() Me.Panel_Recesses.SuspendLayout()
Me.Panel_Grating.SuspendLayout() Me.Panel_Grating.SuspendLayout()
@ -72,6 +74,8 @@ Partial Class Individual
'Panel_Data 'Panel_Data
' '
Me.Panel_Data.BackColor = System.Drawing.SystemColors.GradientActiveCaption Me.Panel_Data.BackColor = System.Drawing.SystemColors.GradientActiveCaption
Me.Panel_Data.Controls.Add(Me.Label8)
Me.Panel_Data.Controls.Add(Me.ComboBox_Frame)
Me.Panel_Data.Controls.Add(Me.CheckBox_3DModel) Me.Panel_Data.Controls.Add(Me.CheckBox_3DModel)
Me.Panel_Data.Controls.Add(Me.CheckBox_FrameDrawing) Me.Panel_Data.Controls.Add(Me.CheckBox_FrameDrawing)
Me.Panel_Data.Controls.Add(Me.CheckBox_GratingDrawing) Me.Panel_Data.Controls.Add(Me.CheckBox_GratingDrawing)
@ -107,6 +111,57 @@ Partial Class Individual
Me.Panel_Data.Size = New System.Drawing.Size(420, 950) Me.Panel_Data.Size = New System.Drawing.Size(420, 950)
Me.Panel_Data.TabIndex = 0 Me.Panel_Data.TabIndex = 0
' '
'CheckBox_3DModel
'
Me.CheckBox_3DModel.AutoSize = True
Me.CheckBox_3DModel.Location = New System.Drawing.Point(235, 727)
Me.CheckBox_3DModel.Name = "CheckBox_3DModel"
Me.CheckBox_3DModel.Size = New System.Drawing.Size(131, 20)
Me.CheckBox_3DModel.TabIndex = 32
Me.CheckBox_3DModel.Text = "3D Grating Model"
Me.CheckBox_3DModel.UseVisualStyleBackColor = True
'
'CheckBox_FrameDrawing
'
Me.CheckBox_FrameDrawing.AutoSize = True
Me.CheckBox_FrameDrawing.Enabled = False
Me.CheckBox_FrameDrawing.Location = New System.Drawing.Point(235, 808)
Me.CheckBox_FrameDrawing.Name = "CheckBox_FrameDrawing"
Me.CheckBox_FrameDrawing.Size = New System.Drawing.Size(118, 20)
Me.CheckBox_FrameDrawing.TabIndex = 31
Me.CheckBox_FrameDrawing.Text = "Frame Drawing"
Me.CheckBox_FrameDrawing.UseVisualStyleBackColor = True
'
'CheckBox_GratingDrawing
'
Me.CheckBox_GratingDrawing.AutoSize = True
Me.CheckBox_GratingDrawing.Location = New System.Drawing.Point(235, 754)
Me.CheckBox_GratingDrawing.Name = "CheckBox_GratingDrawing"
Me.CheckBox_GratingDrawing.Size = New System.Drawing.Size(122, 20)
Me.CheckBox_GratingDrawing.TabIndex = 30
Me.CheckBox_GratingDrawing.Text = "Grating Drawing"
Me.CheckBox_GratingDrawing.UseVisualStyleBackColor = True
'
'CheckBox_Frames
'
Me.CheckBox_Frames.AutoSize = True
Me.CheckBox_Frames.Location = New System.Drawing.Point(235, 781)
Me.CheckBox_Frames.Name = "CheckBox_Frames"
Me.CheckBox_Frames.Size = New System.Drawing.Size(101, 20)
Me.CheckBox_Frames.TabIndex = 29
Me.CheckBox_Frames.Text = "Add Frames"
Me.CheckBox_Frames.UseVisualStyleBackColor = True
'
'CheckBox_Instructions
'
Me.CheckBox_Instructions.AutoSize = True
Me.CheckBox_Instructions.Location = New System.Drawing.Point(235, 835)
Me.CheckBox_Instructions.Name = "CheckBox_Instructions"
Me.CheckBox_Instructions.Size = New System.Drawing.Size(156, 20)
Me.CheckBox_Instructions.TabIndex = 28
Me.CheckBox_Instructions.Text = "Assembly Instructions"
Me.CheckBox_Instructions.UseVisualStyleBackColor = True
'
'Button_Back 'Button_Back
' '
Me.Button_Back.Location = New System.Drawing.Point(12, 12) Me.Button_Back.Location = New System.Drawing.Point(12, 12)
@ -120,7 +175,7 @@ Partial Class Individual
'TextBox_Width 'TextBox_Width
' '
Me.TextBox_Width.Location = New System.Drawing.Point(147, 572) Me.TextBox_Width.Location = New System.Drawing.Point(147, 572)
Me.TextBox_Width.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) Me.TextBox_Width.Margin = New System.Windows.Forms.Padding(4)
Me.TextBox_Width.Name = "TextBox_Width" Me.TextBox_Width.Name = "TextBox_Width"
Me.TextBox_Width.Size = New System.Drawing.Size(205, 22) Me.TextBox_Width.Size = New System.Drawing.Size(205, 22)
Me.TextBox_Width.TabIndex = 26 Me.TextBox_Width.TabIndex = 26
@ -130,7 +185,7 @@ Partial Class Individual
Me.ComboBox_Width.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.ComboBox_Width.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.ComboBox_Width.FormattingEnabled = True Me.ComboBox_Width.FormattingEnabled = True
Me.ComboBox_Width.Location = New System.Drawing.Point(147, 572) Me.ComboBox_Width.Location = New System.Drawing.Point(147, 572)
Me.ComboBox_Width.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) Me.ComboBox_Width.Margin = New System.Windows.Forms.Padding(4)
Me.ComboBox_Width.Name = "ComboBox_Width" Me.ComboBox_Width.Name = "ComboBox_Width"
Me.ComboBox_Width.Size = New System.Drawing.Size(205, 24) Me.ComboBox_Width.Size = New System.Drawing.Size(205, 24)
Me.ComboBox_Width.TabIndex = 25 Me.ComboBox_Width.TabIndex = 25
@ -142,7 +197,7 @@ Partial Class Individual
Me.Label7.Location = New System.Drawing.Point(359, 495) Me.Label7.Location = New System.Drawing.Point(359, 495)
Me.Label7.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) Me.Label7.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label7.Name = "Label7" Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(30, 17) Me.Label7.Size = New System.Drawing.Size(23, 13)
Me.Label7.TabIndex = 24 Me.Label7.TabIndex = 24
Me.Label7.Text = "mm" Me.Label7.Text = "mm"
' '
@ -153,7 +208,7 @@ Partial Class Individual
Me.Label6.Location = New System.Drawing.Point(359, 576) Me.Label6.Location = New System.Drawing.Point(359, 576)
Me.Label6.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) Me.Label6.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label6.Name = "Label6" Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(30, 17) Me.Label6.Size = New System.Drawing.Size(23, 13)
Me.Label6.TabIndex = 23 Me.Label6.TabIndex = 23
Me.Label6.Text = "mm" Me.Label6.Text = "mm"
' '
@ -164,7 +219,7 @@ Partial Class Individual
Me.Label5.Location = New System.Drawing.Point(359, 404) Me.Label5.Location = New System.Drawing.Point(359, 404)
Me.Label5.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) Me.Label5.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label5.Name = "Label5" Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(30, 17) Me.Label5.Size = New System.Drawing.Size(23, 13)
Me.Label5.TabIndex = 22 Me.Label5.TabIndex = 22
Me.Label5.Text = "mm" Me.Label5.Text = "mm"
' '
@ -175,7 +230,7 @@ Partial Class Individual
Me.Label4.Location = New System.Drawing.Point(359, 346) Me.Label4.Location = New System.Drawing.Point(359, 346)
Me.Label4.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) Me.Label4.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label4.Name = "Label4" Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(30, 17) Me.Label4.Size = New System.Drawing.Size(23, 13)
Me.Label4.TabIndex = 21 Me.Label4.TabIndex = 21
Me.Label4.Text = "mm" Me.Label4.Text = "mm"
' '
@ -186,7 +241,7 @@ Partial Class Individual
Me.Label3.Location = New System.Drawing.Point(359, 292) Me.Label3.Location = New System.Drawing.Point(359, 292)
Me.Label3.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) Me.Label3.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label3.Name = "Label3" Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(30, 17) Me.Label3.Size = New System.Drawing.Size(23, 13)
Me.Label3.TabIndex = 20 Me.Label3.TabIndex = 20
Me.Label3.Text = "mm" Me.Label3.Text = "mm"
' '
@ -194,7 +249,7 @@ Partial Class Individual
' '
Me.Button_Export_GUI.BackColor = System.Drawing.Color.Transparent Me.Button_Export_GUI.BackColor = System.Drawing.Color.Transparent
Me.Button_Export_GUI.Location = New System.Drawing.Point(65, 866) Me.Button_Export_GUI.Location = New System.Drawing.Point(65, 866)
Me.Button_Export_GUI.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) Me.Button_Export_GUI.Margin = New System.Windows.Forms.Padding(4)
Me.Button_Export_GUI.Name = "Button_Export_GUI" Me.Button_Export_GUI.Name = "Button_Export_GUI"
Me.Button_Export_GUI.Size = New System.Drawing.Size(100, 28) Me.Button_Export_GUI.Size = New System.Drawing.Size(100, 28)
Me.Button_Export_GUI.TabIndex = 18 Me.Button_Export_GUI.TabIndex = 18
@ -205,7 +260,7 @@ Partial Class Individual
' '
Me.Button_Export_SW.BackColor = System.Drawing.Color.Transparent Me.Button_Export_SW.BackColor = System.Drawing.Color.Transparent
Me.Button_Export_SW.Location = New System.Drawing.Point(235, 866) Me.Button_Export_SW.Location = New System.Drawing.Point(235, 866)
Me.Button_Export_SW.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) Me.Button_Export_SW.Margin = New System.Windows.Forms.Padding(4)
Me.Button_Export_SW.Name = "Button_Export_SW" Me.Button_Export_SW.Name = "Button_Export_SW"
Me.Button_Export_SW.Size = New System.Drawing.Size(100, 28) Me.Button_Export_SW.Size = New System.Drawing.Size(100, 28)
Me.Button_Export_SW.TabIndex = 17 Me.Button_Export_SW.TabIndex = 17
@ -219,7 +274,7 @@ Partial Class Individual
Me.Label_Heading.Location = New System.Drawing.Point(93, 46) Me.Label_Heading.Location = New System.Drawing.Point(93, 46)
Me.Label_Heading.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) Me.Label_Heading.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label_Heading.Name = "Label_Heading" Me.Label_Heading.Name = "Label_Heading"
Me.Label_Heading.Size = New System.Drawing.Size(198, 25) Me.Label_Heading.Size = New System.Drawing.Size(166, 20)
Me.Label_Heading.TabIndex = 15 Me.Label_Heading.TabIndex = 15
Me.Label_Heading.Text = "Grating Parameters" Me.Label_Heading.Text = "Grating Parameters"
' '
@ -230,7 +285,7 @@ Partial Class Individual
Me.Label_Material.Location = New System.Drawing.Point(61, 176) Me.Label_Material.Location = New System.Drawing.Point(61, 176)
Me.Label_Material.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) Me.Label_Material.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label_Material.Name = "Label_Material" Me.Label_Material.Name = "Label_Material"
Me.Label_Material.Size = New System.Drawing.Size(69, 20) Me.Label_Material.Size = New System.Drawing.Size(58, 17)
Me.Label_Material.TabIndex = 14 Me.Label_Material.TabIndex = 14
Me.Label_Material.Text = "Material" Me.Label_Material.Text = "Material"
' '
@ -241,7 +296,7 @@ Partial Class Individual
Me.Label_Mesh.Location = New System.Drawing.Point(41, 287) Me.Label_Mesh.Location = New System.Drawing.Point(41, 287)
Me.Label_Mesh.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) Me.Label_Mesh.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label_Mesh.Name = "Label_Mesh" Me.Label_Mesh.Name = "Label_Mesh"
Me.Label_Mesh.Size = New System.Drawing.Size(88, 20) Me.Label_Mesh.Size = New System.Drawing.Size(73, 17)
Me.Label_Mesh.TabIndex = 13 Me.Label_Mesh.TabIndex = 13
Me.Label_Mesh.Text = "Mesh Size" Me.Label_Mesh.Text = "Mesh Size"
' '
@ -252,7 +307,7 @@ Partial Class Individual
Me.Label_Height.Location = New System.Drawing.Point(73, 343) Me.Label_Height.Location = New System.Drawing.Point(73, 343)
Me.Label_Height.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) Me.Label_Height.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label_Height.Name = "Label_Height" Me.Label_Height.Name = "Label_Height"
Me.Label_Height.Size = New System.Drawing.Size(58, 20) Me.Label_Height.Size = New System.Drawing.Size(49, 17)
Me.Label_Height.TabIndex = 12 Me.Label_Height.TabIndex = 12
Me.Label_Height.Text = "Height" Me.Label_Height.Text = "Height"
' '
@ -263,7 +318,7 @@ Partial Class Individual
Me.Label_Thickness.Location = New System.Drawing.Point(43, 399) Me.Label_Thickness.Location = New System.Drawing.Point(43, 399)
Me.Label_Thickness.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) Me.Label_Thickness.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label_Thickness.Name = "Label_Thickness" Me.Label_Thickness.Name = "Label_Thickness"
Me.Label_Thickness.Size = New System.Drawing.Size(85, 20) Me.Label_Thickness.Size = New System.Drawing.Size(72, 17)
Me.Label_Thickness.TabIndex = 11 Me.Label_Thickness.TabIndex = 11
Me.Label_Thickness.Text = "Thickness" Me.Label_Thickness.Text = "Thickness"
' '
@ -274,7 +329,7 @@ Partial Class Individual
Me.Label_Width.Location = New System.Drawing.Point(80, 572) Me.Label_Width.Location = New System.Drawing.Point(80, 572)
Me.Label_Width.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) Me.Label_Width.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label_Width.Name = "Label_Width" Me.Label_Width.Name = "Label_Width"
Me.Label_Width.Size = New System.Drawing.Size(52, 20) Me.Label_Width.Size = New System.Drawing.Size(44, 17)
Me.Label_Width.TabIndex = 10 Me.Label_Width.TabIndex = 10
Me.Label_Width.Text = "Width" Me.Label_Width.Text = "Width"
' '
@ -285,7 +340,7 @@ Partial Class Individual
Me.Label_Length.Location = New System.Drawing.Point(69, 490) Me.Label_Length.Location = New System.Drawing.Point(69, 490)
Me.Label_Length.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) Me.Label_Length.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label_Length.Name = "Label_Length" Me.Label_Length.Name = "Label_Length"
Me.Label_Length.Size = New System.Drawing.Size(60, 20) Me.Label_Length.Size = New System.Drawing.Size(52, 17)
Me.Label_Length.TabIndex = 9 Me.Label_Length.TabIndex = 9
Me.Label_Length.Text = "Length" Me.Label_Length.Text = "Length"
' '
@ -296,14 +351,14 @@ Partial Class Individual
Me.Label_Type.Location = New System.Drawing.Point(85, 124) Me.Label_Type.Location = New System.Drawing.Point(85, 124)
Me.Label_Type.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) Me.Label_Type.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label_Type.Name = "Label_Type" Me.Label_Type.Name = "Label_Type"
Me.Label_Type.Size = New System.Drawing.Size(45, 20) Me.Label_Type.Size = New System.Drawing.Size(40, 16)
Me.Label_Type.TabIndex = 8 Me.Label_Type.TabIndex = 8
Me.Label_Type.Text = "Type" Me.Label_Type.Text = "Type"
' '
'TextBox_Length 'TextBox_Length
' '
Me.TextBox_Length.Location = New System.Drawing.Point(147, 490) Me.TextBox_Length.Location = New System.Drawing.Point(147, 490)
Me.TextBox_Length.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) Me.TextBox_Length.Margin = New System.Windows.Forms.Padding(4)
Me.TextBox_Length.Name = "TextBox_Length" Me.TextBox_Length.Name = "TextBox_Length"
Me.TextBox_Length.Size = New System.Drawing.Size(205, 22) Me.TextBox_Length.Size = New System.Drawing.Size(205, 22)
Me.TextBox_Length.TabIndex = 7 Me.TextBox_Length.TabIndex = 7
@ -313,7 +368,7 @@ Partial Class Individual
Me.ComboBox_Mesh.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.ComboBox_Mesh.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.ComboBox_Mesh.FormattingEnabled = True Me.ComboBox_Mesh.FormattingEnabled = True
Me.ComboBox_Mesh.Location = New System.Drawing.Point(147, 287) Me.ComboBox_Mesh.Location = New System.Drawing.Point(147, 287)
Me.ComboBox_Mesh.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) Me.ComboBox_Mesh.Margin = New System.Windows.Forms.Padding(4)
Me.ComboBox_Mesh.Name = "ComboBox_Mesh" Me.ComboBox_Mesh.Name = "ComboBox_Mesh"
Me.ComboBox_Mesh.Size = New System.Drawing.Size(205, 24) Me.ComboBox_Mesh.Size = New System.Drawing.Size(205, 24)
Me.ComboBox_Mesh.TabIndex = 6 Me.ComboBox_Mesh.TabIndex = 6
@ -323,7 +378,7 @@ Partial Class Individual
Me.ComboBox_Thickness.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.ComboBox_Thickness.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.ComboBox_Thickness.FormattingEnabled = True Me.ComboBox_Thickness.FormattingEnabled = True
Me.ComboBox_Thickness.Location = New System.Drawing.Point(147, 398) Me.ComboBox_Thickness.Location = New System.Drawing.Point(147, 398)
Me.ComboBox_Thickness.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) Me.ComboBox_Thickness.Margin = New System.Windows.Forms.Padding(4)
Me.ComboBox_Thickness.Name = "ComboBox_Thickness" Me.ComboBox_Thickness.Name = "ComboBox_Thickness"
Me.ComboBox_Thickness.Size = New System.Drawing.Size(205, 24) Me.ComboBox_Thickness.Size = New System.Drawing.Size(205, 24)
Me.ComboBox_Thickness.TabIndex = 3 Me.ComboBox_Thickness.TabIndex = 3
@ -333,7 +388,7 @@ Partial Class Individual
Me.ComboBox_Height.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.ComboBox_Height.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.ComboBox_Height.FormattingEnabled = True Me.ComboBox_Height.FormattingEnabled = True
Me.ComboBox_Height.Location = New System.Drawing.Point(147, 342) Me.ComboBox_Height.Location = New System.Drawing.Point(147, 342)
Me.ComboBox_Height.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) Me.ComboBox_Height.Margin = New System.Windows.Forms.Padding(4)
Me.ComboBox_Height.Name = "ComboBox_Height" Me.ComboBox_Height.Name = "ComboBox_Height"
Me.ComboBox_Height.Size = New System.Drawing.Size(205, 24) Me.ComboBox_Height.Size = New System.Drawing.Size(205, 24)
Me.ComboBox_Height.TabIndex = 2 Me.ComboBox_Height.TabIndex = 2
@ -343,7 +398,7 @@ Partial Class Individual
Me.ComboBox_Material.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.ComboBox_Material.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.ComboBox_Material.FormattingEnabled = True Me.ComboBox_Material.FormattingEnabled = True
Me.ComboBox_Material.Location = New System.Drawing.Point(147, 175) Me.ComboBox_Material.Location = New System.Drawing.Point(147, 175)
Me.ComboBox_Material.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) Me.ComboBox_Material.Margin = New System.Windows.Forms.Padding(4)
Me.ComboBox_Material.Name = "ComboBox_Material" Me.ComboBox_Material.Name = "ComboBox_Material"
Me.ComboBox_Material.Size = New System.Drawing.Size(205, 24) Me.ComboBox_Material.Size = New System.Drawing.Size(205, 24)
Me.ComboBox_Material.TabIndex = 1 Me.ComboBox_Material.TabIndex = 1
@ -353,7 +408,7 @@ Partial Class Individual
Me.ComboBox_Type.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.ComboBox_Type.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.ComboBox_Type.FormattingEnabled = True Me.ComboBox_Type.FormattingEnabled = True
Me.ComboBox_Type.Location = New System.Drawing.Point(147, 124) Me.ComboBox_Type.Location = New System.Drawing.Point(147, 124)
Me.ComboBox_Type.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) Me.ComboBox_Type.Margin = New System.Windows.Forms.Padding(4)
Me.ComboBox_Type.Name = "ComboBox_Type" Me.ComboBox_Type.Name = "ComboBox_Type"
Me.ComboBox_Type.Size = New System.Drawing.Size(205, 24) Me.ComboBox_Type.Size = New System.Drawing.Size(205, 24)
Me.ComboBox_Type.TabIndex = 0 Me.ComboBox_Type.TabIndex = 0
@ -369,7 +424,7 @@ Partial Class Individual
Me.Panel_Recesses.Controls.Add(Me.Button_Angle_Corner) Me.Panel_Recesses.Controls.Add(Me.Button_Angle_Corner)
Me.Panel_Recesses.Controls.Add(Me.Label_Recesses) Me.Panel_Recesses.Controls.Add(Me.Label_Recesses)
Me.Panel_Recesses.Location = New System.Drawing.Point(0, 0) Me.Panel_Recesses.Location = New System.Drawing.Point(0, 0)
Me.Panel_Recesses.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) Me.Panel_Recesses.Margin = New System.Windows.Forms.Padding(4)
Me.Panel_Recesses.Name = "Panel_Recesses" Me.Panel_Recesses.Name = "Panel_Recesses"
Me.Panel_Recesses.Size = New System.Drawing.Size(1860, 148) Me.Panel_Recesses.Size = New System.Drawing.Size(1860, 148)
Me.Panel_Recesses.TabIndex = 1 Me.Panel_Recesses.TabIndex = 1
@ -383,7 +438,7 @@ Partial Class Individual
Me.Button_Radius.FlatAppearance.BorderColor = System.Drawing.Color.Black Me.Button_Radius.FlatAppearance.BorderColor = System.Drawing.Color.Black
Me.Button_Radius.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button_Radius.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button_Radius.Location = New System.Drawing.Point(1341, 31) Me.Button_Radius.Location = New System.Drawing.Point(1341, 31)
Me.Button_Radius.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) Me.Button_Radius.Margin = New System.Windows.Forms.Padding(4)
Me.Button_Radius.Name = "Button_Radius" Me.Button_Radius.Name = "Button_Radius"
Me.Button_Radius.Size = New System.Drawing.Size(93, 86) Me.Button_Radius.Size = New System.Drawing.Size(93, 86)
Me.Button_Radius.TabIndex = 22 Me.Button_Radius.TabIndex = 22
@ -397,7 +452,7 @@ Partial Class Individual
Me.Button_Square_Middle.FlatAppearance.BorderColor = System.Drawing.Color.Black Me.Button_Square_Middle.FlatAppearance.BorderColor = System.Drawing.Color.Black
Me.Button_Square_Middle.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button_Square_Middle.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button_Square_Middle.Location = New System.Drawing.Point(1201, 31) Me.Button_Square_Middle.Location = New System.Drawing.Point(1201, 31)
Me.Button_Square_Middle.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) Me.Button_Square_Middle.Margin = New System.Windows.Forms.Padding(4)
Me.Button_Square_Middle.Name = "Button_Square_Middle" Me.Button_Square_Middle.Name = "Button_Square_Middle"
Me.Button_Square_Middle.Size = New System.Drawing.Size(93, 86) Me.Button_Square_Middle.Size = New System.Drawing.Size(93, 86)
Me.Button_Square_Middle.TabIndex = 21 Me.Button_Square_Middle.TabIndex = 21
@ -411,7 +466,7 @@ Partial Class Individual
Me.Button_Square_Side.FlatAppearance.BorderColor = System.Drawing.Color.Black Me.Button_Square_Side.FlatAppearance.BorderColor = System.Drawing.Color.Black
Me.Button_Square_Side.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button_Square_Side.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button_Square_Side.Location = New System.Drawing.Point(1061, 31) Me.Button_Square_Side.Location = New System.Drawing.Point(1061, 31)
Me.Button_Square_Side.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) Me.Button_Square_Side.Margin = New System.Windows.Forms.Padding(4)
Me.Button_Square_Side.Name = "Button_Square_Side" Me.Button_Square_Side.Name = "Button_Square_Side"
Me.Button_Square_Side.Size = New System.Drawing.Size(93, 86) Me.Button_Square_Side.Size = New System.Drawing.Size(93, 86)
Me.Button_Square_Side.TabIndex = 20 Me.Button_Square_Side.TabIndex = 20
@ -425,7 +480,7 @@ Partial Class Individual
Me.Button_Angle_Side.FlatAppearance.BorderColor = System.Drawing.Color.Black Me.Button_Angle_Side.FlatAppearance.BorderColor = System.Drawing.Color.Black
Me.Button_Angle_Side.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button_Angle_Side.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button_Angle_Side.Location = New System.Drawing.Point(781, 31) Me.Button_Angle_Side.Location = New System.Drawing.Point(781, 31)
Me.Button_Angle_Side.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) Me.Button_Angle_Side.Margin = New System.Windows.Forms.Padding(4)
Me.Button_Angle_Side.Name = "Button_Angle_Side" Me.Button_Angle_Side.Name = "Button_Angle_Side"
Me.Button_Angle_Side.Size = New System.Drawing.Size(93, 86) Me.Button_Angle_Side.Size = New System.Drawing.Size(93, 86)
Me.Button_Angle_Side.TabIndex = 19 Me.Button_Angle_Side.TabIndex = 19
@ -439,7 +494,7 @@ Partial Class Individual
Me.Button_Square_Corner.FlatAppearance.BorderColor = System.Drawing.Color.Black Me.Button_Square_Corner.FlatAppearance.BorderColor = System.Drawing.Color.Black
Me.Button_Square_Corner.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button_Square_Corner.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button_Square_Corner.Location = New System.Drawing.Point(921, 31) Me.Button_Square_Corner.Location = New System.Drawing.Point(921, 31)
Me.Button_Square_Corner.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) Me.Button_Square_Corner.Margin = New System.Windows.Forms.Padding(4)
Me.Button_Square_Corner.Name = "Button_Square_Corner" Me.Button_Square_Corner.Name = "Button_Square_Corner"
Me.Button_Square_Corner.Size = New System.Drawing.Size(93, 86) Me.Button_Square_Corner.Size = New System.Drawing.Size(93, 86)
Me.Button_Square_Corner.TabIndex = 18 Me.Button_Square_Corner.TabIndex = 18
@ -453,7 +508,7 @@ Partial Class Individual
Me.Button_Angle_Corner.FlatAppearance.BorderColor = System.Drawing.Color.Black Me.Button_Angle_Corner.FlatAppearance.BorderColor = System.Drawing.Color.Black
Me.Button_Angle_Corner.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button_Angle_Corner.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button_Angle_Corner.Location = New System.Drawing.Point(641, 31) Me.Button_Angle_Corner.Location = New System.Drawing.Point(641, 31)
Me.Button_Angle_Corner.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) Me.Button_Angle_Corner.Margin = New System.Windows.Forms.Padding(4)
Me.Button_Angle_Corner.Name = "Button_Angle_Corner" Me.Button_Angle_Corner.Name = "Button_Angle_Corner"
Me.Button_Angle_Corner.Size = New System.Drawing.Size(93, 86) Me.Button_Angle_Corner.Size = New System.Drawing.Size(93, 86)
Me.Button_Angle_Corner.TabIndex = 17 Me.Button_Angle_Corner.TabIndex = 17
@ -466,7 +521,7 @@ Partial Class Individual
Me.Label_Recesses.Location = New System.Drawing.Point(439, 44) Me.Label_Recesses.Location = New System.Drawing.Point(439, 44)
Me.Label_Recesses.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) Me.Label_Recesses.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label_Recesses.Name = "Label_Recesses" Me.Label_Recesses.Name = "Label_Recesses"
Me.Label_Recesses.Size = New System.Drawing.Size(106, 25) Me.Label_Recesses.Size = New System.Drawing.Size(88, 20)
Me.Label_Recesses.TabIndex = 16 Me.Label_Recesses.TabIndex = 16
Me.Label_Recesses.Text = "Recesses" Me.Label_Recesses.Text = "Recesses"
' '
@ -476,7 +531,7 @@ Partial Class Individual
Me.Panel_Grating.Controls.Add(Me.Label2) Me.Panel_Grating.Controls.Add(Me.Label2)
Me.Panel_Grating.Controls.Add(Me.Label1) Me.Panel_Grating.Controls.Add(Me.Label1)
Me.Panel_Grating.Location = New System.Drawing.Point(420, 148) Me.Panel_Grating.Location = New System.Drawing.Point(420, 148)
Me.Panel_Grating.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) Me.Panel_Grating.Margin = New System.Windows.Forms.Padding(4)
Me.Panel_Grating.Name = "Panel_Grating" Me.Panel_Grating.Name = "Panel_Grating"
Me.Panel_Grating.Size = New System.Drawing.Size(1440, 802) Me.Panel_Grating.Size = New System.Drawing.Size(1440, 802)
Me.Panel_Grating.TabIndex = 2 Me.Panel_Grating.TabIndex = 2
@ -488,7 +543,7 @@ Partial Class Individual
Me.Label2.Location = New System.Drawing.Point(85, 769) Me.Label2.Location = New System.Drawing.Point(85, 769)
Me.Label2.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) Me.Label2.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label2.Name = "Label2" Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(16, 17) Me.Label2.Size = New System.Drawing.Size(13, 13)
Me.Label2.TabIndex = 1 Me.Label2.TabIndex = 1
Me.Label2.Text = "L" Me.Label2.Text = "L"
' '
@ -499,60 +554,30 @@ Partial Class Individual
Me.Label1.Location = New System.Drawing.Point(17, 708) Me.Label1.Location = New System.Drawing.Point(17, 708)
Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label1.Name = "Label1" Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(21, 17) Me.Label1.Size = New System.Drawing.Size(18, 13)
Me.Label1.TabIndex = 0 Me.Label1.TabIndex = 0
Me.Label1.Text = "W" Me.Label1.Text = "W"
' '
'CheckBox_Instructions 'ComboBox_Frame
' '
Me.CheckBox_Instructions.AutoSize = True Me.ComboBox_Frame.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.CheckBox_Instructions.Location = New System.Drawing.Point(235, 835) Me.ComboBox_Frame.FormattingEnabled = True
Me.CheckBox_Instructions.Name = "CheckBox_Instructions" Me.ComboBox_Frame.Location = New System.Drawing.Point(147, 656)
Me.CheckBox_Instructions.Size = New System.Drawing.Size(166, 21) Me.ComboBox_Frame.Margin = New System.Windows.Forms.Padding(4)
Me.CheckBox_Instructions.TabIndex = 28 Me.ComboBox_Frame.Name = "ComboBox_Frame"
Me.CheckBox_Instructions.Text = "Assembly Instructions" Me.ComboBox_Frame.Size = New System.Drawing.Size(205, 24)
Me.CheckBox_Instructions.UseVisualStyleBackColor = True Me.ComboBox_Frame.TabIndex = 33
' '
'CheckBox_Frames 'Label8
' '
Me.CheckBox_Frames.AutoSize = True Me.Label8.AutoSize = True
Me.CheckBox_Frames.Location = New System.Drawing.Point(235, 781) Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CheckBox_Frames.Name = "CheckBox_Frames" Me.Label8.Location = New System.Drawing.Point(53, 656)
Me.CheckBox_Frames.Size = New System.Drawing.Size(106, 21) Me.Label8.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.CheckBox_Frames.TabIndex = 29 Me.Label8.Name = "Label8"
Me.CheckBox_Frames.Text = "Add Frames" Me.Label8.Size = New System.Drawing.Size(81, 17)
Me.CheckBox_Frames.UseVisualStyleBackColor = True Me.Label8.TabIndex = 34
' Me.Label8.Text = "Frame WxH"
'CheckBox_GratingDrawing
'
Me.CheckBox_GratingDrawing.AutoSize = True
Me.CheckBox_GratingDrawing.Location = New System.Drawing.Point(235, 754)
Me.CheckBox_GratingDrawing.Name = "CheckBox_GratingDrawing"
Me.CheckBox_GratingDrawing.Size = New System.Drawing.Size(132, 21)
Me.CheckBox_GratingDrawing.TabIndex = 30
Me.CheckBox_GratingDrawing.Text = "Grating Drawing"
Me.CheckBox_GratingDrawing.UseVisualStyleBackColor = True
'
'CheckBox_FrameDrawing
'
Me.CheckBox_FrameDrawing.AutoSize = True
Me.CheckBox_FrameDrawing.Enabled = False
Me.CheckBox_FrameDrawing.Location = New System.Drawing.Point(235, 808)
Me.CheckBox_FrameDrawing.Name = "CheckBox_FrameDrawing"
Me.CheckBox_FrameDrawing.Size = New System.Drawing.Size(125, 21)
Me.CheckBox_FrameDrawing.TabIndex = 31
Me.CheckBox_FrameDrawing.Text = "Frame Drawing"
Me.CheckBox_FrameDrawing.UseVisualStyleBackColor = True
'
'CheckBox_3DModel
'
Me.CheckBox_3DModel.AutoSize = True
Me.CheckBox_3DModel.Location = New System.Drawing.Point(235, 727)
Me.CheckBox_3DModel.Name = "CheckBox_3DModel"
Me.CheckBox_3DModel.Size = New System.Drawing.Size(141, 21)
Me.CheckBox_3DModel.TabIndex = 32
Me.CheckBox_3DModel.Text = "3D Grating Model"
Me.CheckBox_3DModel.UseVisualStyleBackColor = True
' '
'Individual 'Individual
' '
@ -564,7 +589,7 @@ Partial Class Individual
Me.Controls.Add(Me.Panel_Recesses) Me.Controls.Add(Me.Panel_Recesses)
Me.Controls.Add(Me.Panel_Grating) Me.Controls.Add(Me.Panel_Grating)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) Me.Margin = New System.Windows.Forms.Padding(4)
Me.Name = "Individual" Me.Name = "Individual"
Me.Text = "Individual" Me.Text = "Individual"
Me.Panel_Data.ResumeLayout(False) Me.Panel_Data.ResumeLayout(False)
@ -618,4 +643,6 @@ Partial Class Individual
Friend WithEvents CheckBox_Frames As CheckBox Friend WithEvents CheckBox_Frames As CheckBox
Friend WithEvents CheckBox_Instructions As CheckBox Friend WithEvents CheckBox_Instructions As CheckBox
Friend WithEvents CheckBox_3DModel As CheckBox Friend WithEvents CheckBox_3DModel As CheckBox
Friend WithEvents Label8 As Label
Friend WithEvents ComboBox_Frame As ComboBox
End Class End Class

5
Wardrobe/GUI/Individual.vb
View File

@ -184,6 +184,10 @@ Public Class Individual
User_Input.Check_IfNumber(e) User_Input.Check_IfNumber(e)
End Sub End Sub
Private Sub ComboBox_Frame_TextChanged(sender As Object, e As EventArgs) Handles ComboBox_Frame.TextChanged
User_Input.FrameChanged(sender, e)
End Sub
' --- Grating width changed --- ' --- Grating width changed ---
Private Sub TextBox_Width_TextChanged(sender As Object, e As EventArgs) Handles TextBox_Width.TextChanged Private Sub TextBox_Width_TextChanged(sender As Object, e As EventArgs) Handles TextBox_Width.TextChanged
User_Input.WidthChanged(sender, e) User_Input.WidthChanged(sender, e)
@ -392,4 +396,5 @@ Public Class Individual
Main_Menu.Show() Main_Menu.Show()
End Sub End Sub
End Class End Class

19
Wardrobe/Gratings Data/User_Input.vb
View File

@ -17,6 +17,8 @@
Public Shared addGratingDrawing As Boolean = False Public Shared addGratingDrawing As Boolean = False
Public Shared addFrameDrawing As Boolean = False Public Shared addFrameDrawing As Boolean = False
Public Shared addInstructions As Boolean = False Public Shared addInstructions As Boolean = False
Public Shared frameSize As Integer
Public Shared Sub TypeChanged(sender As Object, e As EventArgs) Public Shared Sub TypeChanged(sender As Object, e As EventArgs)
Individual.ComboBox_Material.Enabled = True Individual.ComboBox_Material.Enabled = True
Individual.ComboBox_Material.Items.Clear() Individual.ComboBox_Material.Items.Clear()
@ -275,6 +277,15 @@
For i = 0 To tempList.Count - 1 For i = 0 To tempList.Count - 1
Individual.ComboBox_Thickness.Items.Add(tempList(i)) Individual.ComboBox_Thickness.Items.Add(tempList(i))
Next Next
For i = 0 To Individual.ComboBox_Frame.Items.Count - 1
Dim item As String = Individual.ComboBox_Frame.Items(i)
If CInt(item.Split(" ")(0)) = gratingHeight + 5 Then
Individual.ComboBox_Frame.Text = Individual.ComboBox_Frame.Items(i)
Exit For
End If
Next
End Sub End Sub
@ -415,6 +426,12 @@
End If End If
End Sub End Sub
Public Shared Sub FrameChanged(Sender As Object, e As EventArgs)
If Individual.ComboBox_Frame.Text <> "" Then
frameSize = CInt(Individual.ComboBox_Frame.Text.Split(" ")(0))
End If
End Sub
Private Shared Sub Enable_Buttons() Private Shared Sub Enable_Buttons()
If AppForm.fillMode Then If AppForm.fillMode Then
If Individual.TextBox_Width.Text <> "" AndAlso Individual.TextBox_Length.Text <> "" Then If Individual.TextBox_Width.Text <> "" AndAlso Individual.TextBox_Length.Text <> "" Then
@ -465,6 +482,7 @@
gratingTable.Columns.Add("CROSSBAR_DIAMETER", GetType(Integer)) gratingTable.Columns.Add("CROSSBAR_DIAMETER", GetType(Integer))
gratingTable.Columns.Add("CROSSBAR_THICKNESS", GetType(Integer)) gratingTable.Columns.Add("CROSSBAR_THICKNESS", GetType(Integer))
gratingTable.Columns.Add("CROSSBAR_HEIGHT", GetType(Integer)) gratingTable.Columns.Add("CROSSBAR_HEIGHT", GetType(Integer))
gratingTable.Columns.Add("FRAME_SIZE", GetType(Integer))
gratingTable.Rows.Add() gratingTable.Rows.Add()
@ -478,6 +496,7 @@
gratingTable.Rows(0)("LOADBAR_HEIGHT") = CInt(Individual.ComboBox_Height.Text) gratingTable.Rows(0)("LOADBAR_HEIGHT") = CInt(Individual.ComboBox_Height.Text)
gratingTable.Rows(0)("LOADBAR_SPACING") = CInt(lSpacing) gratingTable.Rows(0)("LOADBAR_SPACING") = CInt(lSpacing)
gratingTable.Rows(0)("CROSSBAR_SPACING") = CInt(cSpacing) gratingTable.Rows(0)("CROSSBAR_SPACING") = CInt(cSpacing)
gratingTable.Rows(0)("FRAME_SIZE") = frameSize
If Individual.ComboBox_Type.Text = "Pressure Welded" Then If Individual.ComboBox_Type.Text = "Pressure Welded" Then
If gratingSerrated = True Then If gratingSerrated = True Then

22
Wardrobe/SolidWorks/Frame_3D.vb
View File

@ -5,8 +5,10 @@ Public Class Frame_3D
Public Shared frameDT As New DataTable Public Shared frameDT As New DataTable
Public Shared cuttingList As New Dictionary(Of Integer, Integer()) Public Shared cuttingList As New Dictionary(Of Integer, Integer())
Public Shared sideFrameLengths As New Dictionary(Of String, Integer) Public Shared sideFrameLengths As New Dictionary(Of String, Integer)
Private Shared gParameters As DataRow
Public Shared Sub Build_Frame(gratingParameters As DataRow, parentID As Integer) Public Shared Sub Build_Frame(gratingParameters As DataRow, parentID As Integer)
gParameters = gratingParameters
frameDT = Generate_FrameData(gratingParameters) frameDT = Generate_FrameData(gratingParameters)
For i = 0 To frameDT.Rows.Count - 1 For i = 0 To frameDT.Rows.Count - 1
@ -28,8 +30,8 @@ Public Class Frame_3D
HLCtName = "frame_l_straight" HLCtName = "frame_l_straight"
End If End If
inst_ = ExternalClass.instantiate_parts(parentID, HLCtName, "") inst_ = ExternalClass.instantiate_parts(parentID, HLCtName, "")
ExternalClass.modify_parameter_value("DP_HEIGHT", inst_, 40) 'FIXA: Dropdown i GUI med alla alternativ ExternalClass.modify_parameter_value("DP_HEIGHT", inst_, gratingParameters("FRAME_SIZE"))
ExternalClass.modify_parameter_value("DP_WIDTH", inst_, 40) 'FIXA ExternalClass.modify_parameter_value("DP_WIDTH", inst_, gratingParameters("FRAME_SIZE"))
ExternalClass.modify_parameter_value("DP_ROTATION", inst_, frameDT.Rows(i)("ROTATION")) ExternalClass.modify_parameter_value("DP_ROTATION", inst_, frameDT.Rows(i)("ROTATION"))
ExternalClass.modify_parameter_value("DP_OFFSET_W", inst_, frameDT.Rows(i)("OFFSET_W")) ExternalClass.modify_parameter_value("DP_OFFSET_W", inst_, frameDT.Rows(i)("OFFSET_W"))
@ -121,10 +123,10 @@ Public Class Frame_3D
DTRow("CORNER") = Data.gratingPoints.Rows(i)("QUADRANT") DTRow("CORNER") = Data.gratingPoints.Rows(i)("QUADRANT")
DTRow("ROTATION") = (Data.gratingPoints.Rows(i)("QUADRANT") - 1) * 90 DTRow("ROTATION") = (Data.gratingPoints.Rows(i)("QUADRANT") - 1) * 90
If DTRow("CORNER") = 1 Then If DTRow("CORNER") = 1 Then
DTRow("OFFSET_W") = Data.gratingW 'gratingParameters("WIDTH") DTRow("OFFSET_W") = Data.gratingW
DTRow("OFFSET_L") = 0 DTRow("OFFSET_L") = 0
ElseIf DTRow("CORNER") = 2 Then ElseIf DTRow("CORNER") = 2 Then
DTRow("OFFSET_W") = Data.gratingW 'gratingParameters("WIDTH") DTRow("OFFSET_W") = Data.gratingW
DTRow("OFFSET_L") = gratingParameters("LENGTH") DTRow("OFFSET_L") = gratingParameters("LENGTH")
ElseIf DTRow("CORNER") = 3 Then ElseIf DTRow("CORNER") = 3 Then
DTRow("OFFSET_W") = 0 DTRow("OFFSET_W") = 0
@ -188,7 +190,7 @@ Public Class Frame_3D
If Data.gratingPoints.Rows(i)("X") = Data.gratingPoints.Rows(i2)("X") Then If Data.gratingPoints.Rows(i)("X") = Data.gratingPoints.Rows(i2)("X") Then
If Data.gratingPoints.Rows(i)("Y") > Data.gratingPoints.Rows(i2)("Y") Then If Data.gratingPoints.Rows(i)("Y") > Data.gratingPoints.Rows(i2)("Y") Then
DTRow("SIDE") = 3 DTRow("SIDE") = 3 'Side 2
DTRow("LENGTH") = (Data.gratingPoints.Rows(i)("Y") - Data.gratingPoints.Rows(i2)("Y")) * 1000 - 20 - numOfP * 200 + extraCorner1 + extraCorner2 DTRow("LENGTH") = (Data.gratingPoints.Rows(i)("Y") - Data.gratingPoints.Rows(i2)("Y")) * 1000 - 20 - numOfP * 200 + extraCorner1 + extraCorner2
If Data.gratingPoints.Rows(i2)("NAME").substring(0, 1) = "P" Then If Data.gratingPoints.Rows(i2)("NAME").substring(0, 1) = "P" Then
DTRow("OFFSET_W") = 210 - extraCorner2 DTRow("OFFSET_W") = 210 - extraCorner2
@ -197,7 +199,7 @@ Public Class Frame_3D
End If End If
DTRow("OFFSET_L") = gratingParameters("LENGTH") DTRow("OFFSET_L") = gratingParameters("LENGTH")
Else Else
DTRow("SIDE") = 1 DTRow("SIDE") = 1 ' Side 4
DTRow("LENGTH") = (Data.gratingPoints.Rows(i2)("Y") - Data.gratingPoints.Rows(i)("Y")) * 1000 - 20 - numOfP * 200 + extraCorner1 + extraCorner2 DTRow("LENGTH") = (Data.gratingPoints.Rows(i2)("Y") - Data.gratingPoints.Rows(i)("Y")) * 1000 - 20 - numOfP * 200 + extraCorner1 + extraCorner2
If Data.gratingPoints.Rows(i)("NAME").substring(0, 1) = "P" Then If Data.gratingPoints.Rows(i)("NAME").substring(0, 1) = "P" Then
DTRow("OFFSET_W") = DTRow("LENGTH") + 210 - extraCorner1 DTRow("OFFSET_W") = DTRow("LENGTH") + 210 - extraCorner1
@ -208,7 +210,7 @@ Public Class Frame_3D
End If End If
Else Else
If Data.gratingPoints.Rows(i)("X") > Data.gratingPoints.Rows(i2)("X") Then If Data.gratingPoints.Rows(i)("X") > Data.gratingPoints.Rows(i2)("X") Then
DTRow("SIDE") = 4 DTRow("SIDE") = 4 'Side 3
DTRow("LENGTH") = (Data.gratingPoints.Rows(i)("X") - Data.gratingPoints.Rows(i2)("X")) * 1000 - 20 - numOfP * 200 + extraCorner1 + extraCorner2 DTRow("LENGTH") = (Data.gratingPoints.Rows(i)("X") - Data.gratingPoints.Rows(i2)("X")) * 1000 - 20 - numOfP * 200 + extraCorner1 + extraCorner2
DTRow("OFFSET_W") = 0 DTRow("OFFSET_W") = 0
If Data.gratingPoints.Rows(i2)("NAME").substring(0, 1) = "P" Then If Data.gratingPoints.Rows(i2)("NAME").substring(0, 1) = "P" Then
@ -217,7 +219,7 @@ Public Class Frame_3D
DTRow("OFFSET_L") = Data.gratingL / 2 + Data.gratingPoints.Rows(i2)("X") * 1000 + 10 DTRow("OFFSET_L") = Data.gratingL / 2 + Data.gratingPoints.Rows(i2)("X") * 1000 + 10
End If End If
Else Else
DTRow("SIDE") = 2 DTRow("SIDE") = 2 ' Side 1
DTRow("LENGTH") = (Data.gratingPoints.Rows(i2)("X") - Data.gratingPoints.Rows(i)("X")) * 1000 - 20 - numOfP * 200 + extraCorner1 + extraCorner2 DTRow("LENGTH") = (Data.gratingPoints.Rows(i2)("X") - Data.gratingPoints.Rows(i)("X")) * 1000 - 20 - numOfP * 200 + extraCorner1 + extraCorner2
DTRow("OFFSET_W") = Data.gratingW 'gratingParameters("WIDTH") DTRow("OFFSET_W") = Data.gratingW 'gratingParameters("WIDTH")
If Data.gratingPoints.Rows(i)("NAME").substring(0, 1) = "P" Then If Data.gratingPoints.Rows(i)("NAME").substring(0, 1) = "P" Then
@ -484,10 +486,10 @@ Public Class Frame_3D
equationName = equationName.Split("=")(0) & "= " equationName = equationName.Split("=")(0) & "= "
If tempName = "DP_HEIGHT" Then If tempName = "DP_HEIGHT" Then
swEquationMgr.Equation(i) = equationName & 30 'FIXA swEquationMgr.Equation(i) = equationName & gParameters("FRAME_SIZE")
counter += 1 counter += 1
ElseIf tempName = "DP_WIDTH" Then ElseIf tempName = "DP_WIDTH" Then
swEquationMgr.Equation(i) = equationName & 40 'FIXA swEquationMgr.Equation(i) = equationName & gParameters("FRAME_SIZE")
counter += 1 counter += 1
ElseIf tempName = "DP_CUTOFFSET1" Then ElseIf tempName = "DP_CUTOFFSET1" Then
Dim cutLength As Integer = 0 Dim cutLength As Integer = 0

10
Wardrobe/SolidWorks/Frame_Drawing.vb
View File

@ -45,12 +45,7 @@ Public Class Frame_Drawing
Dim transMatrix As Object = Nothing Dim transMatrix As Object = Nothing
For j = 0 To compNames.Count - 2 + endPieceExist For j = 0 To compNames.Count - 2 + endPieceExist
Dim frameID = Frame_3D.cuttingList.ElementAt(i).Value(j) - 1 Dim frameID = Frame_3D.cuttingList.ElementAt(i).Value(j) - 1
compNames(j) = Settings.folderPaths("object_" & Data.objectNum & "_models3D_frames_sw") & "\" & frameComponents(frameID)("partName") & ".SLDPRT"
If frameInSimplified = True Then
compNames(j) = Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\" & frameComponents(frameID)("partName") & ".SLDPRT"
Else
compNames(j) = Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw") & "\" & frameComponents(frameID)("partName") & ".SLDPRT"
End If
coordNames(j) = "" coordNames(j) = ""
Next Next
@ -62,11 +57,10 @@ Public Class Frame_Drawing
Dim assemComps As Object Dim assemComps As Object
assemComps = assembly.AddComponents3((compNames), (transMatrix), (coordNames)) assemComps = assembly.AddComponents3((compNames), (transMatrix), (coordNames))
Dim config As Configuration Dim config As Configuration
config = assembly.GetActiveConfiguration config = assembly.GetActiveConfiguration
Dim swCustPropMgr = config.CustomPropertyManager Dim swCustPropMgr = config.CustomPropertyManager
longstatus = swCustPropMgr.Add3("Benämning", 30, "Whole L Straight Frame", 1) 'Lägg till storlek på frames longstatus = swCustPropMgr.Add3("Benämning", 30, "Whole L Straight Frame " & Individual.ComboBox_Frame.Text & " x 3", 1)
longstatus = swCustPropMgr.Add3("ExtraBenämning1", 30, "Cutting Instructions for Whole Frame ", 1) longstatus = swCustPropMgr.Add3("ExtraBenämning1", 30, "Cutting Instructions for Whole Frame ", 1)
longstatus = swCustPropMgr.Add3("Materialsort", 30, "Hot Dip Galvanized Steel", 1) longstatus = swCustPropMgr.Add3("Materialsort", 30, "Hot Dip Galvanized Steel", 1)
longstatus = swCustPropMgr.Add3("Art. Nr", 30, "TBD", 1) longstatus = swCustPropMgr.Add3("Art. Nr", 30, "TBD", 1)

80
Wardrobe/SolidWorks/Individual_3D.vb
View File

@ -61,55 +61,61 @@ Public Class Individual_3D
Dim status As Integer Dim status As Integer
Dim Assembly = swApp.ActiveDoc() Dim Assembly = swApp.ActiveDoc()
Dim newName As String 'Dim newName As String
newName = Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw") & "\grating_assembly.SLDASM" 'newName = Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw") & "\grating_assembly.SLDASM"
'Dim swExtensions As IModelDocExtension
'swExtensions = Assembly.Extension
'Dim Errors As Integer
'Dim Warnings As Integer
'status = swExtensions.SaveAs2(newName, 0, 4, Nothing, "", True, Errors, Warnings)
Dim swExtensions As IModelDocExtension
swExtensions = Assembly.Extension
Dim Errors As Integer Dim Errors As Integer
Dim Warnings As Integer Dim Warnings As Integer
Dim model As IModelDoc2
model = Assembly
status = model.Save3(1, Errors, Warnings)
status = swExtensions.SaveAs2(newName, 0, 4, Nothing, "", True, Errors, Warnings) Dim sourcePath, destPath As String
Dim childrenSourcePaths As New List(Of String)
Dim childrenDestPaths As New List(Of String)
'Dim sourcePath, destPath As String sourcePath = Settings.filesFolder & "\Files\CADStart\" & designName & ".SLDASM"
'Dim childrenSourcePaths As New List(Of String) destPath = Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw") & "\GRATING_ASSEMBLY.SLDASM"
'Dim childrenDestPaths As New List(Of String)
'sourcePath = Settings.filesFolder & "\Files\CADStart\" & designName & ".SLDASM" childrenSourcePaths.Add(Settings.HLCtFolder & "\HLCt\Parts\START.SLDPRT")
'destPath = Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw") & "\GRATING_ASSEMBLY.SLDASM" childrenDestPaths.Add(Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\MASTER.SLDPRT")
'childrenSourcePaths.Add(Settings.HLCtFolder & "\HLCt\Parts\START.SLDPRT") Dim instanceCounter As New Dictionary(Of String, Integer)
'childrenDestPaths.Add(Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\MASTER.SLDPRT") For i = 0 To partDT.Rows.Count - 1
childrenSourcePaths.Add(Settings.filesFolder & "\Files\CADStart\" & partDT.Rows(i)("partName") & ".SLDPRT")
'Dim instanceCounter As New Dictionary(Of String, Integer) Dim partName As String = partDT.Rows(i)("partName")
'For i = 0 To partDT.Rows.Count - 1 Dim partNameArray As String() = partName.Split("_")
' childrenSourcePaths.Add(Settings.filesFolder & "\Files\CADStart\" & partDT.Rows(i)("partName") & ".SLDPRT")
' Dim partName As String = partDT.Rows(i)("partName") Dim newName As String = ""
' Dim partNameArray As String() = partName.Split("_") For j = 0 To partNameArray.Length - 4
newName += partNameArray(j) & "_"
Next
' Dim newName As String = "" Try
' For j = 0 To partNameArray.Length - 4 instanceCounter(newName.Substring(0, newName.Length - 1)) += 1
' newName += partNameArray(j) & "_" Catch ex As Exception
' Next instanceCounter.Add(newName.Substring(0, newName.Length - 1), 1)
End Try
' Try If partNameArray(0) = "FRAME" Then
' instanceCounter(newName.Substring(0, newName.Length - 1)) += 1 childrenDestPaths.Add(Settings.folderPaths("object_" & Data.objectNum & "_models3D_frames_sw") & "\" & newName &
' Catch ex As Exception instanceCounter(newName.Substring(0, newName.Length - 1)) & ".SLDPRT")
' instanceCounter.Add(newName.Substring(0, newName.Length - 1), 1) Else
' End Try childrenDestPaths.Add(Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw") & "\" & newName &
instanceCounter(newName.Substring(0, newName.Length - 1)) & ".SLDPRT")
End If
Next
' If partNameArray(0) = "FRAME" Then swApp.CloseAllDocuments(True)
' childrenDestPaths.Add(Settings.folderPaths("object_" & Data.objectNum & "_models3D_frames_sw") & "\" & newName & status = swApp.CopyDocument(sourcePath, destPath, childrenSourcePaths.ToArray(), childrenDestPaths.ToArray(), 2)
' instanceCounter(newName.Substring(0, newName.Length - 1)) & ".SLDPRT")
' Else
' childrenDestPaths.Add(Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw") & "\" & newName &
' instanceCounter(newName.Substring(0, newName.Length - 1)) & ".SLDPRT")
' End If
'Next
'swApp.CloseAllDocuments(True)
'status = swApp.CopyDocument(sourcePath, destPath, childrenSourcePaths.ToArray(), childrenDestPaths.ToArray(), 2)
End Sub End Sub
Private Shared Sub Inst_Recesses(parentID As Integer, gratingParameters As DataRow, recessDR As DataRow) Private Shared Sub Inst_Recesses(parentID As Integer, gratingParameters As DataRow, recessDR As DataRow)

94
Wardrobe/SolidWorks/Individual_3D_Simplified.vb
View File

@ -84,60 +84,70 @@ Public Class Individual_3D_Simplified
status = swCustPropMgr.Add3("Revision", 30, "", 1) status = swCustPropMgr.Add3("Revision", 30, "", 1)
Dim newName As String 'Dim newName As String
If withFrame = True Then 'If withFrame = True Then
newName = Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\grating_assembly_simplified_with_frame.SLDASM" ' newName = Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\grating_assembly_simplified_with_frame.SLDASM"
Else 'Else
newName = Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\grating_assembly_simplified.SLDASM" ' newName = Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\grating_assembly_simplified.SLDASM"
End If 'End If
Dim swExtensions As IModelDocExtension 'Dim swExtensions As IModelDocExtension
swExtensions = Assembly.Extension 'swExtensions = Assembly.Extension
'Dim Errors As Integer
'Dim Warnings As Integer
'status = swExtensions.SaveAs2(newName, 0, 4, Nothing, "", True, Errors, Warnings)
Dim Errors As Integer Dim Errors As Integer
Dim Warnings As Integer Dim Warnings As Integer
Dim model As IModelDoc2
status = swExtensions.SaveAs2(newName, 0, 4, Nothing, "", True, Errors, Warnings) model = Assembly
status = model.Save3(1, Errors, Warnings)
Dim sourcePath, destPath As String
Dim childrenSourcePaths As New List(Of String)
Dim childrenDestPaths As New List(Of String)
'Dim sourcePath, destPath As String sourcePath = Settings.filesFolder & "\Files\CADStart\" & designName & ".SLDASM"
'Dim childrenSourcePaths As New List(Of String)
'Dim childrenDestPaths As New List(Of String)
'sourcePath = Settings.filesFolder & "\Files\CADStart\" & designName & ".SLDASM" childrenSourcePaths.Add(Settings.HLCtFolder & "\HLCt\Parts\START.SLDPRT")
'destPath = Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw") & "\GRATING_ASSEMBLY.SLDASM" If withFrame = True Then
destPath = Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\GRATING_ASSEMBLY_SIMPLIFIED_WITH_FRAME.SLDASM"
childrenDestPaths.Add(Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\MASTER_SIMPLIFIED_WITH_FRAME.SLDPRT")
Else
destPath = Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\GRATING_ASSEMBLY_SIMPLIFIED.SLDASM"
childrenDestPaths.Add(Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\MASTER_SIMPLIFIED.SLDPRT")
End If
'childrenSourcePaths.Add(Settings.HLCtFolder & "\HLCt\Parts\START.SLDPRT") Dim instanceCounter As New Dictionary(Of String, Integer)
'childrenDestPaths.Add(Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\MASTER.SLDPRT") For i = 0 To partDT.Rows.Count - 1
childrenSourcePaths.Add(Settings.filesFolder & "\Files\CADStart\" & partDT.Rows(i)("partName") & ".SLDPRT")
'Dim instanceCounter As New Dictionary(Of String, Integer) Dim partName As String = partDT.Rows(i)("partName")
'For i = 0 To partDT.Rows.Count - 1 Dim partNameArray As String() = partName.Split("_")
' childrenSourcePaths.Add(Settings.filesFolder & "\Files\CADStart\" & partDT.Rows(i)("partName") & ".SLDPRT")
' Dim partName As String = partDT.Rows(i)("partName") Dim newName As String = ""
' Dim partNameArray As String() = partName.Split("_") For j = 0 To partNameArray.Length - 4
newName += partNameArray(j) & "_"
Next
' Dim newName As String = "" Try
' For j = 0 To partNameArray.Length - 4 instanceCounter(newName.Substring(0, newName.Length - 1)) += 1
' newName += partNameArray(j) & "_" Catch ex As Exception
' Next instanceCounter.Add(newName.Substring(0, newName.Length - 1), 1)
End Try
' Try If partNameArray(0) = "FRAME" Then
' instanceCounter(newName.Substring(0, newName.Length - 1)) += 1 childrenDestPaths.Add(Settings.folderPaths("object_" & Data.objectNum & "_models3D_frames_sw") & "\" & newName &
' Catch ex As Exception instanceCounter(newName.Substring(0, newName.Length - 1)) & ".SLDPRT")
' instanceCounter.Add(newName.Substring(0, newName.Length - 1), 1) Else
' End Try childrenDestPaths.Add(Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\" & newName &
instanceCounter(newName.Substring(0, newName.Length - 1)) & ".SLDPRT")
End If
Next
' If partNameArray(0) = "FRAME" Then swApp.CloseAllDocuments(True)
' childrenDestPaths.Add(Settings.folderPaths("object_" & Data.objectNum & "_models3D_frames_sw") & "\" & newName & status = swApp.CopyDocument(sourcePath, destPath, childrenSourcePaths.ToArray(), childrenDestPaths.ToArray(), 2)
' instanceCounter(newName.Substring(0, newName.Length - 1)) & ".SLDPRT")
' Else
' childrenDestPaths.Add(Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw") & "\" & newName &
' instanceCounter(newName.Substring(0, newName.Length - 1)) & ".SLDPRT")
' End If
'Next
'swApp.CloseAllDocuments(True)
'status = swApp.CopyDocument(sourcePath, destPath, childrenSourcePaths.ToArray(), childrenDestPaths.ToArray(), 2)
End Sub End Sub
Private Shared Sub Inst_Recesses(parentID As Integer, gratingParameters As DataRow, recessDR As DataRow) Private Shared Sub Inst_Recesses(parentID As Integer, gratingParameters As DataRow, recessDR As DataRow)

99
Wardrobe/SolidWorks/Instructions.vb
View File

@ -28,15 +28,15 @@ Public Class Instructions
Dim drawName As String Dim drawName As String
If AppForm.fillMode = True Then If AppForm.fillMode = True Then
If withFrame = True Then If withFrame = True Then
drawName = Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\gratings_assembly_simplified_with_frame.SLDASM" drawName = Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\GRATINGS_ASSEMBLY_SIMPLIFIED_WITH_FRAME.SLDASM"
Else Else
drawName = Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\gratings_assembly_simplified.SLDASM" drawName = Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\GRATINGS_ASSEMBLY_SIMPLIFIED.SLDASM"
End If End If
Else Else
If withFrame = True Then If withFrame = True Then
drawName = Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\grating_assembly_simplified_with_frame.SLDASM" drawName = Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\GRATING_ASSEMBLY_SIMPLIFIED_WITH_FRAME.SLDASM"
Else Else
drawName = Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\grating_assembly_simplified.SLDASM" drawName = Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\GRATING_ASSEMBLY_SIMPLIFIED.SLDASM"
End If End If
End If End If
@ -114,6 +114,8 @@ Public Class Instructions
Dim straightFramesDT As New DataTable Dim straightFramesDT As New DataTable
straightFramesDT.Columns.Add("LENGTH", GetType(Integer)) straightFramesDT.Columns.Add("LENGTH", GetType(Integer))
straightFramesDT.Columns.Add("SIDE", GetType(Integer)) straightFramesDT.Columns.Add("SIDE", GetType(Integer))
straightFramesDT.Columns.Add("OFFSET_W", GetType(Integer))
straightFramesDT.Columns.Add("OFFSET_L", GetType(Integer))
For i = 1 To 4 For i = 1 To 4
Dim sideNum = i + 1 Dim sideNum = i + 1
If sideNum = 5 Then If sideNum = 5 Then
@ -125,53 +127,37 @@ Public Class Instructions
Dim newDR As DataRow = straightFramesDT.NewRow Dim newDR As DataRow = straightFramesDT.NewRow
newDR("LENGTH") = DR("LENGTH") newDR("LENGTH") = DR("LENGTH")
newDR("SIDE") = i newDR("SIDE") = i
newDR("OFFSET_W") = DR("OFFSET_W")
newDR("OFFSET_L") = DR("OFFSET_L")
straightFramesDT.Rows.Add(newDR) straightFramesDT.Rows.Add(newDR)
End If End If
Next Next
Next Next
Dim sideOffsets(3) As Double
Dim cornerFrames = Frame_3D.frameDT.Select("TYPE = 'CORNER'")
For i = 0 To 3
Dim cornerFrameExist As Boolean = False
For j = 0 To cornerFrames.Length - 1
If cornerFrames(j)("CORNER") = i + 1 Then
cornerFrameExist = True
Exit For
End If
Next
If cornerFrameExist = True Then
sideOffsets(i) = 0.21
Else
sideOffsets(i) = 0
End If
Next
Dim worldX, worldY, offsetX, offsetY As Double Dim worldX, worldY, offsetX, offsetY As Double
Dim scale As Double = myView.ScaleDecimal Dim scale As Double = myView.ScaleDecimal
For i = 0 To straightFramesDT.Rows.Count - 1 For i = 0 To straightFramesDT.Rows.Count - 1
Dim offsetL As Double = straightFramesDT.Rows(i)("OFFSET_L") / 1000
Dim offsetW As Double = straightFramesDT.Rows(i)("OFFSET_W") / 1000
Dim length As Double = straightFramesDT.Rows(i)("LENGTH") / 1000
If straightFramesDT.Rows(i)("SIDE") = 1 Then If straightFramesDT.Rows(i)("SIDE") = 1 Then
worldX = swSheetWidth / 2 + (-(Data.gratingL / 1000) / 2 + sideOffsets(0) + (straightFramesDT.Rows(i)("LENGTH") / 1000) / 2) * scale worldX = swSheetWidth / 2 + (-(Data.gratingL / 1000) / 2 + offsetL - length / 2) * scale
sideOffsets(0) += straightFramesDT.Rows(i)("LENGTH") / 1000
worldY = swSheetHeight / 2 + ((Data.gratingW / 1000) / 2 + 0.001) * scale worldY = swSheetHeight / 2 + ((Data.gratingW / 1000) / 2 + 0.001) * scale
offsetX = worldX - 0.01 - 0.0045 offsetX = worldX - 0.01 - 0.0045
offsetY = worldY + 0.02 + 0.0015 offsetY = worldY + 0.02 + 0.0015
ElseIf straightFramesDT.Rows(i)("SIDE") = 2 Then ElseIf straightFramesDT.Rows(i)("SIDE") = 2 Then
worldX = swSheetWidth / 2 + ((Data.gratingL / 1000) / 2 + 0.001) * scale worldX = swSheetWidth / 2 + ((Data.gratingL / 1000) / 2 + 0.001) * scale
worldY = swSheetHeight / 2 + ((Data.gratingW / 1000) / 2 - sideOffsets(1) - (straightFramesDT.Rows(i)("LENGTH") / 1000) / 2) * scale worldY = swSheetHeight / 2 + (-(Data.gratingW / 1000) / 2 + offsetW + length / 2) * scale
sideOffsets(1) += straightFramesDT.Rows(i)("LENGTH") / 1000
offsetX = worldX + 0.02 - 0.0045 offsetX = worldX + 0.02 - 0.0045
offsetY = worldY + 0.01 + 0.0015 offsetY = worldY + 0.01 + 0.0015
ElseIf straightFramesDT.Rows(i)("SIDE") = 3 Then ElseIf straightFramesDT.Rows(i)("SIDE") = 3 Then
worldX = swSheetWidth / 2 + ((Data.gratingL / 1000) / 2 - sideOffsets(2) - (straightFramesDT.Rows(i)("LENGTH") / 1000) / 2) * scale worldX = swSheetWidth / 2 + (-(Data.gratingL / 1000) / 2 + offsetL + length / 2) * scale
sideOffsets(2) += straightFramesDT.Rows(i)("LENGTH") / 1000
worldY = swSheetHeight / 2 - ((Data.gratingW / 1000) / 2 + 0.001) * scale worldY = swSheetHeight / 2 - ((Data.gratingW / 1000) / 2 + 0.001) * scale
offsetX = worldX + 0.01 - 0.0045 offsetX = worldX + 0.01 - 0.0045
offsetY = worldY - 0.02 + 0.0015 offsetY = worldY - 0.02 + 0.0015
Else Else
worldX = swSheetWidth / 2 - ((Data.gratingL / 1000) / 2 + 0.001) * scale worldX = swSheetWidth / 2 - ((Data.gratingL / 1000) / 2 + 0.001) * scale
worldY = swSheetHeight / 2 + (-(Data.gratingW / 1000) / 2 + sideOffsets(3) + (straightFramesDT.Rows(i)("LENGTH") / 1000) / 2) * scale worldY = swSheetHeight / 2 + (-(Data.gratingW / 1000) / 2 + offsetW - length / 2) * scale
sideOffsets(3) += straightFramesDT.Rows(i)("LENGTH") / 1000
offsetX = worldX - 0.02 - 0.0045 offsetX = worldX - 0.02 - 0.0045
offsetY = worldY - 0.01 + 0.0015 offsetY = worldY - 0.01 + 0.0015
End If End If
@ -203,6 +189,61 @@ Public Class Instructions
status = swExtensions.SelectByID2(balloonName & "@" & myView.GetName2, "NOTE", 0, 0, 0, False, 0, Nothing, 0) status = swExtensions.SelectByID2(balloonName & "@" & myView.GetName2, "NOTE", 0, 0, 0, False, 0, Nothing, 0)
editedNote = swExtensions.EditBalloonProperties2(1, 3, 0, "F-" & i + 1, 0, "", 0, False, 1, "X", 0.001) editedNote = swExtensions.EditBalloonProperties2(1, 3, 0, "F-" & i + 1, 0, "", 0, False, 1, "X", 0.001)
Next Next
Dim cornerFrames = Frame_3D.frameDT.Select("TYPE = 'CORNER'")
For i = 0 To cornerFrames.Length - 1
If cornerFrames(i)("CORNER") = 1 Then
worldX = swSheetWidth / 2 - ((Data.gratingL / 1000) / 2 + 0.001) * scale
worldY = swSheetHeight / 2 + ((Data.gratingW / 1000) / 2 + 0.001) * scale
offsetX = worldX - 0.022 - 0.01
offsetY = worldY + 0.002 + 0.01
ElseIf cornerFrames(i)("CORNER") = 2 Then
worldX = swSheetWidth / 2 + ((Data.gratingL / 1000) / 2 + 0.001) * scale
worldY = swSheetHeight / 2 + ((Data.gratingW / 1000) / 2 + 0.001) * scale
offsetX = worldX + 0.01
offsetY = worldY + 0.002 + 0.01
ElseIf cornerFrames(i)("CORNER") = 3 Then
worldX = swSheetWidth / 2 + ((Data.gratingL / 1000) / 2 + 0.001) * scale
worldY = swSheetHeight / 2 - ((Data.gratingW / 1000) / 2 + 0.001) * scale
offsetX = worldX + 0.01
offsetY = worldY - 0.002 - 0.01
Else
worldX = swSheetWidth / 2 - ((Data.gratingL / 1000) / 2 + 0.001) * scale
worldY = swSheetHeight / 2 - ((Data.gratingW / 1000) / 2 + 0.001) * scale
offsetX = worldX - 0.022 - 0.01
offsetY = worldY - 0.002 - 0.01
End If
status = swExtensions.SelectByRay(worldX, worldY, 0, 0, 0, -1, 0.0005, 2, False, 0, 0)
Dim BomBalloonParams As Object
BomBalloonParams = swExtensions.CreateBalloonOptions()
BomBalloonParams.Style = 0
BomBalloonParams.Size = 3
BomBalloonParams.UpperTextContent = 1
BomBalloonParams.UpperText = """"
BomBalloonParams.ShowQuantity = False
BomBalloonParams.QuantityPlacement = 1
BomBalloonParams.QuantityDenotationText = "X"
BomBalloonParams.QuantityOverride = False
Dim myNote = swExtensions.InsertBOMBalloon2(BomBalloonParams)
noteAnnotation = myNote.GetAnnotation()
textFormat = noteAnnotation.GetTextFormat(0)
textFormat.CharHeight = 0.0025
status = noteAnnotation.SetTextFormat(0, False, textFormat)
noteAnnotation.SetPosition2(offsetX, offsetY, 0)
iDrawing.ClearSelection2(True)
balloonName = myNote.GetName()
status = swExtensions.SelectByID2(balloonName & "@" & myView.GetName2, "NOTE", 0, 0, 0, False, 0, Nothing, 0)
editedNote = swExtensions.EditBalloonProperties2(0, 3, 0, "Frame Corner", 0, "", 0, False, 1, "X", 0.001)
Next
End If End If

54
Wardrobe/SolidWorks/Multiple_3D.vb
View File

@ -82,12 +82,58 @@ Public Class Multiple_3D
Dim status As Boolean Dim status As Boolean
Dim Assembly = swApp.ActiveDoc() Dim Assembly = swApp.ActiveDoc()
Dim swExtensions As IModelDocExtension 'Dim swExtensions As IModelDocExtension
swExtensions = Assembly.Extension 'swExtensions = Assembly.Extension
'Dim Errors As Integer
'Dim Warnings As Integer
'status = swExtensions.SaveAs2(Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw") & "\gratings_assembly.SLDASM",
' 0, 4, Nothing, "", True, Errors, Warnings) 'FIXA
Dim Errors As Integer Dim Errors As Integer
Dim Warnings As Integer Dim Warnings As Integer
status = swExtensions.SaveAs2(Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw") & "\gratings_assembly.SLDASM", Dim model As IModelDoc2
0, 4, Nothing, "", True, Errors, Warnings) 'FIXA model = Assembly
status = model.Save3(1, Errors, Warnings)
Dim sourcePath, destPath As String
Dim childrenSourcePaths As New List(Of String)
Dim childrenDestPaths As New List(Of String)
sourcePath = Settings.filesFolder & "\Files\CADStart\" & designName & ".SLDASM"
destPath = Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw") & "\GRATINGS_ASSEMBLY.SLDASM"
childrenSourcePaths.Add(Settings.HLCtFolder & "\HLCt\Parts\START.SLDPRT")
childrenDestPaths.Add(Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\MASTER.SLDPRT")
Dim instanceCounter As New Dictionary(Of String, Integer)
For i = 0 To partDT.Rows.Count - 1
childrenSourcePaths.Add(Settings.filesFolder & "\Files\CADStart\" & partDT.Rows(i)("partName") & ".SLDPRT")
Dim partName As String = partDT.Rows(i)("partName")
Dim partNameArray As String() = partName.Split("_")
Dim newName As String = ""
For j = 0 To partNameArray.Length - 4
newName += partNameArray(j) & "_"
Next
Try
instanceCounter(newName.Substring(0, newName.Length - 1)) += 1
Catch ex As Exception
instanceCounter.Add(newName.Substring(0, newName.Length - 1), 1)
End Try
If partNameArray(0) = "FRAME" Then
childrenDestPaths.Add(Settings.folderPaths("object_" & Data.objectNum & "_models3D_frames_sw") & "\" & newName &
instanceCounter(newName.Substring(0, newName.Length - 1)) & ".SLDPRT")
Else
childrenDestPaths.Add(Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw") & "\" & newName &
instanceCounter(newName.Substring(0, newName.Length - 1)) & ".SLDPRT")
End If
Next
swApp.CloseAllDocuments(True)
status = swApp.CopyDocument(sourcePath, destPath, childrenSourcePaths.ToArray(), childrenDestPaths.ToArray(), 2)
End Sub End Sub
Private Shared Sub Inst_Recesses(parentID As Integer, gratingParameters As DataRow, recessDR As DataRow) Private Shared Sub Inst_Recesses(parentID As Integer, gratingParameters As DataRow, recessDR As DataRow)

71
Wardrobe/SolidWorks/Multiple_3D_Simplified.vb
View File

@ -145,19 +145,70 @@ Public Class Multiple_3D_Simplified
status = swCustPropMgr.Add3("epdmid", 30, "", 1) status = swCustPropMgr.Add3("epdmid", 30, "", 1)
status = swCustPropMgr.Add3("Revision", 30, "", 1) status = swCustPropMgr.Add3("Revision", 30, "", 1)
Dim Assebmly = swApp.ActiveDoc() 'Dim Assebmly = swApp.ActiveDoc()
Dim newName As String 'Dim newName As String
If withFrame = True Then 'If withFrame = True Then
newName = Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\gratings_assembly_simplified_with_frame.SLDASM" ' newName = Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\gratings_assembly_simplified_with_frame.SLDASM"
Else 'Else
newName = Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\gratings_assembly_simplified.SLDASM" ' newName = Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\gratings_assembly_simplified.SLDASM"
End If 'End If
Dim swExtensions As IModelDocExtension 'Dim swExtensions As IModelDocExtension
swExtensions = assembly.Extension 'swExtensions = assembly.Extension
'Dim Errors As Integer
'Dim Warnings As Integer
'status = swExtensions.SaveAs2(newName, 0, 4, Nothing, "", True, Errors, Warnings)
Dim Errors As Integer Dim Errors As Integer
Dim Warnings As Integer Dim Warnings As Integer
Dim model As IModelDoc2
model = assembly
status = model.Save3(1, Errors, Warnings)
status = swExtensions.SaveAs2(newName, 0, 4, Nothing, "", True, Errors, Warnings) Dim sourcePath, destPath As String
Dim childrenSourcePaths As New List(Of String)
Dim childrenDestPaths As New List(Of String)
sourcePath = Settings.filesFolder & "\Files\CADStart\" & designName & ".SLDASM"
childrenSourcePaths.Add(Settings.HLCtFolder & "\HLCt\Parts\START.SLDPRT")
If withFrame = True Then
destPath = Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\GRATINGS_ASSEMBLY_SIMPLIFIED_WITH_FRAME.SLDASM"
childrenDestPaths.Add(Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\MASTER_SIMPLIFIED_WITH_FRAME.SLDPRT")
Else
destPath = Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\GRATINGS_ASSEMBLY_SIMPLIFIED.SLDASM"
childrenDestPaths.Add(Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\MASTER_SIMPLIFIED.SLDPRT")
End If
Dim instanceCounter As New Dictionary(Of String, Integer)
For i = 0 To partDT.Rows.Count - 1
childrenSourcePaths.Add(Settings.filesFolder & "\Files\CADStart\" & partDT.Rows(i)("partName") & ".SLDPRT")
Dim partName As String = partDT.Rows(i)("partName")
Dim partNameArray As String() = partName.Split("_")
Dim newName As String = ""
For j = 0 To partNameArray.Length - 4
newName += partNameArray(j) & "_"
Next
Try
instanceCounter(newName.Substring(0, newName.Length - 1)) += 1
Catch ex As Exception
instanceCounter.Add(newName.Substring(0, newName.Length - 1), 1)
End Try
If partNameArray(0) = "FRAME" Then
childrenDestPaths.Add(Settings.folderPaths("object_" & Data.objectNum & "_models3D_frames_sw") & "\" & newName &
instanceCounter(newName.Substring(0, newName.Length - 1)) & ".SLDPRT")
Else
childrenDestPaths.Add(Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\" & newName &
instanceCounter(newName.Substring(0, newName.Length - 1)) & ".SLDPRT")
End If
Next
swApp.CloseAllDocuments(True)
status = swApp.CopyDocument(sourcePath, destPath, childrenSourcePaths.ToArray(), childrenDestPaths.ToArray(), 2)
End Sub End Sub
Private Shared Sub Inst_Recesses(parentID As Integer, gratingParameters As DataRow, recessDR As DataRow) Private Shared Sub Inst_Recesses(parentID As Integer, gratingParameters As DataRow, recessDR As DataRow)