20060925
Dim i
Dim arrNumb, iStart, iFinish, iStep
Dim IterationLayer, LayerCount
arrNumb = Rhino.GetInteger ("Number of Iterations", 10)
iStart = Rhino.GetReal ("Start Value?", 1)
iFinish = Rhino.GetReal ("End Value?", 25)
iStep = (iFinish / arrNumb)
LayerCount = 0
For i = iStart To iFinish Step iStep
LayerCount = LayerCount + 1
Rhino.AddLayer "IterationLayer " & CStr(LayerCount), RGB(255, 0, 0)
CheckLayer("IterationLayer " & CStr(LayerCount))
Rhino.command "mathsurface", i
Next
Rhino.Print("Increment Count is " & CStr(iStep))
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function CheckLayer(layername)
If Rhino.IsLayer(layername) Then
Rhino.CurrentLayer(layername)
Else
Rhino.AddLayer(layername)
Rhino.CurrentLayer(layername)
End If
End Function
.: Jonas 2:10 PM
|