Form Property

Description

Returns the closure state of the referenced profile.

Property type

Read-only property

Syntax

Visual Basic
Public Property Form As Geom2dFormConstants

Remarks

Certain feature objects (such as the ExtrudedProtrusion object) require that a profile exhibits closure, but does not need to be physically closed. Another form of closure (implied closure) exists when both free ends of an open profile connect to a part edge. This connection with the part edge results in an enclosed area on the profile plane.

Example

Example (Visual Basic)

Private Sub Form_Load()
    Dim objApp As SolidEdgeFramework.Application
    Dim objDoc As SolidEdgePart.PartDocument
    Dim objProfile As SolidEdgePart.Profile
    Dim cGeom2dCnst As Geom2dFormConstants
    Dim lngStatus As Long
    ' 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
    'Create a profile object and draw a Line
    Set objProfile = objDoc.ProfileSets.Add.Profiles.Add(objDoc.RefPlanes(1))
    Call objProfile.Lines2d.AddBy2Points(x1:=0, y1:=0, x2:=0.3, y2:=0.4)
    lngStatus = objProfile.End(ValidationCriteria:=igProfileSingle)
    If lngStatus <> 0 Then
        MsgBox ("Profile Invalid")
    End If
    cGeom2dCnst = objProfile.Form
    ' USER DISPLAY
    ' Release objects
    Set objApp = Nothing
    Set objDoc = Nothing
    Set objProfile = Nothing
End Sub