Explode Shape

From Macros Wiki
Revision as of 09:29, 29 July 2010 by ConnerO (talk | contribs)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search
global num, list(5)
contour [
start -1, -1
line -1, 1
line 1, 1
line 1, -1
line -1, -1
]
select_shape contourref
extrude 0, 2
iref = solidref
select_solid iref
translate_solid 5, 0, 0, 4
iref2 = solidref
shrink_wrap
explode_solid iref2, num, list
for i = 1 to num
deselect_all_solids
select_solid list(i)
redraw
message "next shape"
next i