!   TITLE:  slider_2171-0007.mac (ERJ190)
!
!-----------------------------------------------------------------------
!   Rev -       07/21/2005          J. Rinaldi
!-----------------------------------------------------------------------
!
!   This macro creates the slider mechanism for Embraer, P/N 2171-0007.
!
!   CSslid0:        Cartesian Slider Coordinate System
!   CSslid1:        Cylindrical Slider Coordinate System
!   CSslid2:        Spherical Slider Coordinate System
!
!
!************************** TABLE OF CONTENTS **************************
!
!       Model Assembly Preparation
!
!   1.  Parameter List
!   2.  Model Coordinate System
!   3.  Solid Model
!       3.1  Cross-Sectional Profile 
!           3.1.1  Main Profile
!       3.2  Center Bores
!       3.3  Side Holes
!       3.4  Top Slot
!       3.5  Inside Slot Cut
!       3.6  Front Face Cut 
!
!
!********************* Model Assembly Preparation **********************
!
mod_assemb_prep,arg1,arg2,arg3      ! prepare database for assembly
!
!<<<<<<<<<<<<<<<<<<<<<<<< 1.  Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>>
!
slider_2171-0007.parm               ! name of parameter file
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate System >>>>>>>>>>>>>>>>>>>>>
!
mod_coord_system,acs,xc,yc,zc,rotxyc,rotyzc,rotzxc
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 3.  Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>
!
!-------------------- 3.1  Cross-Sectional Profile --------------------
!
!------------------------- 3.1.1  Main Profile ------------------------
!
csys,CSslid0
!
k,,dx05/2,0,0
k,,dx01/2,((dx01-dx05)/2)/tan(a01*rconv),0
k,,dx01/2,dy01-(((dx01-dx02)/2)/tan(a02*rconv)),0
k,,dx02/2,dy01,0
k,,-dx02/2,dy01,0
!
k,,-dx01/2,dy01-(((dx01-dx02)/2)/tan(a02*rconv)),0
k,,-dx01/2,((dx01-dx05)/2)/tan(a01*rconv),0
k,,-dx05/2,0,0
k,,-dx06/2,0,0
k,,-dx06/2,-dy02,0
!
k,,-dx07/2,-dy02,0
k,,-dx07/2,-dy02+dy10,0
k,,dx07/2,-dy02+dy10,0
k,,dx07/2,-dy02,0
k,,dx06/2,-dy02,0
!
k,,dx06/2,0,0
!
create_lines
ln_fillet_group,km-7,r01,km-4,r01,km-3,r01,km,r01
!
chamfer_area,1,lm-16,lm-15,dc01
chamfer_area,1,lm-22,lm-3,dc01
!
create_vol-lines,dz01
!
lplot
!
!--------------------------- 3.2  Center Bores ------------------------
!
csys,CSslid0
!
create_cs,0,'CSbore0',0,0,dy03,dz01,0,0,0
!
!create_circ_area,d03/2,,120,,90
create_circ_area,d03/2
!
csys,CSslid0
!
create_cs,0,'CSoffb0',0,0,dy01-dz03-r02,dz01,0,0,0
!
create_circ_area,r02
!
isolate_areas
aadd,all
init_entity_num
!
create_vol-area,-dz02
vsbv,vm-1,vm,,delete,delete
init_entity_num
!
!-----------
!
csys,CSbore0
!
create_circ_area,d02/2
!
create_vol-area,-dz01
vsbv,vm-1,vm,,delete,delete
init_entity_num
!
!-----------
!
csys,CSbore0
!
create_circ_area,d01/2,-(dz02+dz04)
!
create_vol-area,-dz01
vsbv,vm-1,vm,,delete,delete
init_entity_num
!
lplot
!
!--------------------------- 3.3  Side Holes ------------------------
!
csys,CSslid0
!
create_cs,0,'CShole1',0,-dx01/2,dy06,dz05,0,0,-90
create_circ_area,d05/2
!
!-----------
!
csys,CSslid0
!
create_cs,0,'CShole2',0,-dx01/2,dy06,dz05+dz06,0,0,-90
create_circ_area,d05/2
!
!-----------
!
csys,CSslid0
!
create_cs,0,'CShole3',0,-dx01/2,dy05,dz05,0,0,-90
create_circ_area,d04/2
!
isolate_areas
extrude_aset,-dx01
!
vsel,u,volu,,vm-3
cm,vset1,volu
init_entity_num
!
vsbv,vm-3,vset1,,delete,delete
init_entity_num
!
lplot
!
!--------------------------- 3.4  Top Slot ------------------------
!
csys,CSslid0
!
create_cs,0,'CSslot',0,0,dy01,dz01-dz02+dz07,-90,0,-90
!
k,,0,-dx08/2,0
k,,dz01,-dx08/2,0
k,,dz01,dx08/2,0
k,,0,dx08/2,0
!
create_lines
!
ln_fillet,-1,r03
!
create_vol-lines,-dy01/2
vsbv,vm-1,vm,,delete,delete
init_entity_num
!
lplot
!
!--------------------------- 3.5  Inside Slot Cut ------------------------
!
csys,CSbore0
!
k,,dx09/2,0,-dz02+dz08+dz09
k,,dx09/2,dy07,-dz02+dz08+dz09
k,,-dx09/2,dy07,-dz02+dz08+dz09
k,,-dx09/2,0,-dz02+dz08+dz09
!
create_lines
!
chamfer_area,1,lm-3,lm-2,dc02
chamfer_area,1,lm-6,lm,dc02
!
create_vol-lines,-dz09
vsbv,vm-1,vm,,delete,delete
init_entity_num
!
lplot
!
!--------------------------- 3.6  Front Face Cut ------------------------
!
csys,CSslid0
!
k,,-dx01/2,dy09,dz01+1
k,,-dx01/2,dy09,dz01
!
create_cs,0,'CSfrntp1',1,-dx01/2,dy08,dz01-dz10,0,0,-90
!
k,,0,0,0
k,,1.5,180-a03,0
!
create_cs,0,'CSfrntp0',0,0,0,0,0,0,0
!
k,,-1.5,1.5,0
k,,1.5,1.5,0
!
create_volume,0,dx01
vsbv,vm-1,vm,,delete,delete
init_entity_num
!
lplot
!

















!*go,:skip



:skip















!finalize_model