钢筋与混凝土如何进行节点耦合？ 100

!节点耦合

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

以上我的命令流，但是在运行计算的提示错误，有人知道该怎么处理吗？