116 lines
5.3 KiB
VB.net
116 lines
5.3 KiB
VB.net
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
|
|
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 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) = ""
|
|
|
|
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)
|
|
swSheet.SetScale(1, 10, False, False)
|
|
|
|
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 OutLine = myView.GetOutline
|
|
|
|
For i = 0 To Individual_Frame_3D.cuttingList.ElementAt(0).Value.Count
|
|
Dim frameComponentName As String
|
|
If i = Individual_Frame_3D.cuttingList.ElementAt(0).Value.Count Then
|
|
frameComponentName = "frame_l_end_piece" & i + 1
|
|
Else
|
|
frameComponentName = frameComponents(i)("partName")
|
|
End If
|
|
|
|
Dim plane1Name As String = "OffPlane1@" & CompName & "@" & myView.GetName2 & "/" & frameComponentName & "-1@" & CompName.Split("-")(0)
|
|
Dim plane2Name As String = "OffPlane2@" & CompName & "@" & myView.GetName2 & "/" & frameComponentName & "-1@" & CompName.Split("-")(0)
|
|
|
|
Dim xOffset As Integer = 0
|
|
For j = 0 To i
|
|
If j = Individual_Frame_3D.cuttingList.ElementAt(0).Value.Count Then
|
|
xOffset += (200 - xOffset) / 2
|
|
ElseIf j = i Then
|
|
xOffset += (Individual_Frame_3D.sideFrameLengths("Frame " & Individual_Frame_3D.cuttingList.ElementAt(0).Value(j)) / 10) / 2
|
|
Else
|
|
xOffset += Individual_Frame_3D.sideFrameLengths("Frame " & Individual_Frame_3D.cuttingList.ElementAt(0).Value(j)) / 10
|
|
End If
|
|
Next
|
|
xOffset = xOffset / 1000
|
|
Dim X_Mid = OutLine(2) - 0.005 - xOffset
|
|
|
|
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(X_Mid, OutLine(3) + 0.005, 0)
|
|
|
|
iDrawing.ClearSelection2(True)
|
|
measurement.SetUnits2(False, 0, 1, 0, True, 12)
|
|
measurement.CenterText = True
|
|
measurement.SetPrecision3(0, 0, 0, 0)
|
|
Next
|
|
|
|
|
|
End Sub
|
|
|
|
End Class
|