annotate one point

[maksolino]

Hello
I'm looking for a rhino script similar of command
_AnnotateCrvEndPoints
but only for annotate one single position (points or vertex ) in my rhinomodel.
Thanks

[SEANT]

How would that point or vertex be selected?

[maksolino]

- whith the mouse
in the same way like inserting a point whith
command _Point (snap on)
P.s. I'd like to have the possibility to
select the TEXT HEIGHT.

[SEANT]

This routine is based on what I could find out about _AnnotateCrvEndPoints. It used Annotation Dots which, unfortunately, don't have any resizing capabilities.

Option Explicit

Sub Dot2Point
' Declare variables
Dim strLocation
Dim strDot
Dim arrPoint
  With Rhino
    Do
      arrPoint = .GetPoint("Select point at which to set dot: ")
      If IsArray (arrPoint) Then
          strLocation = .Pt2Str(arrPoint, 2)   
          strDot = .AddTextDot (strLocation, arrPoint)
      Else
        Exit Sub
      End If
    Loop
  End With
End Sub
        
Dot2Point

[maksolino]

Thanks Seant
That's just what I was looking for

[maksolino]

Hello
it is possible to modify this script
just for annotate the lenght of the curve
(annotation in the mid point of the curve)
Thanks