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

Drawings for frames (first step with code for measurements)

This commit is contained in:
Anton 2021-03-25 15:57:11 +01:00
parent bd13643b2e
commit 1fc3cd7cab
6 changed files with 71 additions and 17 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.

BIN
HLCt/Parts/~$START.SLDPRT
View File

Binary file not shown.

BIN
HLCt/frame_l_straight.SLDPRT
View File

Binary file not shown.

4
Wardrobe/SolidWorks/Individual_Frame_3D.vb
View File

@ -287,7 +287,7 @@ Public Class Individual_Frame_3D
Return cuttingList
End Function
Public Shared Sub Generate_End_Frame_Piece()
Public Shared Sub Generate_End_Frame_Pieces()
Dim swApp As SldWorks.SldWorks
swApp = CType(System.Runtime.InteropServices.Marshal.GetActiveObject("SldWorks.Application"), SldWorks.SldWorks)
Dim boolstatus As Boolean
@ -335,6 +335,8 @@ Public Class Individual_Frame_3D
Dim swErrors As Integer
Dim swWarnings As Integer
boolstatus = Part.Save3(1, swErrors, swWarnings)
swApp.CloseDoc(Individual.filepath & "\Temp\frame_l_end_piece" & j + 1 & ".SLDPRT")
Next
End Sub
End Class

81
Wardrobe/SolidWorks/Individual_Frame_Drawing.vb
View File

