砌体结构Ansys命令流(2)

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

mp,dens,2,7.600

mp,prxy,2,0.30

!real constants

r,1

!*--------------------------------modeling-------------------------------------- !geometry model

block,0,3.12,0,0.24,0,3.12

block,-0.24,3.12,0,0.24,3.12,3.36

Vsel,s,volu,,1,2,1$aslv,s$lsla,s

lesize,all,0.24

Vsel,s,volu,,1$vatt,1,1,1, !brick wall

Vsel,s,volu,,2$vatt,2,1,2, !brick wall

vsel,all !必须再次选择所有单元

VSWEEP,ALL

save

numcmp,all

allsel

!*

/device,vector,1

/eshape,1

!*-----------------------------------耦合--------------------------------------- allsel,all

!elastic support nodes set

esel,s,type,,2$nsle,s,all$nsel,r,loc,z,3.12

nsel,u,loc,x,-0.24$cm,slavenode,node

!other node set

esel,s,type,,1$nsle,s,all$cm,masternode,node

/input,ucouple,mac

save

finish

耦合文件ucouple,mac：

!*-----------------------------------开始--------------------------------------- allsel !最好保留这句命令

!*******将从属节点编号依次存入数组**************** cmsel,s,slavenode

*get,count1_node,node,0,count

*del,slave_node

*dim,slave_node,array,count1_node

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

*do,i,2,count1_node

slave_node(i)=ndnext(slave_node(i-1))

*enddo

!*******将主节点编号依次存入数组****************

allsel