Create Surface Knit Feature Example (VB.NET)

This example shows how to create a Surface-Knit feature.

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

' Preconditions: Part document containing two surfaces is open.

'

' Postconditions:

' A Surface-Knit feature is created using the two selected surfaces.

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

Imports SolidWorks.Interop.sldworks

Imports SolidWorks.Interop.swconst

Imports System

Imports System.Diagnostics

 

Partial Class SolidWorksMacro

 

    Public Sub main()

 

        Dim swModel As ModelDoc2

        Dim swModelDocExt As ModelDocExtension

        Dim swFeatureMgr As FeatureManager

        Dim swFeature As Feature

        Dim swSurfaceKnitFeature As SurfaceKnitFeatureData

        Dim boolstatus As Boolean

        Dim longstatus As Long

 

        ' Specify the name of your part document

        swApp.ActivateDoc2("SurfaceKnitPartDocument.SLDPRT", False, longstatus)

        swModel = swApp.ActiveDoc

        swModelDocExt = swModel.Extension

        swFeatureMgr = swModel.FeatureManager

 

        ' Specify your selections

        boolstatus = swModelDocExt.SelectByID2("Verrundung2", "SURFACEBODY", -0.01350648199224, -0.001914137629626, 0.01055295249466, False, 1, Nothing, 0)

        boolstatus = swModelDocExt.SelectByID2("Verrundung1", "SURFACEBODY", -0.0125503446005, -0.002125678282823, -0.007630408959756, True, 1, Nothing, 0)

 

        ' Create and get the Surface-Knit feature

        swFeature = swFeatureMgr.InsertSewRefSurface(True, False, False, 0.00003001639406912, 0.0001)

        swSurfaceKnitFeature = swFeature.GetDefinition

 

        ' List some of the Knit-Surface feature's properties

        ' in the Immediate Window

        Debug.Print("Knit-surface feature: ")

        Debug.Print("  Knit tolerance: " & swSurfaceKnitFeature.KnitTolerance * 1000 & " mm")

        Debug.Print("  Maximum value for gap range: " & swSurfaceKnitFeature.MaxValueForGapRange * 1000 & " mm")

        Debug.Print("  Minimum value for gap range: " & swSurfaceKnitFeature.MinValueForGapRange * 1000 & " mm")

        Debug.Print("  Use gap filters? " & swSurfaceKnitFeature.UseGapFilters)

        Debug.Print("  Use merge entities? " & swSurfaceKnitFeature.UseMergeEntities)

        Debug.Print("  Try to form solid? " & swSurfaceKnitFeature.UseTryToFormSolid)

 

    End Sub

 

    ''' <summary>

    ''' The SldWorks swApp variable is pre-assigned for you.

    ''' </summary>

    Public swApp As SldWorks

End Class