NEW GEOMETRY

Here are two geometric primitives I found myself making often, so I made these macros to create the geometry for me automatically.

SPHERE BOX - This script creates a shere with the topology of a divided cube. Usefull for getting a sphere geometry that is not a geosphere, or a polar sphere. This one has nice poles, and works well under smoothing.

EIGHT CYLINDER- 90% of the geometry that I start from scratch with is the cylinder, and I almost always make it eight sided and then I modify the ends into quads. This script automates the process.

SPHERE BOX

(
Box smooth:on length:20 width:20 height:20 mapcoords:on pos:[0,0,0] isSelected:on
$.material = meditMaterials[1]
modPanel.addModToSelection (meshsmooth ()) ui:on
modPanel.addModToSelection (Spherify ()) ui:on
$.modifiers[#MeshSmooth].iterations = 2
$.showFrozenInGray = on
$.wirecolor = color 0 0 0
macros.run "Modifier Stack" "Convert_to_Poly"
$.pivot = $.center
)

EIGHT CYLINDER

(
Cylinder smooth:on heightsegs:1 capsegs:1 sides:8 height:20 radius:10 mapcoords:on pos:[0,0,0] isSelected:on
$.material = meditMaterials[1]
$.wirecolor = color 0 0 0
$.showFrozenInGray = on
macros.run "Modifier Stack" "Convert_to_Poly"
subobjectLevel = 4
$.EditablePoly.SetSelection #Face #{9..10}
$.EditablePoly.buttonOp #Inset
macros.run "Editable Polygon Object" "EPoly_Collapse"
actionMan.executeAction 369982487 "40004"
subobjectLevel = 2
$.EditablePoly.SetSelection #Edge #{25, 27, 29, 31, 34, 36, 38, 40}
$.EditablePoly.Remove ()
subobjectLevel = 0
clearSelection()

)