cm,gsnode,node !钢束节点
*get,senum,node,,count
*dim,snode,,senum !钢束节点编号集
*dim,cnode,,senum !与钢束节点耦合节点编号集
*get,nodei,node,,num,min
snode(1)=nodei
*do,i,2,senum
snode(i)=ndnext(snode(i-1))
*enddo
allsel,all
cmsel,u,gsnode
*do,i,1,senum
nodei=snode(i)
nodej=nnear(nodei) !选择与钢束节点最近的混凝土单元节点
cnode(i)=nodej
nsel,u,,,nodej
*enddo
allsel,all
*do,i,1,senum
cp,next,all,snode(i),cnode(i) !耦合节点所有自由度
*enddo