SetReferenceCurve Example

SetReferenceCurve Example

Sub Example_SetReferenceCurve()

    ' This example uses the SetReferenceCurve method to attach curve text

    ' to a selected arc or circle

    Dim ent As AcadEntity

    Dim basePnt As Variant

    ' Pick the curve

    On Error Resume Next

    RETRY:

    Err.Clear

    ThisDrawing.Utility.GetEntity ent, basePnt, "Select a curve"

    If Err <> 0 Then

        ThisDrawing.Utility.Prompt "No entity found" + vbCrLf

        GoTo RETRY

    End If

    If ent.ObjectName <> "AcDbCircle" And _

        ent.ObjectName <> "AcDbArc" Then

        ThisDrawing.Utility.Prompt "Entity is not an arc or circle" + vbCrLf

        GoTo RETRY

    End If

    ' Attach the curve text

    Dim ctext As AeccCurveText

    Set ctext = ThisDrawing.ModelSpace.AddCustomObject("AecDbCurveText")

    ctext.SetReferenceCurve ent

    ctext.TextAbove = "ABOVE"

    ctext.TextBelow = "BELOW"

End Sub