mass21加弯矩请教

hugejiletu

那能不能教教我怎么在我这种体上加弯矩？我想弄个盖板只起到传力作用、想在盖板中心弄一个mass21加弯矩（动态）而且我这个题上有洞、我用实体单元划分的网格以下是命令流：新手说的具体点儿！谢谢了
/BATCH
/COM,ANSYS RELEASE 14.0 UP20111024 09:36:43 06/15/2014
/input,menust,tmp,'',,,,,,,,,,,,,,,,1
/GRA,POWER
/GST,ON
/PLO,INFO,3
/GRO,CURL,ON
/CPLANE,1
/REPLOT,RESIZE
WPSTYLE,,,,,,,,0
/PREP7
K,1,1972,-2540,,
K,2,2000,-2540,,
K,3,1957,1780,,
K,4,1929,1780,,
L, 1, 2
L, 2, 1
L, 2, 3
L, 3, 4
L, 4, 1
FLST,2,4,4
FITEM,2,1
FITEM,2,2
FITEM,2,3
FITEM,2,4
AL,P51X
K,5,0,1780,,
K,6,0,-2540,,
FLST,2,1,5,ORDE,1
FITEM,2,1
FLST,8,2,3
FITEM,8,5
FITEM,8,6
VROTAT,P51X, , , , , ,P51X, ,360, ,
K,7,1957,1780,,
K,7,1957,2780,,
K,7,1957,2780,,
K,200,1957,2780,,
K,201,0,2780,,
L, 201, 200
FLST,2,1,4,ORDE,1
FITEM,2,33
FLST,8,2,3
FITEM,8,201
FITEM,8,6
AROTAT,P51X, , , , , ,P51X, ,360, ,
APLOT
/VIEW,1,1,1,1
/ANG,1
/REP,FAST
FLST,2,4,6,ORDE,2
FITEM,2,1
FITEM,2,-4
VADD,P51X
FLST,2,4,5,ORDE,2
FITEM,2,21
FITEM,2,-24
AADD,P51X
!*
VOFFST,1,40, ,
FLST,3,1,6,ORDE,1
FITEM,3,1
VGEN, ,P51X, , , ,-1000, , , ,1
SAVE
K,300,0,1820,,
!*
ET,1,SOLID185
!*
MSHKEY,0
MSHAPE,1,3d
CM,_Y,VOLU
VSEL, , , , 5
CM,_Y1,VOLU
CHKMSH,'VOLU'
CMSEL,S,_Y
!*
VMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
MSHKEY,0
MSHAPE,1,3d
CM,_Y,VOLU
VSEL, , , , 1
CM,_Y1,VOLU
CHKMSH,'VOLU'
CMSEL,S,_Y
!*
VMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2

/COM, CONTACT PAIR CREATION - START
CM,_NODECM,NODE
CM,_ELEMCM,ELEM
CM,_KPCM,KP
CM,_LINECM,LINE
CM,_AREACM,AREA
CM,_VOLUCM,VOLU
/GSAV,cwz,gsav,,temp
! MP,MU,1,
! MAT,1
! MP,EMIS,1,7.88860905221e-031
! R,3
! REAL,3
! ET,2,170
! ET,3,174
! R,3,,,1.0,0.1,0,
! RMORE,,,1.0E20,0.0,1.0,
! RMORE,0.0,0,1.0,,1.0,0.5
! RMORE,0,1.0,1.0,0.0,,1.0
! KEYOPT,3,4,0
! KEYOPT,3,5,0
! KEYOPT,3,7,0
! KEYOPT,3,8,0
! KEYOPT,3,9,0
! KEYOPT,3,10,2
! KEYOPT,3,11,0
! KEYOPT,3,12,5
! KEYOPT,3,2,0
! KEYOPT,2,5,0
! Generate the target surface
ASEL,S,,,15
CM,_TARGET,AREA
! TYPE,2
NSLA,S,1
ESLN,S,0
ESLL,U
ESEL,U,ENAME,,188,189
NSLE,A,CT2
! ESURF
CMSEL,S,_ELEMCM
! Generate the contact surface
ASEL,S,,,20
ASEL,A,,,25
ASEL,A,,,30
ASEL,A,,,35
CM,_CONTACT,AREA
! TYPE,3
NSLA,S,1
ESLN,S,0
NSLE,A,CT2 ! CZMESH patch (fsk qt-40109 8/2008)
! ESURF
ALLSEL
ESEL,ALL
ESEL,S,TYPE,,2
ESEL,A,TYPE,,3
ESEL,R,REAL,,3
/PSYMB,ESYS,1
/PNUM,TYPE,1
/NUM,1
EPLOT
ESEL,ALL
ESEL,S,TYPE,,2
ESEL,A,TYPE,,3
ESEL,R,REAL,,3
CMSEL,A,_NODECM
CMDEL,_NODECM
CMSEL,A,_ELEMCM
CMDEL,_ELEMCM
CMSEL,S,_KPCM
CMDEL,_KPCM
CMSEL,S,_LINECM
CMDEL,_LINECM
CMSEL,S,_AREACM
CMDEL,_AREACM
CMSEL,S,_VOLUCM
CMDEL,_VOLUCM
/GRES,cwz,gsav
CMDEL,_TARGET
CMDEL,_CONTACT
/COM, CONTACT PAIR CREATION - END
EPLOT
SAVE