Put a Midpoint on an Edge Example (VBA)

This example shows how to put a midpoint on an edge.

'----------------------------------------------------

'

' Preconditions:

'          (1) Part document is open.

'          (2) Edge on which to place a midpoint is selected.

'

' Postconditions: A midpoint is placed on the selected edge.

'

'----------------------------------------------------

Option Explicit

Const swSelEDGES                    As Long = 1

Const swSelREFERENCECURVES          As Long = 26

Const swSelPOINTREFS                As Long = 41

Const swSelREFEDGES                 As Long = 51

Sub main()

    Dim swApp               As SldWorks.SldWorks

    Dim swModel             As SldWorks.ModelDoc

    Dim swPart              As SldWorks.PartDoc

    Dim swSelMgr            As SldWorks.SelectionMgr

    Dim nSelType            As Long

    Dim bRet                As Boolean

    Set swApp = CreateObject("SldWorks.Application")

    Set swModel = swApp.ActiveDoc

    Set swPart = swModel

    Set swSelMgr = swModel.SelectionManager

    nSelType = swSelMgr.GetSelectedObjectType(1)

    Debug.Print "SelType (before) = " + Str(nSelType)

    swModel.SelectMidPoint

    nSelType = swSelMgr.GetSelectedObjectType(1)

    Debug.Print "SelType (after ) = " + Str(nSelType)

End Sub

'----------------------------------------------------