arrange.multisweep.01 March.5.2010

Option Explicit ‘Script written by ‘Script copyrighted by ‘Script version Thursday, March 13, 2008 4:36:59 PM Call Main() Sub Main() Dim rails,profile,blnOrigin, i rails = Rhino.GetObjects(“Select Rail Curves”,4) If isNull(rails) Then Exit Sub profile = Rhino.GetObjects(“Select Profile Curves in Order of Placement”,4) If isNull(profile) Then Exit Sub Dim bbox, tline, tpt, pt, arrPt() ReDim arrPt(Ubound(profile)) [...]

arrange.RobotTrajectory.01 March.30.2009

Option Explicit ‘Script written by ‘Script copyrighted by ‘Script version Sunday, March 29, 2009 10:43:19 PM Call VectorFieldAddition() Sub VectorFieldAddition() ‘inputs Dim arrRobotID : arrRobotID = Rhino.GetPointCoordinates (“Select Robot Positions”, 1) If IsNull(arrRobotID) Then Exit Sub Dim ptRobotTarget : ptRobotTarget = Rhino.GetPoint(“Robot Target”) If IsNull(ptRobotTarget) Then Exit Sub Dim ptCurrentTarget: ptCurrentTarget = Rhino.GetPoint(“Water Current Target”) [...]

arrange.honeycomb attractors.01 March.29.2009

Option Explicit ‘Script written by Mark Bearak ‘Script version Tuesday, September 18, 2007 1:26:12 PM Call Main() Sub Main() Dim arrStrAttractors : arrStrAttractors = Rhino.GetObjects (”select the attractors”, 1) Dim intXMax : intXMax = Rhino.GetInteger (”how many in x?”, 30) Dim intYMax : intYMax = Rhino.GetInteger (”how many in y?”, 30) Dim d : d [...]

arrange.2dattractor.01 March.28.2009

Option Explicit ‘Script written by Adolfo Nadal, Ignacio Senra, Sergio Gomez ‘Script copyrighted by ‘Script version viernes, 07 de noviembre de 2008 11:26:37 Call Main() Sub Main() Dim i, j,k,l, strPt(),strtmpPt(),arrPt() Dim Light, strLights, arrLights() strLights = Rhino.GetObjects(“Lights”,1) Dim thresholdDist Dim testDist Dim scalefactor ‘PROCESS INPUT POINTS SUCH AS LIGHT SOURCES If IsNull (strLights) Then [...]

arrange.attractor.02 March.26.2009

Option Explicit ‘—————————————————————————— ‘ Subroutine: attractorToolsOrient ‘ Purpose: orients objects toward multiple attractors with a falloff ‘ Author: Roland Snooks | 2006 | www.kokkugia.com ‘—————————————————————————— Call Main() Sub Main() Dim i, j, arrObjects, arrAttract, thresholdDist, scaleFactor, arrBBox, arrCntrPt, counter, arrAttPt Dim dblAttDistTest, dblClosestAttDist, dblClosestAtt, adjAmount ‘ input arrObjects = Rhino.GetObjects(“select vector field”) arrAttract = Rhino.GetObjects(“select [...]

arrange.attractor.01 March.26.2009

Option Explicit ‘—————————————————————————— ‘ Subroutine: attractorToolsScale ‘ Purpose: transforms objects based on proximity to attractors ‘ Author: Roland Snooks | 2007 | www.kokkugia.com ‘—————————————————————————— Sub attractorToolsScale Dim i, j, arrObjects, arrAttract, thresholdDist, scaleFactor, arrBBox, arrCntrPt, counter, arrAttPt Dim dblAttDistTest, dblClosestAttDist, dblClosestAtt, adjAmount ‘ input arrObjects = Rhino.GetObjects(“select objects”) arrAttract = Rhino.GetObjects(“select point attractors”, 0) thresholdDist [...]

arrange.divide.01 March.26.2009

Option Explicit ‘S.S.S.S. sciarcsmac first challenge #2 DivideCurve() Sub DivideCurve() Dim strFirstCurve strFirstCurve = Rhino.GetObject(“Select the first curve”, 4) If IsNull(strFirstCurve) Then Exit Sub Dim strSecondCurve strSecondCurve = Rhino.GetObject(“Select the second curve”, 4) If IsNull(strSecondCurve) Then Exit Sub Dim t t = Rhino.GetInteger(“Number of division?”, 10, 2, 100) If IsNull (t) Then Exit Sub Dim [...]

arrange.orient curve.01 March.26.2009

Option Explicit Sub orientCurve Dim strLine, i, arrReference, arrTarget Dim strCurveS, strCurveE, strTarget1, strTarget2 i = 4 Do ‘select lines in order strLine = Rhino.GetObject (“select a line”, 4) ‘orient lines strCurveS = Rhino.CurveStartPoint (strLine) strCurveE = Rhino.CurveEndPoint (strLine) arrReference = Array (strCurveS,strCurveE) strTarget1 = Array (0,-i, 0) strTarget2 = Array (99999,-i, 0) arrTarget = [...]

arrange.sorter.01 March.26.2009

‘Size Sorter Script ’28 March 2006 ‘Streams Team ‘JV ‘In: Curve Objects ‘Out: Sorted by Size and Layer ‘————————————————– Option Explicit Sub sort_01 ‘Variables ‘————————————————– Dim arrObject, arrPoints, arrPoint Dim diameter, centerPoint, finalCenter Dim arrObjects Dim i ‘————————————————– ‘Add Four New Layers Based on Sizes — .5″, 1″, 1.5″, 2″ ‘————————————————– Rhino.Print “New layer: ” [...]

arrange.surface March.26.2009

‘written 11.05.2006 by Jonathan Kowalkoski ‘This script will only work with surfaces, be sure to only select surfaces when prompted Dim arrSurfaces, arrOrigPt, inc, tempArea, name Dim order, incCount, moveObj, moveCent Dim i arrSurfaces = Rhino.GetObjects(“get surfaces to arrange”) arrOrigPt = Rhino.GetPoint(“get start point to move to”) inc = Rhino.GetInteger(“spacing between objects?”, 25) Rhino.Print “thinking” [...]