Global Dim Meshes(1) Meshes(0) = CreateBox("box", 0.5, 1, 0.5) Meshes(1) = CreateSphere("sphere", 0.7) MoveMesh(Meshes(1), 0, 0.8, 0) Object = MergeMeshes(Meshes())