/BATCH  
! /COM,ANSYS RELEASE  7.0    UP20021010       19:53:39    04/25/2003              
/input,start70,ans,'d:\Program Files\Ansys Inc\v70\ANSYS\apdl\',,,,,,,,,,,,,,,,1
!*  
/FILNAME,ansys_brace,0  
/AUX15  
IOPTN,IGES,NODEFEAT 
!*  
IOPTN,MERGE,YES 
IOPTN,SOLID,YES 
IOPTN,SMALL,YES 
IOPTN,GTOLER, DEFA  
IGESIN,'brace_asm_asm','igs',' '
! VPLOT   
!*  
FINISH  
/PREP7  
!*  
ET,1,SOLID92
!*  
!*  
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,EX,1,,3e7
MPDATA,PRXY,1,,0.2  
!*  
ANTYPE,0
FLST,2,8,5,ORDE,2   
FITEM,2,37  
FITEM,2,-44 
DA,P51X,SYMM
FLST,2,6,4,ORDE,4   
FITEM,2,1   
FITEM,2,-4  
FITEM,2,9   
FITEM,2,-10 
!*  
/GO 
DL,P51X, ,UY,   
FLST,2,2,5,ORDE,2   
FITEM,2,52  
FITEM,2,55  
/GO 
!*  
SFA,P51X,1,PRES,5000
FLST,2,1,5,ORDE,1   
FITEM,2,53  
/GO 
!*  
SFA,P51X,1,PRES,1000
! SAVE, ansys_brace,db, 
SMRT,6  
MSHAPE,1,3D 
MSHKEY,0
!*  
CM,_Y,VOLU  
VSEL, , , ,       1 
CM,_Y1,VOLU 
CHKMSH,'VOLU'   
CMSEL,S,_Y  
!*  
VMESH,_Y1   
!*  
CMDELE,_Y   
CMDELE,_Y1  
CMDELE,_Y2  
!*  
! SAVE, ansys_brace,db, 
FINISH  
/SOL
! /STATUS,SOLU
SOLVE   
FINISH  
/POST1  
SET,LAST
! PLDISP,1
! /EFACE,1
AVPRIN,0,0, 
!*  
! PLNSOL,S,EQV,0,1
!*  
NSORT,S,EQV,0,0, ,0 
!*  
*GET,SEQMAX,SORT,,MAX   
AVPRIN,0,0, 
ETABLE,VOLU,VOLU,   
!*  
SSUM
*GET,VOLUME,SSUM,,item,VOLU
! SAVE, ansys_brace,db,