我正在编写一个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