Exhibiting @ Sigradi 2010 : Computing & Materialization. 04

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

Generative Design Through Coding 01

This research offers to transform double-curved surfaces into components generated through algorithms based on McNeel Rhinoceros scripting platform. The extracted points of surfaces are transferred into a text document which can be manipulated by the user. Rhino script works in two stages, in which first the location of the text document is specified and then the components are applied. The intent is to generate a process, in which computational surface is transformed into a component based model.

PART I

all NoktaOkuma()

Sub NoktaOkuma()

' Aktarılacak dosyanın yeri belirtilir

Dim strFilter, strFileName

strFilter = "Text File (*.txt)

*.txt

All Files (*.*)

"strFileName = Rhino.OpenFileName("Noktaların bulunduğu dosyanın yerini belirtiniz", strFilter)

If IsNull(strFileName) Then Exit Sub

' Dosya sistem cismi

Dim objFSO, objFile

Set objFSO = CreateObject("Scripting.FileSystemObject")

' Metin dosyasını açınız

On Error Resume Next

Set objFile = objFSO.OpenTextFile(strFileName, 1)

If Err Then

MsgBox Err.Description

.....