Add Method

Description

Adds an occurrence of the referenced object.

Syntax

Visual Basic
Public Function Add( _ ByVal NumberOfInputEdges As Long, _ ByRef EdgesArray() As Object, _ ByVal CurveType As DerivedCurveTypeConstants _ ) As DerivedCurve

Parameters

NumberOfInputEdges

Specifies the number of input edges for the operation.

EdgesArray

Specifies the Curve or Edge objects used to derive the referenced object.

CurveType

Value	Description
igDCComposite
igDCCurve

Member of the DerivedCurveTypeConstants constant set that specifies whether the referenced object is a curve or a composite.

Example

Example (Visual Basic)

Private Sub AddDerivedCurve_Click()
    Dim objApp As SolidEdgeFramework.Application
    Dim objDoc As SolidEdgePart.PartDocument
    Dim objConstructions As SolidEdgePart.Constructions
    Dim objDerivedCurves As SolidEdgePart.DerivedCurves
    Dim objDerivedCurve As SolidEdgePart.DerivedCurve
    Dim objDerivedCurve2 As SolidEdgePart.DerivedCurve
    Dim objSketches As SolidEdgePart.Sketchs
    Dim objProfiles As SolidEdgePart.Profiles
    Dim Curves As SolidEdgeGeometry.Curves
    Dim objCurves(1 To 2) As Object
    Dim objOtherCurves(1 To 2) As Object
    Dim objParentEdges(1 To 3) As Object

    Dim Ct1 As DerivedCurveTypeConstants
    Dim Ct2 As DerivedCurveTypeConstants
    Dim iNumCurves As Long

    Dim tmp As Object
    Dim tmp1 As Object

    Set objApp = GetObject(, "SolidEdge.Application")
    objApp.Visible = True
    objApp.Activate
    Set objDoc = objApp.ActiveDocument

    Set objConstructions = objDoc.Constructions
    Set objDerivedCurves = objConstructions.DerivedCurves

    Set objCurves(1) = objDoc.Sketches.Item(1).Profiles.Item(1).CurveBody.Curves(1)
    Set objCurves(2) = objDoc.Sketches.Item(1).Profiles.Item(1).CurveBody.Curves(2)
    Set objOtherCurves(1) = objDoc.Sketches.Item(1).Profiles.Item(1).CurveBody.Curves(3)

    Set objDerivedCurve = objDerivedCurves.Add(2, objCurves, igDCComposite)
    Ct1 = objDerivedCurve.CurveType

    Set objDerivedCurve2 = objDerivedCurves.Add(2, objCurves, igDCCurve)
    Ct2 = objDerivedCurve2.CurveType

    Call objDerivedCurve.GetCurves(iNumCurves, objParentEdges)
    Call objDerivedCurve.SetCurves(1, objOtherCurves)

End Sub