misc.documentation.arrows.01 March.5.2010

Option Explicit ‘Script written by ‘Script copyrighted by ‘Script version Sunday, June 08, 2008 1:19:49 AM Call Main() Sub Main() Dim crv: crv = Rhino.GetObjects(“Select Curves”,4) If isNull(crv) Then Exit Sub Dim arrItems, arrValues, arrResults arrItems = array(“scale_width”,”twist_angle”,”tip_location”,”tip_angle”,”start_width”,”end_width”,”tip_length”,”type_(1)or(2)”,”curved arrows”) arrValues = array(1,0,.95,45,.2,.5,1,1,True) arrResults = Rhino.PropertyListBox (arrItems, arrValues ,,”Arrow Parameters”) Dim i If arrResults(0) .99 Then [...]

curves.blend.01 March.5.2010

Option Explicit ‘Script written by ‘Script copyrighted by ‘Script version Sunday, May 03, 2009 1:54:38 PM Call Main() Sub Main() Dim Curves, SM, DN Curves= Rhino.GetObjects(“Select Curves”,4) If isNull(Curves) Then Exit Sub SM = Rhino.GetBoolean(“Blend Type”,array(“Type”,”Straight”,”Smooth”),array(False)) If isNull(SM) Then Exit Sub DN = Rhino.GetReal(“Blend Density”,5,1) If isNull(SM) Then Exit Sub Call Rhino.EnableRedraw(False) If uBound(Curves) > [...]

curves.bezier.01 March.5.2010

Option Explicit ‘Script written by ‘Script copyrighted by ‘Script version Tuesday, July 21, 2009 7:50:34 PM Call Main() Sub Main() Dim arrPoints,intSamples Do arrPoints = Rhino.GetObjects(“Select at Least 3 Points”,1,,True) If isNull(arrPoints) Then Exit Sub If uBound(arrPoints) > 1 Then Exit Do End If Loop intSamples = Rhino.GetReal(“Samples”,10,1) If isNull(intSamples) Then Exit Sub Dim i, [...]