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