好心人给俺看看这段程序，边界加载问题

D,DODE,Lab,Value,Value2,NEND,NINC,lab2,lab3,lab4,lab5,lab6详细解释并举例
先谢谢大侠了

遇到什么问题了？
NSEL,S,LOC,Z,KZ(10)
N1MAX=NDINQR(0,13)
*DIM,BANODE,,N1MAX ！定义节点号数组
*GET,NODEI,DODE,,NUM,MIN--------------Node
BANODE(1)=NODEI
*DO,I,2,N1MAX
BANODE(I)=NDNEXT(BANODE(I-1))
*ENDDO
ALLSEL,ALL
*DO,I,1,N1MAX
D,BANODE(I),DZ,1.92E-2+(KZ(I)-(KZ(5)+0.45))*8.54E-4------------uz
D,BANODE(I),DX,6.74E-4----------------ux
D,BANODE(I),DY,6.31E-3------------------uy
*ENDDO

!施加边界1的位移边界条件
*DO,I,1,N1MAX
D,BANODE(I),DZ,1.92E-2+(KZ(I)-(KZ(5)+0.45))*8.54E-4
D,BANODE(I),DX,6.74E-4
D,BANODE(I),DY,6.31E-3
*ENDDO