Hide Table of Contents

Get Projected Point Example (VBA)

This example shows how to get the point where an input point is projected on to a face and surface in the specified direction.

 

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

'

' Preconditions: Model document is open and a face

'               on the model is selected.

'

' Postconditions: The point where the input point

'                is projected on to a face or surface

'                is returned.

'

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

Option Explicit

 

Sub main()

 

    Dim swApp As SldWorks.SldWorks

    Dim myModel As SldWorks.ModelDoc2

    Dim mathUtils As SldWorks.MathUtility

    Set swApp = Application.SldWorks

    Set myModel = swApp.ActiveDoc

    Set mathUtils = swApp.GetMathUtility()

 

' Interested in a particular face; preselect it as the face with which to work

    Dim mySelMgr As SldWorks.SelectionMgr

    Dim selObj As Object

    Dim faceToUse As SldWorks.Face2

    Dim surfaceToUse As SldWorks.Surface

    Dim selCount As Long

    Dim selType As Long

    Set mySelMgr = myModel.SelectionManager

    selCount = mySelMgr.GetSelectedObjectCount2(0)

    If (selCount > 0) Then

        selType = mySelMgr.GetSelectedObjectType3(1, 0)

        Set selObj = mySelMgr.GetSelectedObject6(1, 0)

        If (selType = SwConst.swSelFACES) Then

            Set faceToUse = selObj

        End If

    End If

' Do the ray intersection operation

    Dim basePoint(0 To 2) As Double, rayDir(0 To 2) As Double

    Dim vBasePoint As Variant, vVector As Variant

    Dim rayPoint As SldWorks.MathPoint, rayVector As SldWorks.MathVector

    Dim intersectPt As SldWorks.MathPoint

    Dim vPoint As Variant, vPoint2 As Variant

    Dim xPt As Double, yPt As Double, zPt As Double

' First try the face

    If Not faceToUse Is Nothing Then

        basePoint(0) = 0.04 '0.013

        basePoint(1) = 0.04 '0.056

        basePoint(2) = 1#

        vBasePoint = basePoint

        Set rayPoint = mathUtils.CreatePoint(vBasePoint)

        rayDir(0) = 0#

        rayDir(1) = 0#

        rayDir(2) = -1#

        vVector = rayDir

        Set rayVector = mathUtils.CreateVector(vVector)

        Set intersectPt = faceToUse.GetProjectedPointOn(rayPoint, rayVector)

        Debug.Print "-----------------------------------"

        Debug.Print "Ray point = " & Format(basePoint(0), "##0.0#####") & " , " & Format(basePoint(1), "##0.0#####") & " , " & Format(basePoint(2), "##0.0#####")

        Debug.Print "Ray direction = " & Format(rayDir(0), "##0.0#####") & " , " & Format(rayDir(1), "##0.0#####") & " , " & Format(rayDir(2), "##0.0#####")

        If Not intersectPt Is Nothing Then

            vPoint = intersectPt.ArrayData

            xPt = vPoint(0)

            yPt = vPoint(1)

            zPt = vPoint(2)

            Debug.Print "    Face hit point = " & Format(xPt, "##0.0#####") & " , " & Format(yPt, "##0.0#####") & " , " & Format(zPt, "##0.0#####")

        Else

            Debug.Print "    No face hit point."

        End If

' Now try the surface, gotten from the face.

        Set surfaceToUse = faceToUse.GetSurface()

        If Not surfaceToUse Is Nothing Then

            Set intersectPt = surfaceToUse.GetProjectedPointOn(rayPoint, rayVector)

            If Not intersectPt Is Nothing Then

                vPoint2 = intersectPt.ArrayData

                xPt = vPoint2(0)

                yPt = vPoint2(1)

                zPt = vPoint2(2)

                Debug.Print "    Surface hit point = " & Format(xPt, "##0.0#####") & " , " & Format(yPt, "##0.0#####") & " , " & Format(zPt, "##0.0#####")

            Else

                Debug.Print "    No surface hit point."

            End If

        End If

    End If

End Sub



Provide feedback on this topic

SOLIDWORKS welcomes your feedback concerning the presentation, accuracy, and thoroughness of the documentation. Use the form below to send your comments and suggestions about this topic directly to our documentation team. The documentation team cannot answer technical support questions. Click here for information about technical support.

* Required

 
*Email:  
Subject:   Feedback on Help Topics
Page:   Get Projected Point Example (VBA)
*Comment:  
*   I acknowledge I have read and I hereby accept the privacy policy under which my Personal Data will be used by Dassault Systèmes

Print Topic

Select the scope of content to print:



x

We have detected you are using a browser version older than Internet Explorer 7. For optimized display, we suggest upgrading your browser to Internet Explorer 7 or newer.

 Never show this message again
x

Web Help Content Version: API Help (English only) 2015 SP05

To disable Web help from within SOLIDWORKS and use local help instead, click Help > Use SOLIDWORKS Web Help.

To report problems encountered with the Web help interface and search, contact your local support representative. To provide feedback on individual help topics, use the “Feedback on this topic” link on the individual topic page.