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

Replies to This Discussion

Permalink Reply by WT4 on August 12, 2009 at 10:33am

How did you get this file with the Text object in the first place. You must have used a file with x,y and z values?

• ▶ Reply

Permalink Reply by See Man on August 13, 2009 at 7:53am

It's an oficial city plan in dxf-format and has the terrain information (terrain height) only in text.

• ▶ Reply

Permalink Reply by Vicente Soler on August 12, 2009 at 1:51pm

Copy the following code to a vb.net component:

Dim ptlist As New List(Of On3dPoint)
Dim go As New MRhinoGetObject()
go.SetCommandPrompt("Select text objects")
Dim res As IRhinoGet.result = go.GetObjects(1, 0)
For i As Integer = 0 To go.ObjectCount() - 1
Dim annotation_obj As IRhinoAnnotationText = MRhinoAnnotationText.ConstCast(go.Object(i).Object())
Dim pt As New On3dPoint
pt = annotation_obj.Corner3dPoint(0)
pt.z = Convert.ToDouble(annotation_obj.String)
ptlist.Add(pt)
Next
a = ptlist

This component will ask to select the text objects that correspond to the point coordinates. Remember that every time this component is executed, it will ask again to input the text objects.
Connect the 'a' output of the vb.net component to a delaunay component.

• ▶ Reply

Permalink Reply by See Man on August 13, 2009 at 7:49am

Thanks so much for the quick response,
I will check this out immediately.

• ▶ Reply

Permalink Reply by See Man on August 13, 2009 at 8:39am

Awesome!!!!!
Thank You ever so much! This is exactly it.
And I thought I'd have to add all 1200 3d points manually :)

• ▶ Reply

Permalink Reply by Bruna de Morais Souto on August 31, 2010 at 8:15pm

Hi Vicente,

I'm facing the same problem as above and at the moment I'm trying to use your VB script but I don't know how to bring the text into grasshopper. Would you be able to explain how to do that please?

• ▶ Reply

Permalink Reply by Peter Allen on August 13, 2009 at 10:20am

Hi

I'd be interested to see a screen shot of the problem and solution if possible....could you upload the grasshopper file?

• ▶ Reply

Permalink Reply by See Man on August 24, 2009 at 12:09pm

Hi Peter,
here are some shots of the problem and the solution. It's pretty straightforward. The text giving the terrain height is 2d (0 in z-axis). The script from Vicente (thanks again!!!! still works like a charm) is copied into a vb-component and connected to a delaunay component (in the latest grasshopper release).

Attachments:

• text_to_landscape_01.jpg, 116 KB
• text_to_landscape_02.jpg, 162 KB
• Awesome_Landscape from Text_Definition_01.ghx, 28 KB

• ▶ Reply

Permalink Reply by David Wood on September 16, 2009 at 4:18am

WOW!

This is excellent! The answer to all those flat dxf OS plans...

Thank you also for contributing.

• ▶ Reply

Permalink Reply by Bruna de Morais Souto on September 1, 2010 at 1:42am

Hi See,

the text from the my survey file is just a normal text in rhino. how do i convert the text from the survey into text object in rhino?
thank you in advance!
Bruna :)

• ▶ Reply

Permalink Reply by Eric Werner on August 25, 2009 at 9:08am

Hi See Man,

You can always use a rhinoscript to read all the text (you get the x,y values from the position of the textobject) and create a point from the values (the z value of the point you can get from something like:

Sub Main()

Dim arrText, textObj, arrBBox, cpt, txt, a

Rhino.Print "This script will convert text based spot heights to points"
Rhino.Print "Works with comma delimiters, re-configure if there are any spaces or Points!!!"

arrText = rhino.GetObjects("Pick textbased spot heights", 512)

Rhino.EnableRedraw False

For Each textObj In arrText
On Error Resume next

arrBBox = rhino.BoundingBox(textObj)
cpt = Array((((arrBBox(2)(0)) + (arrBBox(0)(0))) / 2), (((arrBBox(2)(1)) + (arrBBox(0)
(1))) / 2), (((arrBBox(2)(2)) + (arrBBox(0)(2))) / 2))
txt = Rhino.TextObjectText(textObj)
'a = Split(txt, ".pSrf.PointAt(1, 1)pSrf.PointAt(1, 1)")

Rhino.AddPoint array(cpt(0),cpt(1),CDbl(txt))
'Rhino.AddPoint array(cpt(0),cpt(1),CDbl(a(0) & "." & a(1)))

Next

Rhino.Print "Finished converting input data to points"
Rhino.EnableRedraw True

End Sub

I get this all the time and this works super quick.

Hope this helps

• ▶ Reply

Permalink Reply by Vicente Soler on August 25, 2009 at 12:58pm

I just found out that you can use the new GUID parameter to reference any kind of object, even text objects. This is very nice. Connect a GUID parameter to the 'x' input of a vb.net component, reference the text objects into the GUID parameter and just use this other code:

Dim objref As New MRhinoObjRef(New Guid(x))
Dim annotation_obj As IRhinoAnnotationText = MRhinoAnnotationText.ConstCast(objref.Object)
Dim pt As New On3dPoint(annotation_obj.Corner3dPoint(0))
pt.z = Convert.ToDouble(annotation_obj.String)
a = pt

Much shorter than the rhinoscript code :P
The site plans i deal with usually have the origin of the text object where it's corresponding point was placed. So you just need to retrieve the lower-left corner, and not the center of the bounding box.

• ▶ Reply

• ‹ Previous
• 1
• 2
• Next ›
• Page