generating terrain model from Text and 2D-Textposition-Points

Hi everyone,
I'm faced with a problem that seems to occur fairly regularly in my architecture studies.
I am trying to create a 3d terrain model from given points in a dxf-file.
Previously, when files had terrain contour lines , I made a grasshopper-file that divided these, took the division points, and in Rhino, with point set reconstruction tool, made a model via delauney triangulation.
Now, all I have is Rhino Text Objects and their position points in 2D. The Text Objects contain the z-value of the points. Is there a way to get the origin point of the text objects and the value of the text object into grasshopper in some sort of order, so that 3d points can be constructed?
Any suggestions, also as to how I can get the text objects as string into grasshopper, would be appreciated.
Thanks,
See Man

Replies to This Discussion

Permalink Reply by William Whitby on June 8, 2010 at 12:46pm

Hia,

I tried your code but got the follow error:

Error: Overload resolution failed because no accessible 'New' can be called without a narrowing conversion

Any ideas why?

Thanks,

Will

Permalink Reply by Simon Kallioinen on June 9, 2010 at 1:21am

Here's a link to a rhinoscript that does the same thing:

http://www.rhinoscript.org/rhinoscript/44

Permalink Reply by Thomas Bildsøe on July 13, 2010 at 6:38am

I'm also experiencing this bug, any solutions?

Permalink Reply by Lance van Maanen on February 13, 2011 at 4:58pm

Hi all, digging up an old post- but this is a much better way of modeling terrain then I've been using. The survey's I often get include both number and letter combination, and this script will only accept numeric data (of course). Does anyone know of a quick way to select or isolate only the numeric components of text from Rhino?

Permalink Reply by Vicente Soler on March 8, 2012 at 7:23pm

Sorry I just saw this, one year too late. In case anyone else needs it, the code is the following:

Dim objref As New docobjects.ObjRef(x)

Dim txt As TextEntity = objref.TextEntity

Dim z As String = system.Text.RegularExpressions.Regex.Replace(txt.text, "[^0-9.]", String.Empty)

a = New point3d(txt.Plane.OriginX, txt.Plane.OriginY, z)

This works when the decimal separator is a point, if it's a comma replace [^0-9.] with [^0-9,]

Permalink Reply by Steen Hargus on January 7, 2013 at 1:26am

Hi Vicente,

I have been following this script from day one and just realized that You had updated it to only accept numeric input! Thank You for that.

That makes this little tool even more productive!

Permalink Reply by Vicente Soler on March 8, 2012 at 7:39am

I was asked to update this script so it works in the current GH version.

It works in the following way:

Place an ID parameter, reference the text objects in this parameter, place a vb component, right click on the x input and set the type hint to GUID, connect the ID parameter to the x input. Double click on the VB component and paste the following code:

Dim objref As New docobjects.ObjRef(x)

Dim txt As TextEntity = objref.TextEntity

a = New point3d(txt.Plane.OriginX, txt.Plane.OriginY, txt.Text)

Permalink Reply by Rémy Maurcot on May 28, 2013 at 8:20am