Add Method

Description

Adds flat pattern feature

Syntax

Visual Basic
Public Function Add( _ ByVal ReferenceEdge As Object, _ Optional ByVal ReferenceFace As Object, _ Optional ByVal ReferenceVertex As Object, _ Optional ByVal ModelType As Variant _ ) As FlatPattern

Visual Basic

Public Function Add( _
   ByVal ReferenceEdge As Object, _
   Optional ByVal ReferenceFace As Object, _
   Optional ByVal ReferenceVertex As Object, _
   Optional ByVal ModelType As Variant _
) As FlatPattern

Parameters

ReferenceEdge: Specifies a reference edge for the flatten process, aligning the edge with the y-axis of the base reference plane. The part is flattened on the xy plane. If ReferenceFace is specified, then ReferenceEdge must be part of the specified face.
ReferenceFace: Specifies a reference face for the flatten process. If ReferenceFace is specified, then ReferenceVertex must also be specified.
ReferenceVertex: Specifies a reference vertex for the flatten process. ReferenceVertex must be part of ReferenceEdge. If ReferenceVertex is specified, then ReferenceFace must also be specified.
ModelType: Member of the FlattenPatternModelTypeConstants constant set that specifies the model type.

Example

Example (Visual Basic)

Private Sub Form_Load()
 
    Dim objApp As SolidEdgeFramework.Application
    Dim objDoc As SolidEdgePart.SheetMetalDocument
    Dim objFPM As SolidEdgePart.FlatPatternModel
    Dim objFP As SolidEdgePart.FlatPattern
    Dim objFaces As SolidEdgeGeometry.Faces
    Dim objFace As SolidEdgeGeometry.Face
    Dim objEdges As SolidEdgeGeometry.Edges
    Dim objEdge As SolidEdgeGeometry.Edge
 
    Set objApp = GetObject(, "SolidEdge.Application")
    Set objDoc = objApp.ActiveDocument
    
    If 0 = objDoc.FlatPatternModels.Count Then
        Set objFPM = objDoc.FlatPatternModels.Add(objDoc.Models.Item(1))
    Else
        Set objFPM = objDoc.FlatPatternModels.Item(1)
    End If
    
    Set objFaces = objFPM.Body.Faces(igQueryCylinder)
    Set objFace = objFaces.Item(2)
    Set objEdges = objFace.Edges
    Set objEdge = objEdges.Item(1)
    
    Set objFP = objFPM.FlatPatterns.Add(objEdge, objFace, objEdge.EndVertex, igFlattenPatternModelTypeFlattenAnything)
    
    Unload Me
    Exit Sub
End Sub