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

Add SW sketch and point

This commit is contained in:
Anton 2021-01-25 15:03:41 +01:00
parent 5c201a5b73
commit e139f77cf3
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
Wardrobe/Program.vb
View File

@ -18,6 +18,19 @@ Public Class Program
'Create a new blank document 'Create a new blank document
Model = swApp.NewDocument("C:\ProgramData\SOLIDWORKS\SOLIDWORKS 2020\templates\part.prtdot", 0, 0, 0) Model = swApp.NewDocument("C:\ProgramData\SOLIDWORKS\SOLIDWORKS 2020\templates\part.prtdot", 0, 0, 0)
Part = Model 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 Sub
End Class End Class