1×1 unit example code and diagram

Feb 26, 2008

1×1 unit example code and diagram

From Pete:

I put together a base template for a 1×1 unit which will transition easily into a multi unit version fairly easily. I made a quick diagram for you to post as well to help clarify some of the code.

 
Option Explicit
 
'Script written by Peter VanHage
 
'vanhage@gmail.com
 
'created / revised on: Tuesday, February 26, 2008
 
'&lt;&lt;&lt; script explanation goes here&gt;&gt;&gt;
 
Call Main()
 
Sub Main()
 
Dim strSurfaceID: strSurfaceID = rhino.getobject("select surface to deploy module on",8)
 
 If isNull(strSurfaceID) Then
 
 	Call rhino.print("NO SURFACE SELECTED")
 
 	Exit Sub
 
 End If
 
 Call reparameterizeSrf(strSurfaceID)
 
 Dim u,v
 
u=1
 
 v=1
 
Call drawUnit(strSurfaceID,u,v)
 
End Sub
 
Function drawUnit(strSurfaceID,u,v)
 
'here is where you create the points for your single unit
 
 Dim a2,b2,c1,c3,d2,e2
 
a2 = rhino.EvaluateSurface(strSurfaceID,array(0,0.5*v))
 
 b2 = rhino.EvaluateSurface(strSurfaceID,array(0.25*u,0.5*v))
 
 c1 = rhino.EvaluateSurface(strSurfaceID,array(0.5*u,v))
 
 c3 = rhino.EvaluateSurface(strSurfaceID,array(0.5*u,0))
 
 d2 = rhino.EvaluateSurface(strSurfaceID,array(0.75*u,0.5*v))
 
 e2 = rhino.EvaluateSurface(strSurfaceID,array(u,0.5*v))
 
'now you must create a polyline through the specific points to create the desired shape, in this case a diamond within a diamond
 
Dim diamond_01,diamond_02
 
diamond_01 = rhino.AddPolyline(array(a2,c1,e2,c3,a2))
 
 diamond_02 = rhino.AddPolyline(array(b2,c1,d2,c3,b2))
 
End Function
 
Function reparameterizeSrf(strSurfaceID)
 
Call rhino.SelectObject(strSurfaceID)
 
 Call rhino.Command("reparameterize 0 1 0 1")
 
 Call rhino.UnselectAllObjects()
 
End Function