!   TITLE:  window_frame.mac (AAAV)
!
!-----------------------------------------------------------------------
!   Rev -   07/14/2002      J. Rinaldi
!-----------------------------------------------------------------------
!
!   This macro builds the AAAV window frame, SK553A125.
!
!   CSwind0:        Cartesian Housing Coordinate System
!   CSwind1:        Cylindrical Housing Coordinate System
!   CSwind2:        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  Mounting Surface Profile
!           3.1.2  Mounting Surface Profile
!
!
!********************* Model Assembly Preparation **********************
!
mod_assemb_prep,arg1,arg2,arg3
!
!<<<<<<<<<<<<<<<<<<<<<<<< 1.  Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>>
!
window_frame.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  Mounting Surface Profile ------------------
!
csys,CSwind0
!
k,,-Dx01+Dx02,0,0
k,,-Dx01+Dx02,0,-Dz01
k,,Dx02,0,-Dz01
k,,Dx02,0,0
!
create_lines
!
ln_fillet,km,Dr01
ln_fillet,km-5,Dr01
!
create_area-lines
!
extrude_aset,Dy01-Dy02
!
create_cs,0,'CSmnt_a0',0,0,-Dy01+Dy02,-Dz01,0,A01,0
!
norm_cut_pln_ct,'z',0
!
vdele,all
asel,u,loc,z,0
adele,all,,,1
!
init_entity_num
!
extrude_aset,Df07
nummrg,kp
init_entity_num
!
lplot
!
!--------------------- 3.1.2  Window Frame Profile --------------------
!
csys,CSwind0
!
k,,Dx02-Df02,0,-(Df06-(Df07/tan(A01*rconv)))*sin(A01*rconv)
k,,Dx02-Dx01+Df02,0,-(Df06-(Df07/tan(A01*rconv)))*sin(A01*rconv)
k,,Dx02-Dx01+Df02,0,-Dz01+Df09*sin(A01*rconv)
k,,Dx02-Df02,0,-Dz01+Df09*sin(A01*rconv)
!
create_lines
!
ksel,s,kp,,km-1,km,1
ln_fillet,,Dr03
!
create_area-lines
!
voffst,am,Dy01
init_entity_num
!
csys,CSmnt_a0
!
vsel,s,volu,,vm
norm_cut_pln_ct,'z',Df07/2
!
create_cs,0,'CSwf0',0,0,Df01,Df07,0,A02,0
!
vsel,s,volu,,vm
norm_cut_pln_ct,'z',0
!
vdele,vm,,,1
init_entity_num
!
vsel,s,volu,,vm-2
norm_cut_pln_ct,'z',-Df08
!
vdele,vm,,,1
init_entity_num
!
lplot
!
!--------------------- 3.1.3  Window Frame Profile --------------------
!
















*go,:skip






:skip




!finalize_model