Cyclone Field Studies

April 16, 2007 in Component Manipulation

‘Script written by <Skylar Tibbits >
‘Script copyrighted by <SJET>
‘Script version Friday, April 06, 2007 10:26:45 PM
Dim arrcomp2 : arrcomp2 = Rhino.GetObject (“pick contour point”, 1)
Dim arrcomply : arrcomply = Rhino.ObjectLayer (arrcomp2)
Dim arrcvs : arrcvs = Rhino.ObjectsByLayer(arrcomply)
Dim arrbound1 : arrbound1 = Rhino.GetObject(“pick centroid”,1)
Dim arrboundcord1 : arrboundcord1 = Rhino.PointCoordinates(arrbound1)
Dim arrcomp : arrcomp = Rhino.GetObject (“pick component”, 16)
Dim arrcompcent : arrcompcent = Rhino.GetObject (“pick component center”, 1)
Dim arrcentcord : arrcentcord = Rhino.PointCoordinates(arrcompcent)
Dim arrprog1 : arrprog1 = Rhino.GetObject (“pick green studio”, 16)
Dim arrprog2 : arrprog2 = Rhino.GetObject(“pick pink dwelling”, 16)
Dim arrprog3 : arrprog3 = Rhino.GetObject(“pick red gallery”, 16)
Dim arrprog4 : arrprog4 = Rhino.GetObject(“pick purple workshop”, 16)

Dim strcvs
For Each strcvs In arrcvs
 Dim arrptcord : arrptcord = Rhino.PointCoordinates(strcvs)
 Dim arrdist1 : arrdist1 = Rhino.Distance(arrptcord, arrboundcord1)
 Dim arraddvctr : arraddvctr = Rhino.VectorCreate(arrptcord, arrboundcord1)
 Dim arrrotpt : arrrotpt = Rhino.RotateObject(strcvs, arrboundcord1, (Fix(arrdist1))/5)
 Dim arrptcord2 : arrptcord2 =  Rhino.PointCoordinates(strcvs)
 Dim arrrot : arrrot = (Fix(arrdist1))/10
 If Rhino.IsPointInSurface(arrprog1, arrptcord) Then
  Dim arrcpycomp1 : arrcpycomp1 = Rhino.CopyObject (arrcomp, arrcentcord, arrptcord2)
  Dim arrrotcomp1 : arrrotcomp1 = Rhino.RotateObject (arrcpycomp1, arrptcord2, arrrot, arraddvctr)
  Dim arrscl : arrscl = Rhino.ScaleObject (arrcpycomp1, arrptcord2, Array(3, 3, 3))
 ElseIf Rhino.IsPointInSurface(arrprog2, arrptcord) Then
  Dim arrcpycomp2 : arrcpycomp2 = Rhino.CopyObject (arrcomp, arrcentcord, arrptcord2)
  Dim arrrotcomp2 : arrrotcomp2 = Rhino.RotateObject (arrcpycomp2, arrptcord2, arrrot, arraddvctr)
  Dim arrsc2 : arrsc2 = Rhino.ScaleObject (arrcpycomp2, arrptcord2, Array(2, 2, 2))
 ElseIf Rhino.IsPointInSurface(arrprog3, arrptcord) Then
  Dim arrcpycomp3 : arrcpycomp3 = Rhino.CopyObject (arrcomp, arrcentcord, arrptcord2)
  Dim arrrotcomp3 : arrrotcomp3 = Rhino.RotateObject (arrcpycomp3, arrptcord2, arrrot, arraddvctr)
  Dim arrsc3 : arrsc3 = Rhino.ScaleObject (arrcpycomp3, arrptcord2, Array(2.5, 2.5, 2.5))
 ElseIf Rhino.IsPointInSurface(arrprog4, arrptcord) Then
  Dim arrcpycomp4 : arrcpycomp4 = Rhino.CopyObject (arrcomp, arrcentcord, arrptcord2)
  Dim arrrotcomp4 : arrrotcomp4 = Rhino.RotateObject (arrcpycomp4, arrptcord2, arrrot, arraddvctr)
  Dim arrsc4 : arrsc4 = Rhino.ScaleObject (arrcpycomp4, arrptcord2, Array(2.5, 2.5, 2.5))
 Else
  Dim arrcpycomp5 : arrcpycomp5 = Rhino.CopyObject (arrcomp, arrcentcord, arrptcord2)
  Dim arrrotcomp5 : arrrotcomp5 = Rhino.RotateObject (arrcpycomp5, arrptcord2, arrrot, arraddvctr)
 End If
 
Next