Contour Interpolation with Rhino

[Ryland Fox]

Wrote a companion script that displays the z Coordinate of selected points so you can see what it is and know
what height to interpolate from it.
Looks like this:
Option Explicit

‘ Subroutine: ZCoordinate
‘ Purpose: Adds text dot with zCoordinate to points
‘ Author: Ryland Fox a href=”http://www.landscripting.blogspot.com”>http://www.landscripting.blogspot.com(adapted from Roland Snooks annotateCurve | 2006 | http://www.kokkugia.com)

ZCoordinate()
Sub ZCoordinate ()

Dim arrPick, dblHeight, strPoint, arrPoint, zCoor

‘ Choose points
arrPick = Rhino.GetObjects(“Pick points”, 1)
If IsNull(arrPick) Then Exit Sub

‘ Loop through each picked point and insert an annotation dot
For Each strPoint In arrPick
arrPoint = Rhino.PointCoordinates(strPoint)
zCoor = arrPoint(2)
Rhino.print(zCoor)

‘ Insert Text Dot
Rhino.AddTextDot zCoor, arrPoint

Next

End Sub

[Ryland Fox]

I haven’t actually done anything with it except test it. I just wrote it to see if I could. I am going to see if I can make an Autocad version of it for a friend at a firm though.

There are definite improvements it needs. You have to put in the distance between the two points, which I think
I can automate. It just needs some simplification in general. But anyway. Attached is a file you can try it on.

[Author]

Posts