GetParamOnFace Method

Description

Determines whether specified parameter lies within the trimmed region defined by the boundaries on the surface.

Syntax

Visual Basic
Public Sub GetParamOnFace( _ ByVal NumParams As Long, _ ByRef Params() As Double, _ ByRef OnFace() As Boolean _ )

Parameters

NumParams: Specifies the number of points to be evaluated.
Params: Returns the parametric point.
OnFace: Returns True if the input parametric point is unambiguously inside the trimmed region.

Remarks

GetParamFace returns True when the parametric point lies unambiguously within this trimmed region. GetParamFace returns False if the parameter is inside a hole or on a curve that defines the boundary.

Example

Example (Visual Basic)

Private Sub Form_Load()
    Dim objApp As solidedgeframework.Application
    Dim objDoc As SolidEdgepart.PartDocument
    Dim objBody As solidedgegeometry.Body
    Dim objFace As solidedgegeometry.Face
    Dim dblParam(1 To 4) As Double
    Dim bOnFace(1 To 2) As Boolean
    Const TESTFILE = "T:\vbtests\testcases\HalfCyl.par"
    ' Report errors
    Const PI = 3.14159265358979
    ' Create/get the application with specific settings
    On Error Resume Next
    Set objApp = GetObject(, "SolidEdge.Application")
    If Err Then
        Err.Clear
        Set objApp = CreateObject("SolidEdge.Application")
        Set objDoc = objApp.Documents.Add("SolidEdge.PartDocument")
        objApp.Visible = True
    Else
        Set objDoc = objApp.ActiveDocument
    End If
    Call objDoc.Close
    ' opening the testfile
    Set objDoc = objApp.Documents.Open(TESTFILE)
    ' getting the body object of the model
    Set objBody = objDoc.Models(1).Body
    ' getting a particular face from the collection of faces on the body
    Set objFace = objBody.Faces(FaceType:=igQueryAll).Item(2)
    ' checking whether a point represented in parametric form is on a face or not
    dblParam(1) = PI
    dblParam(2) = 0.05
    dblParam(3) = 1
    dblParam(4) = 1
    Call objFace.GetParamOnFace(NumParams:=2, Params:=dblParam, OnFace:=bOnFace)
    ' USER DISPLAY
    ' Release objects
    Set objApp = Nothing
    Set objDoc = Nothing
    Set objBody = Nothing
    Set objFace = Nothing
End Sub