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 Periodicity() As Double, _ ByRef Singular As Boolean _ )

Parameters

Periodicity: Returns the period in the first element of the array, when the curve is periodic. The value will be identically 0 if the curve is non-periodic. The second element contains the origin of the primary periodic range.
Singular: Returns True if the parametric space is singular and the entire range maps to the same point.

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 objEdge As SolidEdgeGeometry.Edge
    Dim dblPeriodicity(1 To 2) As Double
    Dim bSingular As Boolean
    ' 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
    ' creating the base feature
    If CreateModel(objDoc) <> "" Then
        MsgBox "Error creating the model"
        Exit Sub
    End If
    ' getting the body object of the model
    Set objBody = objDoc.Models(1).Body
    'getting an edge form the collection of edges of the body object
    Set objEdge = objBody.Edges(EdgeType:=igQueryAll).Item(2)
    ' checking whether any periodicity exists on an edge
    Call objEdge.GetParamAnomaly(Periodicity:=dblPeriodicity, Singular:=bSingular)
    ' USER DISPLAY
    ' Release objects
    Set objApp = Nothing
    Set objDoc = Nothing
    Set objBody = Nothing
    Set objEdge = Nothing
End Sub