Translate Sketch Example (VB.NET)

'----------------------------------------------------------------------------
' Preconditions: Ensure that the specified template exists.
'
' Postconditions:
' 1. A new sketch is created.
' 2. A parabola is sketched.
' 3. Press F5 to move the sketch.
'----------------------------------------------------------------------------
Imports SolidWorks.Interop.sldworks
Imports SolidWorks.Interop.swconst
Imports System.Runtime.InteropServices
Imports System

Partial Class SolidWorksMacro

    Sub main()

        Dim swModel As ModelDoc2
        swModel = swApp.NewDocument("C:\ProgramData\SolidWorks\SolidWorks 2012\templates\Part.prtdot", 0, 0, 0)

        If swModel Is Nothing Then
            swApp.SendMsgToUser2("A part document must be active.", swMessageBoxIcon_e.swMbWarning, swMessageBoxBtn_e.swMbOk)
            Exit Sub
        End If

        Dim modelType As Integer
        modelType = swModel.GetType

        If modelType <> swDocumentTypes_e.swDocPART Then
            swApp.SendMsgToUser2("A part document must be active.", swMessageBoxIcon_e.swMbWarning, swMessageBoxBtn_e.swMbOk)
            Exit Sub
        End If

        'Select a plane on which to sketch
        If SelectPlane(swModel) = False Then
            MsgBox("Could not select plane.")
            Exit Sub
        End If

        'Get point data
        Dim pFocal As SketchPoint
        Dim pApex As SketchPoint
        Dim pStart As SketchPoint
        Dim pEnd As SketchPoint
        Dim swSkMgr As SketchManager
        swSkMgr = swModel.SketchManager

        Dim swSelMgr As SelectionMgr
        swSelMgr = swModel.SelectionManager

        Dim swSketch As Sketch
        swSkMgr.InsertSketch(True)
        swSketch = swSkMgr.ActiveSketch

        ' Focal point
        pFocal = swSkMgr.CreatePoint(0, -0.025930732990048, 0)
        ' Apex point
        pApex = swSkMgr.CreatePoint(0.0110754938634727, -0.0485199777778575, 0)
        ' Start point
        pStart = swSkMgr.CreatePoint(0.057136404168939, 0.0869770346454566, 0)
        ' End point
        pEnd = swSkMgr.CreatePoint(-0.120690397734139, -0.00465528735997846, 0)

        Dim vPoint As Object

        ' Make sure a sketch is active
        If swSketch Is Nothing Then
            MsgBox("Please sketch a focal point, apex point, start point, and end point.")
            Exit Sub
        End If

        vPoint = swSketch.GetSketchPoints2

        Dim SkParabola As SketchParabola
        SkParabola = swModel.SketchManager.CreateParabola(pFocal.X, pFocal.Y, 0, pApex.X, pApex.Y, 0, pStart.X, pStart.Y, 0, pEnd.X, pEnd.Y, 0)

        swModel.ViewZoomtofit2()
        swSkMgr.InsertSketch(True)

        Stop

        swModel.SketchModifyTranslate(pApex.X, pApex.Y, 0.06, -0.01)

    End Sub

    Public Function SelectPlane(ByVal Plane As ModelDoc2) As Boolean

        Dim featureTemp As Feature
        featureTemp = Plane.FirstFeature

        While Not featureTemp Is Nothing
            Dim sFeatureName As String
            sFeatureName = featureTemp.GetTypeName2


            If sFeatureName = "RefPlane" Then
                featureTemp.Select2(True, 0)
                SelectPlane = True
                Exit Function
            End If


            featureTemp = featureTemp.GetNextFeature

        End While

    End Function


    Public swApp As SldWorks


End Class