lsel,s,,,75 !选择钢筋线
nsll,s,1 !选择钢筋线上的节点
cm,cmljnod1,node !定义选择集
*get,max1,node,0,count !得到选择集中的节点数目
*dim,ojd1,,max1 !定义数组ojd1(max1)
*dim,jd1,,max1 !定义数组jd1(max1)
*get,nod1,node,0,num,min !取节点选择集中的最小节点号
ojd1(1)=nod1 !存入数组ojd()
*do,i,2,max1 !循环取得剩余的节点号
ojd1(i)=ndnext(ojd1(i-1))
*enddo
allsel,all
nsel,all !选择所有节点
cmsel,u,cmljnod1 !排除钢筋节点
*do,i,1,max1 !搜寻距离钢筋节点最近的混凝土节点号
nod1=ojd1(i) !临时变量
j=nnear(nod1) !找与nod1最近的节点号
jd1(i)=j !存入数组jd()
*enddo
nsel,all
ji=1 !计数器
*do,i,1,max1
cp,ji,ux,ojd1(i),jd1(i) !耦合ojd(i)和jd(i)的ux
cp,ji+1,uy,ojd1(i),jd1(i) !耦合ojd(i)和jd(i)的uy
cp,ji+2,uz,ojd1(i),jd1(i) !耦合ojd(i)和jd(i)的uz
ji=ji+3 !计数器累加
*enddo
allsel,all
lsel,s,,,64 !选择钢筋线
nsll,s,1 !选择钢筋线上的节点
cm,cmljnod2,node !定义选择集
*get,max2,node,0,count !得到选择集中的节点数目
*dim,ojd2,,max2 !定义数组ojd2(max1)
*dim,jd2,,max2 !定义数组jd2(max1)
*get,nod2,node,0,num,min !取节点选择集中的最小节点号
ojd2(1)=nod2 !存入数组ojd2()
*do,i,2,max2 !循环取得剩余的节点号
ojd2(i)=ndnext(ojd2(i-1))
*enddo
allsel,all
nsel,all !选择所有节点
cmsel,u,cmljnod2 !排除钢筋节点
*do,i,1,max2 !搜寻距离钢筋节点最近的混凝土节点号
nod2=ojd2(i) !临时变量
j=nnear(nod2) !找与nod2最近的节点号
jd2(i)=j !存入数组jd()
*enddo
nsel,all
ji=1 !计数器
*do,i,1,max2
cp,ji,ux,ojd2(i),jd2(i) !耦合ojd(i)和jd(i)的ux
cp,ji+1,uy,ojd2(i),jd2(i) !耦合ojd(i)和jd(i)的uy
cp,ji+2,uz,ojd2(i),jd2(i) !耦合ojd(i)和jd(i)的uz
ji=ji+3 !计数器累加
*enddo
allsel,all |