logo

Big_Bird_MeshOffseter

Option Explicit

'Script written by Luis Quinones
'www.luisquinonesdesign.com
'www.computationalmatter.com
'Script version Monday, 06 May 2011 17:35:58
Call Main()

Sub Main()    
    'Dim arrObj : arrObj = Rhino.GetObjects("MESHES",32)    
    Dim i    

    For i = 0 To 20        
        Call Rhino.LayerVisible("M" & i,True)        
        If i > 0 Then            
            Call Rhino.LayerVisible("M" & i-1,False)        
        End If        
    Next    

    Call Rhino.LayerVisible("M20",False)    

    For i = 0 To 20

        Dim arrObj : arrObj = Rhino.ObjectsByLayer("M" & i,True)        
        Call Rhino.LayerVisible("M" & i, True)
        'Dim strLayer : strLayer = Rhino.AddLayer("A"& i & "_BaseMeshes")
        Dim strLayer2 : strLayer2 = Rhino.AddLayer("M"& i & "_OffSetMesh")
        'Call Rhino.ObjectLayer(arrObj,strLayer)        
        Dim dblOff : dblOff = Rhino.MeshOffset(arrObj(0),0.3)
        Rhino.UnselectAllObjects
        Rhino.SelectObject(arrObj(0))
        Rhino.Command "Ungroup"
        Rhino.UnselectAllObjects        
        Call Rhino.ObjectLayer(dblOff,strLayer2)        
        Call Rhino.LayerVisible("M" & i,False)
        Call Rhino.LayerVisible(strLayer2,False)            
    Next    
    Dim last : last = 20    
    For i = 0 To 20        
        Call Rhino.LayerVisible("M" & last-i,False)    
    Next
End Sub
Update
  • Share