我做的命令流,楼主看一下,不知道对你有没有帮助。
FINISH
/CLEAR
/PREP7
BLOCK,0,100,0,100,0,50,
BLOCK,0,80,0,80,50,70,
ET,1,SOLID45
MP,EX,1,2.06E5
MP,PRXY,1,0.3
LESIZE,ALL, , ,10, , , , ,1
VSWEEP,ALL
!DEFINE CONTACT
ASEL,S,LOC,Z,50
APLOT
!*
/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
R,3
REAL,3
ET,2,170
ET,3,174
KEYOPT,3,9,0
KEYOPT,3,10,2
R,3,
RMORE,
RMORE,,0
RMORE,0
! Generate the target surface
ASEL,S,,,2
CM,_TARGET,AREA
TYPE,2
NSLA,S,1
ESLN,S,0
ESLL,U
ESEL,U,ENAME,,188,189
ESURF
CMSEL,S,_ELEMCM
! Generate the contact surface
ASEL,S,,,7
CM,_CONTACT,AREA
TYPE,3
NSLA,S,1
ESLN,S,0
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
/MREP,EPLOT
ALLSEL,ALL
FINISH
/SOLU
DA,1,ALL,
DA,3,ALL
DA,9,ALL
SFA,8,1,PRES,100
LSWRITE,1,
SFA,11,1,PRESS,10
LSWRITE,2
SFA,11,1,PRESS,20
LSWRITE,3
SFA,11,1,PRESS,100
LSWRITE,4
FINISH
/SOLU
LSSOLVE,1,4,1
FINISH
/POST1 |