adding text using vb script

Replies to This Discussion

Permalink Reply by Dirk Anderson on June 15, 2009 at 8:21am

(lifted this from the Rhino SDK page) all seems to work except for the text is not displaying in the Grasshopper environment but will appear once added as an object to the Rhino document.


Sub RunScript(ByVal inPt As On3dPoint, ByVal height As Double)

Dim text As String = "point"
Dim font As String = "Arial"

Dim plane As New OnPlane(RhUtil.RhinoActiveCPlane())
plane.SetOrigin(inPt)

Dim text_entity As New OnTextEntity2()
Dim text_object As New MRhinoAnnotationText()
text_object.SetAnnotation(text_entity)
text_object.SetTextHeight(height)
text_object.SetString(text)
text_object.SetPlane(plane)

Dim bold As Boolean = False
Dim italic As Boolean = False
Dim idx As Integer = doc.m_font_table.FindOrCreateFont(font, bold, italic)
text_object.SetFontIndex(idx)

doc.AddObject(text_object)


End Sub

Permalink Reply by san shea on June 18, 2009 at 3:31am

thanks for your reply ... yours together with guilio's response is very helpful...
btw, where on rhino SDK can i find this page???

Permalink Reply by Giulio Piacentino on June 15, 2009 at 12:38pm

Hi, I was working on this more or less at the same time as you, and I ended up adding the text to the document (yes, this is a workaround). It seems that for now we have to add the text object to the document in any case before we can to get its geometry - please if somebody knows more, tell us. The original component in C# is posted on the tools page. Because I know that some people are still liking VB better, I'm posting here a version for you in VB.

Btw, 100% of the (few) times I've tryed using developerfusion's translating utility from C# to VB, I got perfectly working code - sometimes even some problems got fixed. The same is not true in the opposite direction, because VB sintax for methods without signature can be the same as with properties, so very often the machine cannot tell the difference and the code is not valid. In this direction, there are also inconsistencies with array brackets - so the translation might be very far from being usable.

Attachments:

• txtLines-csandvb.ghx, 93 KB

Permalink Reply by san shea on June 18, 2009 at 3:30am

hi
many thanks for file... it worked ... so, fantastic (though will have to llive with having to add text object to document first)

btw, i struggled with the crvs array and had to convert the array to a List class in order to work with it eg the count(), add() etc method ... just for my understanding, what works with this "system.array" ... when i am typing in the code, the script allows for Sizeof() etc method but i get an error message at runtime saying that this method does not work with "system.array"??<>??

Permalink Reply by Gabrielle Sacknoff on October 3, 2011 at 4:15pm

Is there a way to add an orientation input to this? When I try to rotate a series of text that I input to "content" about the "points," the text rotates off of that point.

Permalink Reply by Luis Fraguada on June 17, 2009 at 7:19am

Hey all,
this got me curious, so I tried to make a component using the Text Object command in Rhino. Its not pretty by any means...it has bits and pieces from all over. It would be useful for me to just have single stroke fonts as the output of the text, hence why I use this.

A few questions, how do I disable / enable view redrawing in vb.net? Looking at doc.Redraw or MRhinoView, etc...seems it would be at the doc level.

Let me know what you think and if there is a bunch of cruft (old moldy dirty code).
Luis

Attachments:

• textObject.ghx, 48 KB

Permalink Reply by Luis Fraguada on June 22, 2009 at 11:47am

Just a quick update to disable the redraw while the text crvs are being generated... MRhinoView.EnableDrawing(False) >>> MRhinoView.EnableDrawing(True) seemed to do the job like in Rhinoscript ( Rhino.EnableRedraw() ).

This is really buggy and prone to breaking (uses sellast to grab the crvs) so user beware...might be just a good option to generate the text when the definition is ready...

Attachments:

• textObject2.ghx, 68 KB

Permalink Reply by phillip on December 5, 2013 at 8:29am

When I tried to reworked this for RhinoCommon, like:

  Sub AddText(ByVal P As Point3d, ByVal T As String, ByVal H As Double, ByVal F As String, ByVal S As Integer)

    If (H <= 0) Then H = 1.0
    If (String.IsNullOrEmpty(F)) Then F = "Arial"
    If (S < 0 Or S > 3) Then S = 0


    Dim plane As New Plane
    plane.Origin = P

    Dim text_entity As New TextEntity()


    text_entity.TextHeight = H
    text_entity.Text = T
    text_entity.Plane = plane


    Dim bold As Boolean = False
    If (S = 1 Or S = 3) Then bold = True
    Dim italic As Boolean = False
    If (S = 2 Or S = 3) Then italic = True
    Dim idx As Integer = RhinoDocument.Fonts.FindOrCreate(F, bold, italic)
    text_entity.FontIndex = idx


    RhinoDocument.Objects.AddText(text_entity)

The Text seems to be created. I can select it in Rhino, but I do not see it. What am I missing?

Attachments:

• textobject rev.gh, 7 KB

Permalink Reply by phillip on December 12, 2013 at 1:50am

Just for the record:

Dim objId As Guid = RhinoDocument.Objects.AddText(text_entity)

solves it.