Generative Design Through Coding 02

PART II

 
Option Explicit

‘Call sinusyuzeyi()
Sub sinusyuzeyi()
Dim cisim, nokta, i, noktaKoordinati
‘ girdiler: noktalar + cisim
cisim = Rhino.GetObject(“tekrarlanacak cisimleri seçiniz”)
nokta = Rhino.GetObjects(“cisimlerin atanacağı noktaları seçiniz”)
‘ tüm noktalar için döngü oluştur
For i = 0 To UBound(nokta)
‘ noktanın pozisyonu belirlenir
noktaKoordinati = Rhino.PointCoordinates(nokta(i))
‘ cismi belirlenen posizyona atama
Rhino.CopyObject cisim, Array(0,0,0), noktaKoordinati
Next
End Sub


Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s