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

Top view drawing and filepath fix

This commit is contained in:
Mans 2021-02-03 09:57:02 +01:00
parent e969fef6f0
commit 648f8b4ab9
2 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Wardrobe/GUI.vb
View File

@ -1,8 +1,10 @@
Imports XCCLibrary
Public Class GUI
Dim filesFolder As String = "C:\Users\Anton\Documents\Exjobb" ' Hämta från settings
Dim HLCtFolder As String = "C:\Users\Anton\Documents\Exjobb\X2021" ' Hämta från settings
'Public Shared filepath As String = "C:\Users\Anton\Documents\Exjobb"
Public Shared filepath As String = "C:\Users\xperd\OneDrive\Dokument\Exjobb"
Dim filesFolder As String = filepath ' Hämta från settings
Dim HLCtFolder As String = filepath & "\X2021" ' Hämta från settings
Dim containerPanel As Panel

9
Wardrobe/Program.vb
View File

@ -103,7 +103,7 @@ Public Class Program
Dim iPart As PartDoc
iPart = swApp.ActiveDoc
Dim newName As String
newName = "C:\Users\Anton\Documents\Exjobb\Temp" & "\TESTPART" & 1 & ".SLDPRT"
newName = GUI.filepath & "\Temp" & "\TESTPART" & 1 & ".SLDPRT"
longstatus = iPart.SaveAs3(newName, 0, 0)
Model.ClearSelection2(True)
@ -132,7 +132,7 @@ Public Class Program
swSheet.ReloadTemplate(True)
Dim myView As View
myView = iDrawing.CreateDrawViewFromModelView3("C:\Users\Anton\Documents\Exjobb\Temp\TESTPART1.SLDPRT", "*Front", swSheetWidth / 2, swSheetHeight / 2, 0)
myView = iDrawing.CreateDrawViewFromModelView3(GUI.filepath & "\Temp\TESTPART1.SLDPRT", "*Front", swSheetWidth / 2, swSheetHeight / 2, 0)
Dim swExtensions As SldWorks.ModelDocExtension
swExtensions = iDrawing.Extension
@ -166,9 +166,12 @@ Public Class Program
dimension.SetPrecision3(0, 0, 0, 0)
Next
Dim myView2 As View
myView2 = iDrawing.CreateDrawViewFromModelView3(GUI.filepath & "\Temp\TESTPART1.SLDPRT", "*Top", swSheetWidth / 2, OutLine(3) + 0.03, 0)
Dim longstatus As Integer
Dim newName As String
newName = "C:\Users\Anton\Documents\Exjobb\Temp" & "\TESTDRAWING" & 1 & ".SLDDRW"
newName = GUI.filepath & "\Temp" & "\TESTDRAWING" & 1 & ".SLDDRW"
longstatus = iDrawing.SaveAs3(newName, 0, 0)
End Sub