finish
/clear ! start
with an empty database
/PREP7
CYL4,0,0,3,0,75,30 ! use mm. for length units, make 30 deg. sector
wpoff,0,20,0
wprot,,90.0,
ASBW,all ! slice sheet metal to make fin/blade
KWPAVE, 6
wprot,,,90.00
CSWPLA,11,1,1,1,
AGEN,2,2, , , ,90, , ,0 ! create blade by copying small cut
triangle
adel,2,2,1,1
csys,1
agen,12,all,,,0,30,0 ! copy sector for complete fan
nummrg,kp ! merge sector
edges
WPCSYS,-1,0 ! move WP back to the origin
asel,s,loc,z,0 ! select all flat areas
aadd,all
! add them together
allsel
! select everything
numcmp,all ! compress numbers
csys,0
!
activate Global Cartesion CSYS
IGESOUT,fan,iges ! write out IGES geometry