!節點耦合

ALLSEL,ALL!選擇所有

cmsel,s,line1!選擇line1組元

nsll,s,1!選擇力筋線上的所有節點

cm,cmljnod,node !定義節點的結構組（選擇集）  

*get,max1,node,0,count !得到選擇集中的節點數目  

*dim,ojd,,max1 !定義數組ojd(max1)  

*dim,jd,,max1 !定義數組jd(max1)  

*get,nod1,node,0,num,min !取節點選擇集中的最小節點號  

ojd(1)=nod1 !存入數組ojd()  

*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) !找與nod1最近的節點號 

jd(i)=j !存入數組jd()  

*enddo  

nsel,all  

ji=1 !計數器  

*do,i,1,max1  

cp,ji,ux,ojd(i),jd(i)   !耦合ojd(i)和jd(i)的ux  

cp,ji+1,uy,ojd(i),jd(i) !耦合ojd(i)和jd(i)的uy  

cp,ji+2,uz,ojd(i),jd(i) !耦合ojd(i)和jd(i)的uz  

ji=ji+3 !計數器累加  

*enddo  

allsel,all

以上我的命令流，但是在運行計算的提示錯誤，有人知道該怎么處理嗎？