TrackDistance Property

Description

Sets and returns the track distance of the referenced Dimension object.

Property type

Read-write property

Syntax

Visual Basic
Public Property TrackDistance As Double

Remarks

The track distance defines the distance that separates the dimension from the object it measures. In linear dimensions, it is the distance between the origin object to the dimension line. In angular dimensions, it is the distance between the center point (the intersection of the origin and the measurement vectors) to the dimension line.

Example

Example (Visual Basic)

Private Sub Form_Load()
    Dim objApp As SolidEdgeFrameWork.Application
    Dim objDoc As SolidEdgeDraft.DraftDocument
    Dim objSheet As SolidEdgeDraft.Sheet
    Dim objline As SolidEdgeFrameworkSupport.Line2d
    Dim objDim As SolidEdgeFrameworkSupport.Dimension
    Dim dblTradis As Double
    ' 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.DraftDocument")
        objApp.Visible = True
    Else
        Set objDoc = objApp.ActiveDocument
    End If
    'getting the Active Sheet object
    Set objSheet = objDoc.ActiveSheet
    'create a line
    Set objline = objSheet.Lines2d.AddBy2Points(x1:=0.1, y1:=0.1, x2:=0.3, y2:=0.3)
    'create a dimension object
    Set objDim = objSheet.Dimensions.AddLength(Object:=objline)
    'get TrackDistance
    dblTradis = objDim.TrackDistance
    'set TrackDistance
    objDim.TrackDistance = 0.05
    ' USER DISPLAY
    ' Release objects
    Set objApp = Nothing
    Set objDoc = Nothing
    Set objSheet = Nothing
    Set objline = Nothing
    Set objDim = Nothing
End Sub