From 0e2ede0625a976c47b09ea89d0d91e4e63f2d9ca Mon Sep 17 00:00:00 2001 From: Anton Date: Wed, 27 Jan 2021 14:11:49 +0100 Subject: [PATCH] Drawing is saved --- Wardrobe/Program.vb | 16 +++++++--------- 1 file changed, 7 insertions(+), 9 deletions(-) diff --git a/Wardrobe/Program.vb b/Wardrobe/Program.vb index a9d160b..0c6879c 100644 --- a/Wardrobe/Program.vb +++ b/Wardrobe/Program.vb @@ -9,7 +9,6 @@ Public Class Program Dim swApp As SldWorks.SldWorks swApp = CType(System.Runtime.InteropServices.Marshal.GetActiveObject("SldWorks.Application"), SldWorks.SldWorks) Dim Model As ModelDoc2 - Dim Part As PartDoc Dim RootPoint(2) As Double Dim Normal(2) As Double 'Dim TempBody As Body2 @@ -17,7 +16,6 @@ Public Class Program swApp.UserControl = True 'Create a new blank document Model = swApp.NewDocument("C:\ProgramData\SOLIDWORKS\SOLIDWORKS 2020\templates\part.prtdot", 0, 0, 0) - Part = Model Dim swSkMgr As SketchManager Dim longstatus As Integer @@ -72,14 +70,11 @@ Public Class Program swFeature = swFeatureMgr.FeatureExtrusion3(True, False, False, 0, 0, 0.001, 0, False, False, False, False, 0, 0, False, False, False, False, True, True, True, 0, 0, False) - Dim randInt As Integer - randInt = CInt(Math.Ceiling(Rnd() * 1000)) + 1 'For debug only - Dim iPart As PartDoc iPart = swApp.ActiveDoc Dim newName As String - newName = "C:\Users\Anton\Documents\Exjobb\Temp" & "\TESTPART" & randInt & ".SLDPRT" - longstatus = Part.SaveAs3(newName, 0, 0) + newName = "C:\Users\Anton\Documents\Exjobb\Temp" & "\TESTPART" & 1 & ".SLDPRT" + longstatus = iPart.SaveAs3(newName, 0, 0) End Sub @@ -104,9 +99,12 @@ Public Class Program swSheet.ReloadTemplate(True) Dim myView - myView = iDrawing.CreateDrawViewFromModelView3("C:\Users\Anton\Documents\Exjobb\Temp\TESTPART707.SLDPRT", "*Front", swSheetWidth / 2, swSheetHeight / 2, 0) - + myView = iDrawing.CreateDrawViewFromModelView3("C:\Users\Anton\Documents\Exjobb\Temp\TESTPART1.SLDPRT", "*Front", swSheetWidth / 2, swSheetHeight / 2, 0) + Dim longstatus As Integer + Dim newName As String + newName = "C:\Users\Anton\Documents\Exjobb\Temp" & "\TESTDRAWING" & 1 & ".SLDDRW" + longstatus = iDrawing.SaveAs3(newName, 0, 0)