/BATCH
/input,menust,tmp,'',,,,,,,,,,,,,,,,1
WPSTYLE,,,,,,,,0
/CWD,'C:\Temp' ! Change working
directory
/FILNAME,plate01,0 ! Change jobname
/TITLE,Mr. Johnson's Plate with A Hole (FEA 1)
/PREP7
!
Enter Preprocessing
ET,1,PLANE183 ! Select element type
PLANE183, 2D Higher-order Quad.
MAT,1, ! Read
material properties from the ANSYS material library
MPREAD,'Al_a6061-T6','BIN_MPL','..\Program Files\Ansys Inc\v110\ANSYS\matlib\',LIB
RECTNG,0,6,0,6,
! Create a rectangle, by dimensions
PCIRC,0.5, ,0,360, ! Create a circle by dimensions
ASBA, 1, 2 !
Subtract areas (circle from rectangle)
ESIZE,0.75,0,
! Set global element size to 0.75
in.
FLST,5,2,3,ORDE,2
!
Graphical picking for:
FITEM,5,5
! (KP's of the hole in the plate)
FITEM,5,-6
CM,_Y,KP
!
Create a component '_Y' of current set of KP's
KSEL, , , ,P51X ! Select keypoints from picking,
above
CM,_Y1,KP
!
Create a component '_Y1' of selected KP's
CMSEL,S,_Y
CMSEL,S,_Y1 ! Select the
component '_Y1'
KESIZE,ALL,0.1 ! Set element size at
selected KP to 0.1 in.
CMSEL,S,_Y
CMDELE,_Y1
!
Delete temporary components
CMDELE,_Y
MSHAPE,0,2D
! Use 2D quadrilateral
element shapes
MSHKEY,0
! Set
for FREE meshing
CM,_Y,AREA
ASEL, , , , 3 ! Select
area no. 3
CM,_Y1,AREA !
Create component '_Y1' pf areas
CHKMSH,'AREA' ! Check to
see if areas are already meshed
CMSEL,S,_Y
AMESH,_Y1
! Mesh areas
CMDEL,_Y
CMDEL,_Y1
! Delete temporary components
CMDEL,_Y2
FINISH
!
Finish Preprocessing
/SOL
!
Enter solution
FLST,2,2,4,ORDE,2
! Graphical
picking for :
FITEM,2,9
FITEM,2,-10
DL,P51X, ,SYMM ! Define symmetry on picked
lines, above
FLST,2,1,4,ORDE,1
! Graphical
picking for :
FITEM,2,2
/GO
SFL,P51X,PRES,-1000, ! Define pressure on picked lines, above
SBCTRAN
!
Transfer all solid model loads to nodes & elements
SOLVE
!
Run the solution
FINISH
!
Finish solution
/POST1
!
Enter the general postprocessor