AddByPoints Method

Description

Creates the referenced object by specifying a set of points.

Syntax

Visual Basic
Public Function AddByPoints( _ ByVal Order As Long, _ ByVal ArraySize As Long, _ ByRef Array() As Double _ ) As BSplineCurve2d

Parameters

Order: Specifies the order of the curve.
ArraySize: Specifies the number of points within the array.
Array: Contains x and y pairs that specify the points that define the curve. The number of objects in the array input must be an even number.

Remarks

The points array must contain an even number of values. The first entry is the x value of the first point, the second entry is the y value of the first point, the third entry is the x value of the second point, and so forth.

Example

Example (Visual Basic)

Private Sub Form_Load()
    Dim objApp As SolidEdgeFramework.Application
    Dim objDoc As SolidEdgePart.PartDocument
    Dim objBSplns As SolidEdgeFrameworkSupport.BSplineCurves2d
    Dim MyArray(9) As Double
    Dim sDumpStatus As String    ' Used for temporary storage of datadump return string
    ' 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
    'Define an Array of Points
    MyArray(0) = 0
    MyArray(1) = 0
    MyArray(2) = 0.03
    MyArray(3) = 0.02
    MyArray(4) = 0.04
    MyArray(5) = 0.01
    MyArray(6) = 0.05
    MyArray(7) = 0.08
    MyArray(8) = 0.07
    MyArray(9) = 0.04
    'Create a BSplineCurves collection object
    Set objBSplns = objDoc.ProfileSets.Add.Profiles.Add(pRefPlaneDisp:= _
                                                        objDoc.RefPlanes(1)).BSplineCurves2d
    'Create a BSplineCurve object
    Call objBSplns.AddByPoints(Order:=4, ArraySize:=5, Array:=MyArray())
    ' USER DISPLAY
    ' Release objects
    Set objApp = Nothing
    Set objDoc = Nothing
    Set objBSplns = Nothing
End Sub