Get Distance Between Entities Example (VB.NET)

This example shows how to get the minimum and maximum distances between face and edge entities.

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

' Preconditions:

'  Open <SolidWorks_install_dir>\samples\tutorial\multibody\multi_inter.sldprt.

'

' Postconditions:

'  1. Observe the Immediate Window.

'     The minimum distance between the two face entities is 0 mm.

'     The maximum distance between the face and edge entity is

'     96.6801751904066 mm.

'  2. Click Sketch4 in the FeatureManager design tree.

'     A sketch line is created to depict the maximum distance

'     between the face and edge entities.

'

'  NOTE:  Do not save the part as it is used in SolidWorks tutorials.

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

Imports SolidWorks.Interop.sldworks

Imports SolidWorks.Interop.swconst

Imports System

Imports System.Diagnostics

Partial Class SolidWorksMacro

    Dim swDoc As ModelDoc2

    Dim swSM As SelectionMgr

    Dim swFace As Face2

    Dim swEdge As Edge

    Dim swTop1 As Entity

    Dim swTop2 As Entity

    Dim bMin As Boolean

    Dim retval As Long

    Dim dist As Double

    Dim varParam As Object

    Dim varPos1 As Object

    Dim varPos2 As Object

    Dim caseType As Integer

    Dim boolstatus As Boolean

    Sub main()

        varParam = Nothing

        swDoc = swApp.ActiveDoc

        swSM = swDoc.SelectionManager

        For caseType = 1 To 2

            Select Case caseType

                Case 1

                    FaceFaceMinDistance()

                Case 2

                    FaceEdgeMaxDistance()

                Case Else

                    MsgBox("Enter proper case")

            End Select

        Next

        swTop1 = Nothing

        swTop2 = Nothing

        swFace = Nothing

        swEdge = Nothing

        swSM = Nothing

        swDoc = Nothing

        swApp = Nothing

    End Sub

    Sub SetParameterForEdge()

        Dim startPt As Object

        Dim startVertex As Object

        Dim endPt As Object

        Dim startPara As Object

        Dim endPara As Object

        swEdge = swSM.GetSelectedObject6(2, -1)

        startVertex = swEdge.GetStartVertex

        startPt = startVertex.GetPoint

        endPt = swEdge.GetEndVertex.GetPoint

        startPara = swEdge.GetParameter(startPt(0), startPt(1), startPt(2))

        endPara = swEdge.GetParameter(endPt(0), endPt(1), endPt(2))

        Dim paramDl(1) As Double

        paramDl(0) = startPara(0)

        paramDl(1) = endPara(0)

        varParam = paramDl

    End Sub

    Sub SetParameterForFace()

        swFace = swSM.GetSelectedObject6(2, -1)

        Dim swSurface As Surface

        swSurface = swFace.GetSurface

        Dim varBox As Object

        varBox = swFace.GetBox

        Dim varLowParam As Object, varHighParam As Object

        varLowParam = swSurface.ReverseEvaluate(varBox(0), varBox(1), varBox(2))

        varHighParam = swSurface.ReverseEvaluate(varBox(3), varBox(4), varBox(5))

        Dim paramD2(3) As Double

        paramD2(0) = varLowParam(0)

        paramD2(1) = varLowParam(1)

        paramD2(2) = varHighParam(0)

        paramD2(3) = varHighParam(1)

        varParam = paramD2

    End Sub

    Sub CreateLine()

        Dim swSkM As SketchManager

        Dim skSegment As SketchSegment

        swSkM = swDoc.SketchManager

        swDoc.Extension.SelectByID2("Front", "PLANE", 0, 0, 0, False, 0, Nothing, 0)

        swSkM.InsertSketch(True)

        skSegment = swSkM.CreateLine(varPos1(0), varPos1(1), varPos1(2), varPos2(0), varPos2(1), varPos2(2))

        swDoc.ClearSelection2(True)

        swSkM.InsertSketch(True)

    End Sub

    Sub FaceFaceMinDistance()

        swDoc.ClearSelection()

        boolstatus = swDoc.Extension.SelectByID2("", "FACE", -0.07448317477082, -0.04390354307787, 0.08443247713632, False, 0, Nothing, 0)

        boolstatus = swDoc.Extension.SelectByID2("", "FACE", -0.05640517674067, -0.005486808589922, 0.06500000000005, True, 0, Nothing, 0)

        SetParameterForFace()

        If (swSM.GetSelectedObjectCount = 2) Then

            swTop1 = swSM.GetSelectedObject6(1, -1)

            swTop2 = swSM.GetSelectedObject6(2, -1)

            bMin = True

            retval = swTop1.GetDistance(swTop2, bMin, varParam, varPos1, varPos2, dist)

            Debug.Print("GetDistance return value (0 = success) : " & retval)

            Debug.Print("Face1 coordinate: " & varPos1(0) & "," & varPos1(1) & "," & varPos1(2))

            Debug.Print("Face2 coordinate: " & varPos2(0) & "," & varPos2(1) & "," & varPos2(2))

            Debug.Print("Minimum Distance between two faces = " & dist * 1000 & " mm")

            Debug.Print("")

            CreateLine()

        End If

    End Sub

    Sub FaceEdgeMaxDistance()

        swDoc.ClearSelection()

        boolstatus = swDoc.Extension.SelectByID2("", "FACE", -0.0712080569869, -0.04996892464504, 0.08163440548356, False, 0, Nothing, 0)

        boolstatus = swDoc.Extension.SelectByID2("", "EDGE", -0.04898677039967, 0.0004196506486664, 0.06476403488529, True, 0, Nothing, 0)

        SetParameterForEdge()

        If (swSM.GetSelectedObjectCount = 2) Then

            swTop1 = swSM.GetSelectedObject6(1, -1)

            swTop2 = swSM.GetSelectedObject6(2, -1)

            bMin = False

            retval = swTop1.GetDistance(swTop2, bMin, varParam, varPos1, varPos2, dist)

            Debug.Print("GetDistance return value (0 = success) : " & retval)

            Debug.Print("Face coordinate: " & varPos1(0) & "," & varPos1(1) & "," & varPos1(2))

            Debug.Print("Edge coordinate: " & varPos2(0) & "," & varPos2(1) & "," & varPos2(2))

            Debug.Print("Maximum Distance between face and edge = " & dist * 1000 & " mm")

            Debug.Print("")

            CreateLine()

        End If

    End Sub

   

    Public swApp As SldWorks

End Class