Hello Steve
I tried your code .
I had to substitute "Pi" with 3.14...
Here the same : only a Graphic Type Polyline appear.
Maybe it has to do with the child graphic.
I found in the helpfile:
Using 3D Box Graphics (Regen)
Box Graphic Details
Part Description
Type TCW40CUBE
RegenType (not available)
Normal Flags Editable, Visible
Subtype Extended Properties (none)
A box graphic is defined by exactly 4 vertices:
Box Graphic Vertices
Vertex Index Description
0 Flags: PenUp, Linkable, Snappable, Selectable
X, Y, Z: Origin of box (one corner)
Bulge: False
1 Flags: PenUp, Linkable, Snappable, Selectable
X, Y, Z: First axis of box base
Bulge: False
2 Flags: PenUp, Linkable, Snappable, Selectable
X, Y, Z: Second axis of box base
Bulge: False
3 Flags: PenUp, Linkable, Snappable, Selectable
X, Y, Z: Third axis of box (Z axis)
Bulge: False
A box graphic has two direct child graphics, a DATA graphic that holds the box properties, and a TCW60ACISSOLID cosmetic graphic:
Box ACIS Solid Cosmetic Child Graphic
Part Description
Type TCW60ACISSOLID
RegenType (not available)
Normal Flags Cosmetic, Editable, Visible
Subtype Extended Properties (none)
The ACIS Solid has no vertices itself, but has two children (grandchildren of the original box graphic): a DATA graphic that holds ACIS information and a SURFACE cosmetic graphic:
Box ACIS Solid Surface Cosmetic Child Graphic
Part Description
Type SURFACE
RegenType (not available)
Normal Flags Builtin, Cosmetic, Editable, Visible
Subtype Extended Properties (none)
The surface has 24 vertices that describe the faces of the box:
Box ACIS Solid Surface Cosmetic Child Vertices
Vertex Index Description
0 to 23 Flags: PenDown, Editable, Linkable, Snappable, Selectable
X, Y, Z: Vertex of box face. Coordinates are defined relative to the center of the box.
Bulge: False
Maybe Tom Snapes macro can help you.
Description:
This shows how to add one box to the drawing, then add a second, smaller box. Then the smaller box is subtracted from the first to create a mortise.
http://www.bcitool.com/TCDRC/Pages/Page_00092.htmregards
Bernd