砌体结构Ansys命令流(3)

砌体结构整体式建模,ansys命令流

cmsel,s,masternode

*get,count2_node,node,0,count

*del,master_node

*dim,master_node,array,count2_node

*get,master_node(1),node,0,num,min

*do,i,2,count2_node

master_node(i)=ndnext(master_node(i-1))

*enddo

!********将与从属节点耦合的节点数组初始化**************** *del,cp_node

*dim,cp_node,array,count1_node

*do,i,1,count1_node

cp_node(i)=0

*enddo

!*********开始选择程序****************

allsel

cmsel,s,masternode

*do,i,1,count1_node

kk=1

k=1

*dowhile,kk

k=nnear(slave_node(i))

nsel,s,cp,,all

kk=nsel(k)+0.001

allsel

cmsel,s,masternode

nsel,u,node,,k

cm,masternode,node

*enddo

cp_node(i)=k

*enddo

!*******选择完毕****************

!*******开始耦合****************

allsel,all

/prep7

*do,i,1,count1_node

cp,next,UX,slave_node(i),cp_node(i)

cp,next,UY,slave_node(i),cp_node(i)

cp,next,UZ,slave_node(i),cp_node(i)

*enddo

!*******耦合完毕****************