Option Explicit
‘——————————————————————————-
‘ Subroutine: cheeweelook part 1
‘ Purpose: rotira tougao oko stranica + smanjuje trougao po tezishnoj duzi
‘ Author: Milutin Cerovic 2008
‘ www.4ofseven.com
‘——————————————————————————–
Call Main()
Sub Main()
Dim i,j,Sf
Dim arrtemena1,arrTemp,arrNovoTeme,arraxis,arrSrfBochno(2)
Dim strTrougao
‘ input ————————————————————————–
strTrougao = Rhino.GetObject(“selektuj polyline trougao”)
arrtemena1 = Rhino.PolyLineVertices(strTrougao)
For i = 1 To 8 ‘ broj krugova
For j = 0 To 2 ‘ loop kroz stranice trougla
‘ rotacija trougla + dodavanje povrshine ———————————-
arrtemena1 = Rhino.PolyLineVertices(strTrougao)
Rhino.AddSrfPt arrtemena1
arrtemena1 = duplicateArr(arrtemena1)
arrTemp = arrtemena1
arraxis = Rhino.VectorCreate(arrtemena1(j),arrtemena1(j+1)) ‘ osa rotacije
strTrougao = Rhino.RotateObject(strTrougao,arrtemena1(j),-30,arraxis,vbTrue)
‘ 0.scale trougla po tezishtu —————————————————
arrtemena1 = Rhino.PolyLineVertices(strTrougao)
arrtemena1 = duplicateArr(arrtemena1)
arrNovoTeme = scaleTrougao(arrtemena1(j),arrtemena1(j+1),arrtemena1(j+2),3)
Rhino.EnableObjectGrips strTrougao
If j = 0 Then
Rhino.ObjectGripLocation strTrougao,2,arrNovoTeme
Else
If […]