Hide Table of Contents

Get UV Parameters for XYZ Location Example (VB.NET)

This example shows how to use IFace2 and ICurve interfaces to get the UV parameters from the XYZ location.

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

' Preconditions:

' 1. Open <SolidWorks_install_dir>\samples\tutorial\cosmosxpress\aw_hook.sldprt.

' 2. Ensure that Tools > Options > FeatureManager > Solid Bodies

'    dropdown selection is "Show".

' 3. Expand the Solid Bodies folder and select Split Line1.

'

' Postconditions: Observe the output in the Immediate Window.

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

 

Imports SolidWorks.Interop.sldworks

Imports SolidWorks.Interop.swconst

Imports System

Imports System.Diagnostics

Partial Class SolidWorksMacro

    Dim swModel As ModelDoc2

    Dim swSelMgr As SelectionMgr

    Dim swFace As Face2

    Dim vFaceSelPt As Object

    Dim boolstatus As Boolean

    Dim longstatus As Long, longwarnings As Long

    Sub main()

        swModel = swApp.ActiveDoc

        swSelMgr = swModel.SelectionManager

        Dim pntData(2) As Double

        Dim swBody As Body2, procBody As Body2

        swBody = swSelMgr.GetSelectedObject6(1, -1)

        procBody = swBody.GetProcessedBody2(0.5, 0.5)

        'MIK bypass surface split

        swFace = procBody.GetFirstFace

        'Set swFace = swBody.GetFirstFace

        While Not swFace Is Nothing

            Dim uvBnds As Object

            uvBnds = swFace.GetUVBounds()

            Dim UminFace As Double, UmaxFace As Double, VminFace As Double, VmaxFace As Double

            UminFace = uvBnds(0) : UmaxFace = uvBnds(1) : VminFace = uvBnds(2) : VmaxFace = uvBnds(3)

            Dim swSurf As Surface

            swSurf = swFace.GetSurface

            uvBnds = swSurf.Parameterization

            Dim UminSurf As Double, UmaxSurf As Double, VminSurf As Double, VmaxSurf As Double

            UminSurf = uvBnds(0) : UmaxSurf = uvBnds(1) : VminSurf = uvBnds(2) : VmaxSurf = uvBnds(3)

            Dim vEdges As Object

            vEdges = swFace.GetEdges

            Dim i As Integer

            For i = 0 To UBound(vEdges)

                Dim swEdge As Edge

                swEdge = vEdges(i)

                Dim swCurve As Curve

                swCurve = swEdge.GetCurve()

                Dim vCurveParams As Object

                vCurveParams = swEdge.GetCurveParams2()

                Dim startParam As Double, endParam As Double, incParam As Double, curParam As Double

                startParam = vCurveParams(6)

                endParam = vCurveParams(7)

                incParam = (endParam - startParam) / 10.0#

                curParam = startParam

                While curParam < endParam

                    Dim vEdgePnt As Object

                    vEdgePnt = swEdge.Evaluate(curParam)

                    Dim vUVSurfParams As Object

                    Dim UEdge As Double, VEdge As Double

                    ' Get the UV parameters for the point using IFace2::ReverseEvaluate

                    vUVSurfParams = swFace.ReverseEvaluate(vEdgePnt(0), vEdgePnt(1), vEdgePnt(2))

                    If Not IsNothing(vUVSurfParams) Then

                        UEdge = vUVSurfParams(0) : VEdge = vUVSurfParams(1)

                        Debug.Print("Edge point: " & vbCrLf & "  x: " & vEdgePnt(0) & vbCrLf & "  y: " & vEdgePnt(1) & vbCrLf & "  z: " & vEdgePnt(2))

                        Debug.Print("U parameter returned from IFace2::ReverseEvaluate is " & UEdge)

                        If UEdge > UmaxFace Or UEdge < UminFace Then

                            Debug.Print("U param error face")

                            'Stop

                        End If

                        Debug.Print("V parameter returned from IFace2::ReverseEvalute is " & VEdge)

                        If VEdge > VmaxFace Or VEdge < VminFace Then

                            Debug.Print("V param error face")

                            'Stop

                        End If

                    Else

                        Debug.Print("Face reverse evaluate fails - empty data")

                    End If

                    ' Get the UV parameters for the point using ICurve::ReverseEvaluate

                    vUVSurfParams = swSurf.ReverseEvaluate(vEdgePnt(0), vEdgePnt(1), vEdgePnt(2))

                    If Not IsNothing(vUVSurfParams) Then

                        UEdge = vUVSurfParams(0) : VEdge = vUVSurfParams(1)

                        Debug.Print("U parameter returned from ICurve::ReverseEvaluate is " & UEdge)

                        If UEdge > UmaxFace Or UEdge < UminFace Then

                            Debug.Print("U param error surface")

                            'Stop

                        End If

                        Debug.Print("V parameter returned from ICurve::ReverseEvaluate is " & VEdge & vbCrLf)

                        If VEdge > VmaxFace Or VEdge < VminFace Then

                            Debug.Print("V param error surface")

                            'Stop

                        End If

                    End If

                    curParam = curParam + incParam

                End While

            Next

            swFace = swFace.GetNextFace

        End While

        Debug.Print("complete")

    End Sub

    Public swApp As SldWorks

End Class



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 UV Parameters for XYZ Location Example (VB.NET)
*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) 2012 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.