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

Drawing is saved

This commit is contained in:
Anton 2021-01-27 14:11:49 +01:00
parent f27db3229c
commit 0e2ede0625
1 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
Wardrobe/Program.vb
View File

@ -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)