Insert and Resize Sketch Slot (VB.NET)
This example shows how to insert a sketch slot and resize it.
'--------------------------------------------------------
'
' Preconditions: Part
document is open
'
' Postconditions: Sketch slot is inserted in a new
' sketch,
then re-sized
'
'-------------------------------------------------------
Imports SolidWorks.Interop.sldworks
Imports SolidWorks.Interop.swconst
Imports System
Imports System.Diagnostics
Partial Class SolidWorksMacro
Dim
swModel As ModelDoc2
Dim
swExt As ModelDocExtension
Dim
swSelMgr As SelectionMgr
Dim
boolstatus As Boolean
Dim
swPart As PartDoc
Dim
skManager As SketchManager
Public
Sub main()
swModel
= swApp.ActiveDoc
swExt
= swModel.Extension
swSelMgr
= swModel.SelectionManager
skManager
= swModel.SketchManager
swPart
= swModel
boolstatus
= swExt.SelectByID2("Front
Plane", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
skManager.InsertSketch(True)
Dim
swSketchSlot As SketchSlot
swSketchSlot
= skManager.CreateSketchSlot(swSketchSlotCreationType_e.swSketchSlotCreationType_line,
swSketchSlotLengthType_e.swSketchSlotLengthType_CenterCenter, 0.05, -0.05,
0, 0, 0.05, 0, 0, 0, 0, 0, 1, False)
Dim
lengthType As swSketchSlotLengthType_e
lengthType
= swSketchSlot.LengthType
Debug.Print("Length:
" & swSketchSlot.Length)
Debug.Print("Length
Type: " & lengthType.ToString())
Debug.Print("Width:
" & swSketchSlot.Width)
Stop
'
Edit the original slot
swSketchSlot.Width
= swSketchSlot.Width * 2.0#
skManager.InsertSketch(True)
End
Sub
'''
<summary>
'''
The SldWorks swApp variable is pre-assigned for you.
'''
</summary>
Public
swApp As SldWorks
End Class