@ -1,38 +1,89 @@
Imports SldWorks
Public Class Individual_Frame_Drawing
Private Shared frameComponents
Public Shared Sub Create_Assemblies()
Dim swApp As SldWorks.SldWorks
swApp = CType(System.Runtime.InteropServices.Marshal.GetActiveObject("SldWorks.Application"), SldWorks.SldWorks)
Dim model As ModelDoc2
Dim assembly As IAssemblyDoc
Dim longstatus As Integer
Dim frameComponents = Model_3D.partDT.Select("partType = 'frame_l_straight'")
frameComponents = Model_3D.partDT.Select("partType = 'frame_l_straight'")
For i = 0 To Individual_Frame_3D.cuttingList.Count - 1
model = swApp.NewDocument("C:\ProgramData\SolidWorks\SOLIDWORKS 2020\templates\Assembly.asmdot", 0, 0, 0)
assembly = model
Dim assemComp As Component2
Dim compNames(Individual_Frame_3D.cuttingList.ElementAt(i).Value.Count - 1) As String
Dim coordNames(Individual_Frame_3D.cuttingList.ElementAt(i).Value.Count - 1) As String
For j = 0 To compNames.Count - 1
Dim frameID = Individual_Frame_3D.cuttingList.ElementAt(i).Value(j) - 1
'assemComp = assembly.AddComponent5(Settings.filesFolder & "\Files\CADStart\" & frameComponents(frameID)("partName") & ".SLDPRT",
'0, Nothing, False, Nothing, 0, 0, 0)
compNames(j) = Settings.filesFolder & "\Files\CADStart\" & frameComponents(frameID)("partName") & ".SLDPRT"
coordNames()
Next
compNames(compNames.Length - 1) = Individual.filepath & "\Temp\frame_l_end_piece" & i + 1 & ".SLDPRT"
Dim compNames(Individual_Frame_3D.cuttingList.ElementAt(i).Value.Count) As String
Dim coordNames(Individual_Frame_3D.cuttingList.ElementAt(i).Value.Count) As String
Dim transMatrix As Object = Nothing
For j = 0 To compNames.Count - 2
Dim frameID = Individual_Frame_3D.cuttingList.ElementAt(i).Value(j) - 1
compNames(j) = Settings.filesFolder & "\Files\CADStart\" & frameComponents(frameID)("partName") & ".SLDPRT"
coordNames(j) = ""
Next
compNames(compNames.Count - 1) = Individual.filepath & "\Temp\frame_l_end_piece" & i + 1 & ".SLDPRT"
coordNames(coordNames.Count - 1) = ""
assemComp = assembly.AddComponents3((compNames), (transMatrix), "")
Dim assemComps As Object
assemComps = assembly.AddComponents3((compNames), (transMatrix), (coordNames))
longstatus = model.SaveAs3(Individual.filepath & "\Temp\frame_assembly" & i + 1 & ".SLDASM", 0, 0)
swApp.CloseDoc(Individual.filepath & "\Temp\frame_assembly" & i + 1 & ".SLDASM")
Next
End Sub
Public Shared Sub Generate_Drawings()
Dim swApp As SldWorks.SldWorks
swApp = CType(System.Runtime.InteropServices.Marshal.GetActiveObject("SldWorks.Application"), SldWorks.SldWorks)
Dim iAssembly As IAssemblyDoc
Dim swErrors, swWarnings As Integer
iAssembly = swApp.OpenDoc6(Individual.filepath & "\Temp\frame_assembly" & 1 & ".SLDASM", 2, 1, "", swErrors, swWarnings) 'FIXA
Dim iDrawing As DrawingDoc
Dim swSheetWidth As Double
swSheetWidth = 0.42
Dim swSheetHeight As Double
swSheetHeight = 0.297
iDrawing = swApp.NewDocument("C:\ProgramData\SolidWorks\SOLIDWORKS 2020\templates\Drawing.drwdot", 12, swSheetWidth, swSheetHeight)
Dim swSheet As Sheet
swSheet = iDrawing.GetCurrentSheet()
swSheet.SetProperties2(12, 12, 1, 1, False, swSheetWidth, swSheetHeight, True)
swSheet.SetTemplateName(Individual.filepath & "\X2021\Weland ritningsmallar\A3 Part.slddrt")
swSheet.ReloadTemplate(True)
Dim layMgr As LayerMgr
layMgr = iDrawing.GetLayerManager()
Dim status As Boolean
status = layMgr.SetCurrentLayer("Svenska")
Dim myView As View
myView = iDrawing.CreateDrawViewFromModelView3(Individual.filepath & "\Temp\frame_assembly" & 1 & ".SLDASM", "*Front", swSheetWidth / 2, swSheetHeight / 2, 0)
myView.UseSheetScale() = True
myView.SetDisplayTangentEdges2(2)
Dim swExtensions As SldWorks.ModelDocExtension
swExtensions = iDrawing.Extension
Dim RootComp = myView.RootDrawingComponent
Dim CompName = RootComp.Name
Dim plane1Name As String = "OffPlane1@" & CompName & "@" & myView.GetName2 & "/" & frameComponents(0)("partName") & "-1@" & CompName.Split("-")(0)
Dim plane2Name As String = "OffPlane2@" & CompName & "@" & myView.GetName2 & "/" & frameComponents(0)("partName") & "-1@" & CompName.Split("-")(0)
iDrawing.ClearSelection2(True)
Dim measurement As IDisplayDimension
swExtensions.SelectByID2(plane1Name, "PLANE", 0, 0, 0, True, 0, Nothing, 0)
swExtensions.SelectByID2(plane2Name, "PLANE", 0, 0, 0, True, 0, Nothing, 0)
measurement = iDrawing.AddHorizontalDimension2(0.005, 0, 0)
iDrawing.ClearSelection2(True)
measurement.SetUnits2(False, 0, 1, 0, True, 12)
measurement.CenterText = True
measurement.SetPrecision3(0, 0, 0, 0)
End Sub
End Class

3
Wardrobe/SolidWorks/Model_3D.vb
View File

@ -46,8 +46,9 @@ Public Class Model_3D
groupClass.InstantiateGroup(designName, grNr, "START")
Recess_Indent()
Individual_Frame_3D.Generate_End_Frame_Piece()
Individual_Frame_3D.Generate_End_Frame_Pieces()
Individual_Frame_Drawing.Create_Assemblies()
Individual_Frame_Drawing.Generate_Drawings()
End Sub