; Solid Script for bell punch by Terry Rawkins with due thanks to James ;
29 Aug 2000 ; This method has no lisp so uses only object selection commands eg
last & remove ; there must be a space after a selection command to drop the
selection ; and another space to drop the command ; ; set osnap to none osnap
none ucs w ; remove parent object when making solids setvar delobj 1 ; set new
layer layer m body color blue body ; draw external cone circle 0,0 25 vpoint
-1,-1,1 extrude l 30 23 ; draw internal cone circle 0,0 22.65 extrude l 30 26 ;
make hollow, subtract the last one from all but the last one ! subtract all
remove last last ; draw the undercut dia 70 long circle 0,0,30 12.25 extrude l
70 0 ; draw the od 56 long circle 0,0,37 13.5 extrude l 56 0 ; draw the top c/b
12 long circle 0,0,88 9.5 zoom e extrude l 12 0 ; combine all but the last ie
the c/b and subtract the last subtract all remove last last ; draw the 8 dia
through hole and subtract it from the whole circle 0,0,29 4 extrude l 30 0
subtract all remove last last ; draw the 19 dia bore 48 long and subtract it
from the whole circle 0,0,88 9 extrude l -48 0 subtract all remove last last ; ;
make mew layer for punch layer m punch color red punch circle 0,0,125 3.9 zoom e
extrude l -115 0 ; freeze out body layer layer f body circle 0,0,10 3.9 extrude
l -10 20 ; make punch one object union all ; make mew layer for cap layer m cap
color cyan cap layer f punch ; draw the cap 12 long circle 0,0,88 9.5 extrude l
12 0 circle 0,0,88 3.9 extrude l 12 0 subtract all remove last last layer t
body,punch ; slice 3 point and keep the back part slice 0,25 3 -25,0,0 25,0,0
0,0,10 0,25 shade
(
geocities.com/wpsmoke)