《 box_fab vb 》.pdfVIP

box_fab vb Copyright (C) 2005, Sawako Kaijima This software is provided as-is, without any expressed or implied warranty. In no event will the author be held liable for any damages arising from the use of this script. Permission is granted to anyone to use this software for any purpose, including commercial applications, and to alter it and redistribute it freely, subject to the following restrictions: 1. The origin of this software must not be misrepresented; you must not claim that you wrote the original software. If you use this software in a product, an acknowledgment in the product documentation would be appreciated but is not required. 2. Altered source versions must be plainly marked as such, and must not be misrepresented as being the original software. 3. This notice may not be removed or altered from any source distribution. Global variables option explicit dim X_vec: X_vec = vector_create( array(0, 0, 0), array(1, 0, 0)) dim Y_vec: Y_vec = vector_create( array(0, 0, 0), array(0, 1, 0)) dim Z_vec: Z_vec = vector_create( array(0, 0, 0), array(0, 0, 1)) dim VERTEX_X: VERTEX_X = 0 dim VERTEX_Y: VERTEX_Y = 1 dim VERTEX_Z: VERTEX_Z = 2 dim VECTOR_X: VECTOR_X = 0 dim VECTOR_Y: VECTOR_Y = 1 dim VECTOR_Z: VECTOR_Z = 2 calling the main function call box_fab main function function box_fab() redim srfs(5) user input input an origin of the box srfs(0) =rhino.getobject(select the top face) srfs(1) =rhino.getobject(select the bottom face) srfs(2) =rhino.getobject(select the front face) srfs(4) =rhino.getobject(select the back face) srfs(3) =rhino.getobject(select the left face) srfs(5) =rhino.getobject(select the right face) dim res: res = rhino.getinteger( number of notches per side , 4 ) dim thick: thick = Rhino.GetReal( thickness of the material , 1) dim xspace: xspace = Rhin