Various user-developed macros to automate common tasks and speed your workflow
Move Vertical Incremental
Moves objects vertically the amount entered, + values move up, - values move down
{@
Move Pause
Vertical=Yes
w0
}@
Offset Bounding Box
Creates a bounding box offset (larger than the object in all directions) by the amount specified (user is prompted for the distance input)
{@
Select Pause _Setredrawoff
BoundingBox World _Enter
Selnone Sellast
OffsetSrf Solid _Pause
Delete Sellast
BoundingBox World _Enter
Delete Setredrawon
}@
No Mesh Bounding Box
Creates a bounding box that doesn't require a mesh generation
{@
Select Pause
_NoEcho _Setredrawoff Group Enter -SetGroupName BBObjects Enter
_ClosestPt 100000000,0,0 Selnone Sellast Group Enter -SetGroupName ClosestPoints Enter
Selnone -SelGroup BBObjects
_ClosestPt 0,100000000,0 Selnone Sellast -_AddToGroup ClosestPoints
Selnone -SelGroup BBObjects
_ClosestPt 0,0,100000000 Selnone Sellast -_AddToGroup ClosestPoints
Selnone -SelGroup BBObjects
_ClosestPt -100000000,0,0 Selnone Sellast -_AddToGroup ClosestPoints
Selnone -SelGroup BBObjects
_ClosestPt 0,-100000000,0 Selnone Sellast -_AddToGroup ClosestPoints
Selnone -SelGroup BBObjects
_ClosestPt 0,0,-100000000 Selnone Sellast -_AddToGroup ClosestPoints
SelNone -SelGroup ClosestPoints
_Setredrawon BoundingBox w Enter
-SelGroup ClosestPoints Delete -SelGroup BBObjects Ungroup _Echo
}@
Set Custom Render Mesh Values
Sets your custom render mesh values without having to go into Doc Properties. Suggestion: create several with different settings.
{@
- _DocumentProperties
Mesh Custom
MaxAngle=0 AspectRatio=0
MinEdgeLength=0 MaxEdgeLength=0
MaxEdgeSrf=0.01 GridQuads=16
Refine=Yes JaggedSeams=No
SimplePlanes=No Enter _Enter
}@
Circular Plane Center, Radius
{@
Circle pause _pause
sellast PlanarSrf _delete
}@
Circular Plane 2 Points Diameter
{@
Circle diameter pause pause
sellast PlanarSrf _delete
}@