为什么非常简单的接触不工作？

lfzhu

想让一个点推着一个beam弯曲，可是结果显示根本没有接触。求指导！

FINISH  ! Make sure we are at BEGIN level   
/CLEAR,NOSTART  ! Clear model since no SAVE found   

/PREP7  !********************************************
!* -------Element
ET,1,BEAM188
!* -------Material
Mp,ex,1,30e6
mp,PRXY,1,0.3
!* -------Section
SECTYPE,   1, BEAM, CTUBE, Bar, 0   
SECOFFSET, CENT
SECDATA,8.472,8.866,16,0,0,0,0,0,0,0,0,0
!* -------Model
K,101,8.268,0,0
K,102,418.716,0,0

LSTR,101,102

!* -------Mesh
alls
LESIZE,all, , ,10, , , , ,1
LATT,all, 1,1, , , ,1  
LMESH,    all

!* -------Contact
ET,2,169
KEYOPT,2,1
KEYOPT,2,4,11  

ET,3,172
KEYOPT,3,12,0  !0 standard, 5 bond
KEYOPT,3,4,1   !0 gauss point, 1 nodal point
KEYOPT,3,2,0   !0 larglange, 2 mpc       

K,221,383.324,-0.01,0

! Generate the contact surface  
MAT,1   
R,221
REAL,221
TYPE,2  
KMESH,221   

LSEL,S,,,all  
TYPE,3  
NSLL,S,1
ESLN,S,0
ESURF,,bottom   

FINISH  
/SOL !********************************************
!* -------Setting
ANTYPE,0
NLGEOM,1
NSUBST,10,100,10
OUTRES,ERASE
OUTRES,ALL,-10  

!* -------BC & Loading
alls
!DK  on Both and contact
DK,101,,,,0,all
DK,221,,0,,0,ux
DK,221,,0,,0,rotz
DK,221,,4.2287,,0,uy

alls
SOLVE   
FINISH  
save
PARSAV

/POST1  !********************************************
pldisp,2
!*  

lfzhu

自己顶一下