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