GetParamAnomaly Method

Description

Returns information that indicates any parametric spaces with periodicity that might exist on a referenced edge.

Syntax

Visual Basic
Public Sub GetParamAnomaly( _ ByRef PeriodicityU() As Double, _ ByRef PeriodicityV() As Double, _ ByRef EndSingularityU As Long, _ ByRef SingularityU() As Double, _ ByRef EndSingularityV As Long, _ ByRef SingularityV() As Double _ )

Visual Basic

Public Sub GetParamAnomaly( _
   ByRef PeriodicityU() As Double, _
   ByRef PeriodicityV() As Double, _
   ByRef EndSingularityU As Long, _
   ByRef SingularityU() As Double, _
   ByRef EndSingularityV As Long, _
   ByRef SingularityV() As Double _
)

Parameters

PeriodicityU
PeriodicityV
EndSingularityU
SingularityU
EndSingularityV
SingularityV

Remarks

A curve regarded as periodic will have the endpoints of its primary parametric range mapped to identical points in model space, and the derivatives will match up. The parameter space of such a curve can be considered as infinite, formed by repeating the primary range indefinitely. The length of the primary range is called the period of the curve. The curve continues to be defined for all values in this infinite space by reducing a given parameter modulo the period into this primary range. This method returns the period (0 if the parameter space is not periodic) and the origin of the primary periodic range (typically, 0).

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 dblUPerd() As Double
    Dim dblVPerd() As Double
    Dim lngEndUSing As Long
    Dim dblUSing() As Double
    Dim lngEndVSing As Long
    Dim dblVSing() As Double
    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(1)
    ' checking whether any periodicity exists on a face
    Call objFace.GetParamAnomaly(PeriodicityU:=dblUPerd, PeriodicityV:=dblVPerd, EndSingularityU:=lngEndUSing, _
                                 SingularityU:=dblUSing, EndSingularityV:=lngEndVSing, SingularityV:=dblVSing)
    ' USER DISPLAY
    ' Release objects
    Set objApp = Nothing
    Set objDoc = Nothing
    Set objBody = Nothing
    Set objFace = Nothing
End Sub