预应力施加报错，请问大神如何解决

预应力施加的时候，我在网上找了下，大部分都是这个命令流，我在做转向块局部模型建模的时候，用了这段命令流模拟预应力施加，但是每次都是报错，出不了结果，为什么？ cm,cmljnod,node !             *get,max1,node,0,count !       *dim,ojd,,max1 !             *dim,jd,,max1 !                *get,nod1,node,0,num,min ！    ojd(1)=nod1 ！                *do,i,2,max1 ！                ojd(i)=ndnext(ojd(i-1)) !    *enddo allsel,all nsel,all                   cmsel,u,cmljnod             *do,i,1,max1            nod1=ojd(i) !             j=nnear(nod1) !          jd(i)=j !                  *enddo nsel,all ji=1 !                     *do,i,1,max1 ! cp,ji,ux,ojd(i),jd(i) !    cp,ji+1,uy,ojd(i),jd(i) !   cp,ji+2,uz,ojd(i),jd(i) !   ji=ji+3 !                   *enddo