Napraviti Grasshopper definicuju u kojoj je koriscena komanda DotNET VB Script sa najmanje jednim ulaznim i izlaznim parametrom, u kodu koristiti bar jednu petlju.
Postaviti definiciju i obavezno sliku ili model (*.obj)
Grasshopper
Grasshopper - VB .NET
Grasshopper - VB .NET
Re: Grasshopper - VB .NET
Evo i definicije :-D
Dim krugovi As New List(Of OnCircle)
Dim centar As New On3dPoint(0, 0, 0)
Dim V As New On3dVector(0.3, 1, 4.2)
Dim p As New On3dPoint(x, y, z)
Dim i As New Int16
For i = 0 To brojkrugova
Dim krug As New OnCircle(centar, i + 5)
krug.Rotate(ugao * i, v, p)
krugovi.Add(krug)
Next
A = krugovi
Re: Grasshopper - VB .NET
Definicija koja pravi skoljku...
Dim krugovi As New List(Of OnCircle)
For i As Int32 = 1 To N
'definise novi krug
Dim krug As New OnCircle(New On3dPoint(0, 0, 0), i)
'rotira krug
krug.Rotate(ugao * i, New On3dVector(0, 1, 0), New On3dPoint(x, 0, 0))
'dodaje krug
krugovi.Add(krug)
Next
A = krugovi
Dim krugovi As New List(Of OnCircle)
For i As Int32 = 1 To N
'definise novi krug
Dim krug As New OnCircle(New On3dPoint(0, 0, 0), i)
'rotira krug
krug.Rotate(ugao * i, New On3dVector(0, 1, 0), New On3dPoint(x, 0, 0))
'dodaje krug
krugovi.Add(krug)
Next
A = krugovi
ili puža... 