Determine grating points for fill function (step 1)
This commit is contained in:
Mans
parent
2b69ed463a
commit
b22c45ca34
Binary file not shown.
|
|
@ -2,7 +2,7 @@
|
|||
Public Class Multiple_Drawing
|
||||
|
||||
Public Shared Sub Create_Models_For_Drawing()
|
||||
Dim gratingsPointsDS As DataSet = Create_GreatingPoints()
|
||||
Dim gratingsPointsDS As DataSet = Create_GratingPoints()
|
||||
|
||||
Dim gratingHeight As Decimal = User_Input.gratingHeight / 1000
|
||||
|
||||
|
|
@ -105,7 +105,7 @@ Public Class Multiple_Drawing
|
|||
longstatus = Model.SaveAs3(Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\simplified_grating_assembly.SLDASM", 0, 0)
|
||||
End Sub
|
||||
|
||||
Private Shared Function Create_GreatingPoints()
|
||||
Private Shared Function Create_GratingPoints()
|
||||
Dim pointsDS As New DataSet
|
||||
|
||||
Dim numOfGratings As Integer = Grating_Fill.numOfVertical * Grating_Fill.numOfHorizontal
|
||||
|
|
@ -176,6 +176,87 @@ Public Class Multiple_Drawing
|
|||
Next
|
||||
|
||||
' --- Add recess points ---
|
||||
Dim recessPointsDT As New DataTable
|
||||
recessPointsDT.Columns.Add("NAME", GetType(String))
|
||||
recessPointsDT.Columns.Add("TYPE", GetType(String))
|
||||
recessPointsDT.Columns.Add("SIDE", GetType(Integer))
|
||||
recessPointsDT.Columns.Add("X", GetType(Double))
|
||||
recessPointsDT.Columns.Add("Y", GetType(Double))
|
||||
|
||||
For j = 1 To 4
|
||||
For Each DR As DataRow In Data.gratingPoints.Rows
|
||||
Dim recessDR As DataRow = recessPointsDT.NewRow()
|
||||
recessDR("NAME") = DR("NAME")
|
||||
recessDR("SIDE") = j
|
||||
recessDR("X") = DR("X")
|
||||
recessDR("Y") = DR("Y")
|
||||
Dim pointName As String = DR("NAME")
|
||||
If pointName.Substring(0, 2) = "CA" Then
|
||||
recessDR("TYPE") = "Corner Angle"
|
||||
ElseIf pointName.Substring(0, 2) = "CR" Then
|
||||
recessDR("TYPE") = "Corner Rectangle"
|
||||
ElseIf pointName.Substring(0, 2) = "CS" Then
|
||||
recessDR("TYPE") = "Side Rectangle"
|
||||
Else
|
||||
Continue For
|
||||
End If
|
||||
|
||||
If j = 1 Then
|
||||
If DR("Y") = pointsDT.Rows(0)("Y") Then
|
||||
If DR("X") >= pointsDT.Rows(0)("X") AndAlso DR("X") <= pointsDT.Rows(1)("X") Then
|
||||
recessPointsDT.Rows.Add(recessDR)
|
||||
End If
|
||||
End If
|
||||
ElseIf j = 2 Then
|
||||
If DR("X") = pointsDT.Rows(1)("X") Then
|
||||
If DR("Y") <= pointsDT.Rows(1)("Y") AndAlso DR("Y") >= pointsDT.Rows(2)("Y") Then
|
||||
recessPointsDT.Rows.Add(recessDR)
|
||||
End If
|
||||
End If
|
||||
ElseIf j = 3 Then
|
||||
If DR("Y") = pointsDT.Rows(2)("Y") Then
|
||||
If DR("X") <= pointsDT.Rows(2)("X") AndAlso DR("X") >= pointsDT.Rows(3)("X") Then
|
||||
recessPointsDT.Rows.Add(recessDR)
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
If DR("X") = pointsDT.Rows(3)("X") Then
|
||||
If DR("Y") >= pointsDT.Rows(3)("Y") AndAlso DR("Y") <= pointsDT.Rows(0)("Y") Then
|
||||
recessPointsDT.Rows.Add(recessDR)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
Next
|
||||
|
||||
For Each DR As DataRow In recessPointsDT.Rows
|
||||
If DR("TYPE") = "Corner Angle" Then
|
||||
Dim pointName As String = DR("NAME")
|
||||
If pointName.Split("_")(1) = 1 Then
|
||||
Dim DR3 As DataRow = pointsDT.NewRow()
|
||||
DR3("NAME") = DR("NAME")
|
||||
DR3("TYPE") = "Recess CA"
|
||||
DR3("X") = DR("X")
|
||||
DR3("Y") = DR("Y")
|
||||
Dim index As Integer = Get_RowIndex(pointsDT, DR)
|
||||
|
||||
|
||||
pointsDT.Rows.InsertAt(DR3, index + 1)
|
||||
|
||||
Try
|
||||
pointsDT.Rows.RemoveAt(index + 2)
|
||||
Catch ex As Exception
|
||||
pointsDT.Rows.RemoveAt(0)
|
||||
End Try
|
||||
|
||||
'Check if remove next point aswell (If angle crosses more than one grating)
|
||||
Else
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
Next
|
||||
|
||||
|
||||
|
||||
|
|
@ -186,4 +267,56 @@ Public Class Multiple_Drawing
|
|||
|
||||
Return pointsDS
|
||||
End Function
|
||||
|
||||
Private Shared Function Get_RowIndex(pDT As DataTable, rpDR As DataRow)
|
||||
|
||||
Dim rowName As String = ""
|
||||
If rpDR("SIDE") = 1 Then
|
||||
Dim sidePoints = pDT.Select("Y = '" & rpDR("Y") & "'")
|
||||
For Each DR2 As DataRow In sidePoints
|
||||
If DR2("X") < rpDR("X") Then
|
||||
rowName = DR2("NAME")
|
||||
Else
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
ElseIf rpDR("SIDE") = 2 Then
|
||||
Dim sidePoints = pDT.Select("X = '" & rpDR("X") & "'")
|
||||
For Each DR2 As DataRow In sidePoints
|
||||
If DR2("Y") > rpDR("Y") Then
|
||||
rowName = DR2("NAME")
|
||||
Else
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
ElseIf rpDR("SIDE") = 3 Then
|
||||
Dim sidePoints = pDT.Select("Y = '" & rpDR("Y") & "'")
|
||||
For Each DR2 As DataRow In sidePoints
|
||||
If DR2("X") > rpDR("X") Then
|
||||
rowName = DR2("NAME")
|
||||
Else
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
Else
|
||||
Dim sidePoints = pDT.Select("X = '" & rpDR("X") & "'")
|
||||
For Each DR2 As DataRow In sidePoints
|
||||
If DR2("Y") < rpDR("Y") Then
|
||||
rowName = DR2("NAME")
|
||||
Else
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
Dim index As Integer = 0
|
||||
For j = 0 To pDT.Rows.Count - 1
|
||||
If pDT.Rows(j)("NAME") = rowName Then
|
||||
index = j
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
|
||||
Return index
|
||||
End Function
|
||||
End Class
|
||||
|
|
|
|||
Loading…
Reference in New Issue