Divide Surface into 3D Sketches Example (VBA)

This example:

• Shows how to divide the selected face into 3D sketches.

• Uses IModelDoc2::SketchConvertIsoCurves to extract ISO-parametric (UV) curves from a face and creates a set of evenly spaced sections in the U and V directions.

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

'

' Preconditions:

'       (1) Part or assembly is open.

'       (2) Assembly is fully resolved.

'       (3) Face is selected.

'

' Postconditions:

'       (1) 3D sketches are generated.

'       (2) 3D sketches evenly divide the face in

'           the UV directions.

'

' NOTE: ModelDoc2::SketchConvertIsoCurves fails for V direction when early bound.

'

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

Option Explicit

Sub main()

    Const nNum_U                    As Long = 3

    Const nNum_V                    As Long = 4

    Dim swApp                       As SldWorks.SldWorks

    Dim swModel                     As Object 'SldWorks.ModelDoc2

    Dim i                           As Long

    Dim bRet                        As Boolean

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    Debug.Print "File = " & swModel.GetPathName

    Debug.Print "  U percent ratios:"

    For i = 0 To nNum_U

        ' Start from 0%, finish at 100%

        Debug.Print "    " & i * 100# / nNum_U & " %"

        swModel.SketchConvertIsoCurves i * 100# / nNum_U, False, True, True

    Next i

    Debug.Print "  V percent ratios:"

    For i = 0 To nNum_V

        ' Start from 0%, finish at 100%

        Debug.Print "    " & i * 100# / nNum_V & " %"

        swModel.SketchConvertIsoCurves i * 100# / nNum_V, True, True, True

    Next i

End Sub

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