我正在編寫一個APDL命令，程序準備實現的功能如下：

1，由于是大變形問題，所以采用自適應時間步長

2，在每個substep停下，將發生位移的接觸單元上的載荷去除

3，繼續下一個substep，直到所求的時間為止。

但是我根據這個想法遍了一段命令，卻并不能實現我想的功能，想請問各位專家，問題出在哪里了？

命令如下：

*DO,I,1,3000

*IF,I,EQ,1

/SOLU

ANTYPE,0

TIME,I*DELL
NSUBST,1
KBC,0

OUTRES,ALL,ALL          !SPECIFY FREQUENCY

PSCON,ALL,OFF

NLGEOM,ON

STABILIZE,CONSTANT,ENERGY,0.01,ANYTIME !

RESCONTRL,DEFINE,ALL,ALL,-1

AUTOTS,1

SOLVE

FINI

/POST1

ESEL,S,REAL,,4

ESEL,R,ENAME,,172

*GET,ENUM,ELEM,0,COUNT 

*GET,EMIN,ELEM,0,NUM,MIN      

ETABLE,EDOFX,U,X        

*DO,II,1,ENUM

*GET,UX,ELEM,EMIN,ETAB,EDOFX       

*IF,UX,ABLT,1,THEN

ESEL,U,,,EMIN        

*ENDIF

EMIN=ELNEXT(EMIN)     

*ENDDO

SFEDELE,ALL,ALL,ALL

ALLSEL

LSWRITE,I

FINI

*ELSE

/SOLU

ANTYPE,0,REST

SOLVE

FINI

/POST1

ESEL,S,REAL,,4

ESEL,R,ENAME,,172

*GET,ENUM,ELEM,0,COUNT 

*GET,EMIN,ELEM,0,NUM,MIN      

ETABLE,EDOFX,U,X        

*DO,II,1,ENUM

*GET,UX,ELEM,EMIN,ETAB,EDOFX       

*IF,UX,ABLT,1,THEN

ESEL,U,,,EMIN        

*ENDIF

EMIN=ELNEXT(EMIN)     

*ENDDO

SFEDELE,ALL,ALL,ALL

ALLSEL

LSWRITE,I

FINI

*ENDIF

*ENDDO