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