Explode shape

From Macros Wiki
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