37 lines
1.2 KiB
VB.net
37 lines
1.2 KiB
VB.net
Imports XCCLibrary
|
|
'Imports SolidWorks.Interop.sldworks
|
|
'Imports SolidWorks.Interop.swconst
|
|
Imports System.Runtime.InteropServices
|
|
Imports System
|
|
Imports SldWorks
|
|
Public Class Program
|
|
Public Shared Sub Export_SW()
|
|
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
|
|
'Dim isGood As Boolean
|
|
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
|
|
Dim boolstatus As Boolean
|
|
|
|
swSkMgr = Model.SketchManager
|
|
swSkMgr.InsertSketch(True)
|
|
boolstatus = Model.Extension.SelectByID2("Front Plane", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
|
|
Model.ClearSelection2(True)
|
|
|
|
Dim skPoint As SketchPoint
|
|
skPoint = swSkMgr.CreatePoint(1, 0, 0)
|
|
swSkMgr.InsertSketch(True)
|
|
End Sub
|
|
|
|
End Class
|