TextOffsetBelow Example

Land Auto

TextOffsetBelow Example

Sub Example_TextOffsetBelow()
    
    ' This example returns the TextOffsetBelow setting for the
    ' first CurveText object in a selection set
    
    On Error Resume Next
    
    ' Delete existing SelectionSet
    ThisDrawing.SelectionSets("SSet").Delete
    
    ' Create the selection set based on a point selection
    ' and filter for CurveText objects
    Dim ssetObj As AcadSelectionSet
    Set ssetObj = ThisDrawing.SelectionSets.Add("SSet")
    
    Dim gpCode(0) As Integer
    Dim dataValue(0) As Variant
    
    gpCode(0) = 0
    dataValue(0) = "AEC_CURVETEXT"
    
    Dim groupCode As Variant
    Dim dataCode As Variant
    
    groupCode = gpCode
    dataCode = dataValue
    ssetObj.SelectOnScreen groupCode, dataCode
    
    Dim objCrvTxt As AeccCurveText
    Set objCrvTxt = ssetObj.Item(0)
    
    MsgBox "The setting for TextOffsetBelow is: " & objCrvTxt.TextOffsetBelow , vbInformation, "TextOffsetBelow Example"
    
End Sub