/PREP7  

!*  

MPTEMP,,,,,,,,  

MPTEMP,1,0  

MPDATA,EX,1,,2e11   

MPDATA,PRXY,1,,0.3  

FINISH  

/SOL

*Dim,Prs,array,2,2,0,,,    

*Create,ansuitmp         

*Vread,Prs(1,1),'kpres','txt','',2,,,,,,

(E8.2,E11.3)

*end

/input,ansuitmp

*Do,i,1,2

FLST,2,1,1,ORDE,1   

FITEM,2,1527

!*  

/GO 

F,P51X,FX,prs(1,i) 

FLST,2,1,1,ORDE,1   

FITEM,2,1527

!*  

/GO 

F,P51X,FY,prs(2,i)

/VIEW,  1, -0.492392348312    , -0.810851710223    ,  0.316337287325

/ANG,   1,   47.7252305595  

/REPLO  

FLST,2,1,5,ORDE,1   

FITEM,2,5   

!*  

/GO 

DA,P51X,ALL,

!*  

ANTYPE,0

/STATUS,SOLU

SOLVE 

*enddo 

FINISH 

这是求解加载部分，本意是对一点加x和y向载荷，循环两次。

/post1

*cfopen,yg,txt

*dim,xyz,array,2,1

*do,i,1,2

*get,xyz(i,1),node,1527,u,x 

*vwrite,xyz(i,1)

 (1E23.8)  

*enddo 

*cfclose

这是后处理部分，得到某节点x向位移，也需要循环两次，但是这样我做出来的结果只有第二次循环的，因为这是我的一个小尝试，我真实需要循环一百次以上，不知道我的语句哪里写错了求大神解答。