!   TITLE:  housing_cast.mac (AAAV)
!
!-----------------------------------------------------------------------
!       Rev -   07/14/2002      J. Rinaldi
!-----------------------------------------------------------------------
!
!   This macro builds the AAAV housing casting, SK553A125.
!
!   CShous0:        Cartesian Housing Coordinate System
!   CShous1:        Cylindrical Housing Coordinate System
!   CShous2:        Spherical Housing Coordinate System
!
!
!************************** TABLE OF CONTENTS **************************
!
!       Model Assembly Preparation
!
!   1.  Parameter List
!   2.  Model Coordinate System
!   3.  Solid Model
!       3.1  Main Housing Frame
!           3.1.1  Front Profile
!           3.1.2  Top Profile
!           3.1.3  Beveled Surfaces
!           3.1.4  Side Profile
!           3.1.5  Front Entry Profile
!
!
!********************* Model Assembly Preparation **********************
!
mod_assemb_prep,arg1,arg2,arg3
!
!<<<<<<<<<<<<<<<<<<<<<<<< 1.  Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>>
!
housing_cast.parm
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate System >>>>>>>>>>>>>>>>>>>>>
!
mod_coord_system,acs,xc,yc,zc,rotxyc,rotyzc,rotzxc
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 3.  Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
!----------------------- 3.1  Main Housing Frame ----------------------
!
!
!------------------------- 3.1.1  Front Profile -----------------------
!
csys,CShous0
!
k,,-Dx01+Dx02,Dy02,0
k,,-Dx01+Dx02,Dy02,-Dz01
k,,Dx02,Dy02,-Dz01
k,,Dx02,Dy02,0
!
create_lines
!
ln_fillet,km,Dr01
ln_fillet,km-5,Dr01
!
create_area-lines
!
extrude_aset,Dy01
!
create_cs,0,'CSfrnt0',0,0,-Dy01+Dy02,-Dz01,0,A01,0
!
norm_cut_pln_ct,'z',0
!
vdele,vm-1,,,1
!
init_entity_num
!
lplot
!
!-------------------------- 3.1.2  Top Profile ------------------------
!
csys,CShous0
!
k,,1.1*(-Dx01+Dx02),1.1*Dy02,0
k,,1.1*(-Dx01+Dx02),Dy02-Dr01,0
k,,1.1*Dx02,Dy02-Dr01,0
k,,1.1*Dx02,1.1*Dy02,0
!
create_area
!
k,,-Dx01+Dx02,Dy02,0
k,,-Dx01+Dx02,0,0
k,,Dx02,0,0
k,,Dx02,Dy02,0
!
create_lines
!
ln_fillet,km,Dr01
ln_fillet,km-5,Dr01
!
create_area-lines
!
asba,am-1,am,,delete,delete
!
init_entity_num
!
cut_tool,Dz01,vm
!
lplot
!
!------------------------ 3.1.3  Beveled Surfaces ---------------------
!
csys,CShous0                ! Left Side
!
k,,Dx02,Dy02-Dy03,0
k,,Dx02,Dy02,-Dz02
k,,Dx02-Dx03,Dy02,0
!
create_area
create_cs,1,'CSLsurf0',0,km-2,km-1,km
!
!
csys,CShous0                ! Right Side
!
k,,-Dx01+Dx02,Dy02-Dy03,0
k,,-Dx01+Dx02,Dy02,-Dz02
k,,-Dx01+Dx02+Dx03,Dy02,0
!
create_area
create_cs,1,,0,km-2,km-1,km
create_cs,0,'CSRsurf0',0,0,0,0,0,0,180
!
isolate_areas
cm,CA01,area
!
init_entity_num
!
vsba,vm,CA01,,delete,delete
!
init_entity_num
!
vdele,vm-2,vm-1,1,1
!
init_entity_num
!
lplot
!
!------------------------- 3.1.4  Side Profile ------------------------
!
csys,CShous0
!
k,,Dx02,1.1*Dy02,1
k,,Dx02,Dy02-Dr01,1
k,,Dx02,Dy02-Dr01,-Dr01
k,,Dx02,1.1*Dy02,-Dr01
!
create_area
!
k,,Dx02,Dy02,0
k,,Dx02,0,0
k,,Dx02,0,-1.1*Dr01
k,,Dx02,Dy02,-1.1*Dr01
!
create_lines
!
ln_fillet,km-3,Dr01
!
create_area-lines
!
asba,am-1,am,,delete,delete
!
init_entity_num
!
cut_tool,Dx01,vm
!
lplot
!
!--------------------- 3.1.5  Front Entry Profile ---------------------
!




!*go,:windf
!********************************************************************
!
csys,CShous0
!
k,,Dx02-Dx08,Dy02-Dy01,-Dz01+Dz03
k,,Dx02-Dx06,Dy02-Dy01,-Dz01+Dz03
k,,Dx02-Dx06,Dy02-Dy01,-Dz01+Dz04
k,,Dx02-Dx08,Dy02-Dy01,-Dz01+Dz04
!
create_area
create_cs,0,'CSentpR1',1,Dx02-Dx06,Dy02-Dy01,-Dz01+Dz05,0,90,0
!
phi=atan((Dz03-Dz05)/(Dx04-Dx08))*dconv
!
ara_create_part,CSentpR1,phi,0
!
csys,CShous0
create_cs,0,'CSentpL1',1,Dx02-Dx08,Dy02-Dy01,-Dz01+Dz05,0,90,0
!
ara_create_part,CSentpL1,180-phi,0
!
adele,am-3,am-1,2,1
init_entity_num
!
isolate_areas
adele,all
init_entity_num
!
isolate_lines
ksll,s
ln_fillet,,Dr03
!
create_area-lines
isolate_areas
extrude_aset,-(Dy01-Dt01)
!
csys,CSLsurf0
vsel,s,volu,,vm
norm_cut_pln_ct,'z',-Dt01
vdele,vm-1,,,1
init_entity_num
!
csys,CSRsurf0
vsel,s,volu,,vm
norm_cut_pln_ct,'z',-Dt01
vdele,vm-1,,,1
init_entity_num
!
vsbv,vm-5,vm,,delete,delete
!
init_entity_num
!
lplot
!
!********************************************************************
:windf





*go,:skip

csys,CShous0
!
k,,Dx02-Dx07,Dy02-Dy01,-Dz01+Dz03
k,,Dx02-Dx05,Dy02-Dy01,-Dz01+Dz03
k,,Dx02-Dx05,Dy02-Dy01,-Dz01+Dz04
k,,Dx02-Dx07,Dy02-Dy01,-Dz01+Dz04
!
create_lines
!
isolate_lines
ln_fillet,,Dr02
!
create_area-lines
isolate_areas
extrude_aset,-(Dy01-Dt01)
!
csys,CSLsurf0
vsel,s,volu,,vm
norm_cut_pln_ct,'z',-Dt01
vdele,vm-1,,,1
init_entity_num
!
csys,CSRsurf0
vsel,s,volu,,vm
norm_cut_pln_ct,'z',-Dt01
vdele,vm-1,,,1
init_entity_num
!



















!cut_tool,Dy01-Dt01
!












*go,:skip






:skip




!finalize_model