BreakLine Property

Description

Specifies whether or not a breakline is added between the leader line and the referenced dimensioning object.

Property type

Read-write property

Syntax

Visual Basic
Public Property BreakLine As Boolean

Remarks

The BreakLine property can only be True if the Leader property is also True. For all dimensioning objects, the break lines are horizontal (traverses the X axis) and connect to either the left or right side of the object. All break lines attach such that they would pass through the object's center if they were not trimmed by the object's outline.

Example

Example (Visual Basic)

Private Sub Form_Load()
    Dim objApp As SolidEdgeFramework.Application
    Dim objDoc As SolidEdgeDraft.DraftDocument
    Dim objSheet As SolidEdgeDraft.Sheet
    Dim objFCFs As SolidEdgeFrameworkSupport.FeatureControlFrames
    Dim objFCF As SolidEdgeFrameworkSupport.FeatureControlFrame
    ' Local variables to be declared here
    Dim bBreakLine As Boolean
    ' 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.DraftDocument")
        objApp.Visible = True
    Else
        Set objDoc = objApp.ActiveDocument
    End If
    On Error GoTo 0
    'Get the Active Sheet object
    Set objSheet = objDoc.ActiveSheet
    'Get the FeatureControlFrames collection object
    Set objFCFs = objSheet.FeatureControlFrames
    'Add a new FeatureControlFrame
    Set objFCF = objFCFs.Add(x:=0.1, y:=0.1, z:=0)
    objFCF.PrimaryFrame = "FLVB0.001MCVBA"
    Call objFCF.AddVertex(x:=0.2, y:=0.2, z:=0)
    'Get the BreakLine display status
    bBreakLine = objFCF.BreakLine
    'Chnage the BreakLine display status
    objFCF.BreakLine = Not bBreakLine
    ' Release objects
    Set objApp = Nothing
    Set objDoc = Nothing
    Set objSheet = Nothing
    Set objFCFs = Nothing
    Set objFCF = Nothing
End Sub