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

Primarily done!

This commit is contained in:
Anton 2021-05-06 09:07:17 +02:00
parent e8f4d65a8d
commit 7f2f3592fe
2 changed files with 8 additions and 25 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.

33
Wardrobe/SolidWorks/Multiple_Drawing.vb
View File

@ -145,7 +145,8 @@ Public Class Multiple_Drawing
status = False
counter = 0
While status = False
gratingName = modelsDT.Rows(Calculate_Fill_Grid.numOfHorizontal - 1 + counter * Calculate_Fill_Grid.numOfHorizontal)("partName")
gratingName = "SIMPLIFIED_FLOOR_GRATING_" & Calculate_Fill_Grid.numOfHorizontal + counter * Calculate_Fill_Grid.numOfHorizontal
iDrawing.ClearSelection2(True)
plane2Name = "Point1@SL2@" & CompName & "@" & myView.GetName2 & "/" & gratingName & "-1@" & CompName.Split("-")(0)
@ -171,7 +172,7 @@ Public Class Multiple_Drawing
status = False
counter = 0
While status = False
gratingName = modelsDT.Rows(Calculate_Fill_Grid.numOfHorizontal * Calculate_Fill_Grid.numOfVertical - 1 - counter)("partName")
gratingName = "SIMPLIFIED_FLOOR_GRATING_" & Calculate_Fill_Grid.numOfHorizontal * Calculate_Fill_Grid.numOfVertical - counter
iDrawing.ClearSelection2(True)
plane2Name = "Point1@SW2@" & CompName & "@" & myView.GetName2 & "/" & gratingName & "-1@" & CompName.Split("-")(0)
@ -196,7 +197,7 @@ Public Class Multiple_Drawing
status = False
counter = 0
While status = False
gratingName = modelsDT.Rows(Calculate_Fill_Grid.numOfHorizontal * Calculate_Fill_Grid.numOfVertical - 1 - counter * Calculate_Fill_Grid.numOfHorizontal)("partName")
gratingName = "SIMPLIFIED_FLOOR_GRATING_" & Calculate_Fill_Grid.numOfHorizontal * Calculate_Fill_Grid.numOfVertical - counter * Calculate_Fill_Grid.numOfHorizontal
iDrawing.ClearSelection2(True)
plane2Name = "Point1@SL2@" & CompName & "@" & myView.GetName2 & "/" & gratingName & "-1@" & CompName.Split("-")(0)
@ -221,7 +222,7 @@ Public Class Multiple_Drawing
status = False
counter = 0
While status = False
gratingName = modelsDT.Rows(Calculate_Fill_Grid.numOfHorizontal * (Calculate_Fill_Grid.numOfVertical - 1) + counter)("partName")
gratingName = "SIMPLIFIED_FLOOR_GRATING_" & Calculate_Fill_Grid.numOfHorizontal * (Calculate_Fill_Grid.numOfVertical - 1) + 1 + counter
iDrawing.ClearSelection2(True)
plane2Name = "Point1@SW2@" & CompName & "@" & myView.GetName2 & "/" & gratingName & "-1@" & CompName.Split("-")(0)
@ -249,26 +250,7 @@ Public Class Multiple_Drawing
status = False
counter = 0
While status = False
gratingName = modelsDT.Rows(Calculate_Fill_Grid.numOfHorizontal * Calculate_Fill_Grid.numOfVertical - 1 - counter)("partName")
' Forstsätt här: Måste hantera namnen på grating med rätt ändelse
'Dim tempName As String = recessDT(i)("partName")
'Dim recessNameArray As String() = tempName.Split("_")
'Dim recessNameTemp As String = ""
'For j = 0 To recessNameArray.Length - 4
' recessNameTemp += recessNameArray(j) & "_"
'Next
'Try
' instanceCounter(recessNameTemp.Substring(0, recessNameTemp.Length - 1)) += 1
'Catch ex As Exception
' instanceCounter.Add(recessNameTemp.Substring(0, recessNameTemp.Length - 1), 1)
'End Try
'Dim recessName As String = recessNameTemp & instanceCounter(recessNameTemp.Substring(0, recessNameTemp.Length - 1))
gratingName = "SIMPLIFIED_FLOOR_GRATING_" & Calculate_Fill_Grid.numOfHorizontal * Calculate_Fill_Grid.numOfVertical - counter
iDrawing.ClearSelection2(True)
@ -288,7 +270,8 @@ Public Class Multiple_Drawing
status = False
counter = 0
While status = False
gratingName = modelsDT.Rows(Calculate_Fill_Grid.numOfHorizontal * Calculate_Fill_Grid.numOfVertical - 1 - counter * Calculate_Fill_Grid.numOfHorizontal)("partName")
gratingName = "SIMPLIFIED_FLOOR_GRATING_" & Calculate_Fill_Grid.numOfHorizontal * Calculate_Fill_Grid.numOfVertical - counter * Calculate_Fill_Grid.numOfHorizontal
iDrawing.ClearSelection2(True)
plane2Name = "Point1@SL2@" & CompName & "@" & myView.GetName2 & "/" & gratingName & "-1@" & CompName.Split("-")(0)