$wpoff,,,0.015$vsbw,all $wpoff,,,0.030$vsbw,all $wpoff,,,0.045$vsbw,all $wpoff,,,0.05$vsbw,all
$*do,i,1,12,1$wpoff,,,0.10$vsbw,all$*enddo
$wpstyl,defa$wprota,,-90 $$wpoff,,,0.04$vsbw,all $wpoff,,,0.070$vsbw,all
$wpoff,,,0.015$vsbw,all $wpoff,,,0.030$vsbw,all $wpoff,,,0.045$vsbw,all $wpoff,,,0.05$vsbw,all
$*do,i,1,12,1$wpoff,,,0.10$vsbw,all$*enddo
$$wpstyl,defa$wprota,,,90$wpoff,,,0.075-0.008$vsbw,all $wpoff,,,0.008$vsbw,all
$wpstyl,defa$wprota,,,-90$wpoff,,,0.075-0.008$vsbw,all $wpoff,,,0.008$vsbw,all
$wpstyl,defa$wpoff,,,0.003$vsbw,all $wpstyl,defa$wpoff,,,0.078$vsbw,all
$wpstyl,defa$wprota,,,90$vsbw,all
$wpstyl,defa$wprota,,90 $wpoff,,,0.125+0.06$vsbw,all $wpstyl,defa$wprota,,-90 $wpoff,,,0.125+0.06$vsbw,all
$numcmp,all cm,gzg,volu
!切分柱
cmsel,s,zhuzi,volu$ !画纵筋
$wpstyl,defa$wpoff,0.2$wpoff,,,0.160$vsbw,all$ $wpstyl,defa$wpoff,0.160$wprota,,,90$ vsbw,all $wpstyl,defa$wpoff,-0.16$wprota,,,90$ vsbw,all $wpstyl,defa$wpoff,0.110$wprota,,,90$ vsbw,all $wpstyl,defa$wpoff,-0.11$wprota,,,90$ vsbw,all $wpstyl,defa$wpoff,,,0.078$vsbw,all$
$numcmp,all !画箍筋
$wpstyl,defa$wprota,,90 $wpoff,,,0.04$vsbw,all $wpoff,,,0.070$vsbw,all
$wpoff,,,0.015$vsbw,all
$wpoff,,,0.030$vsbw,all $wpoff,,,0.045$vsbw,all $wpoff,,,0.05$vsbw,all
$*do,i,1,12,1$wpoff,,,0.10$vsbw,all$*enddo
$wpstyl,defa$wprota,,-90 $$wpoff,,,0.04$vsbw,all $wpoff,,,0.070$vsbw,all
$wpoff,,,0.015$vsbw,all
$wpoff,,,0.030$vsbw,all $wpoff,,,0.045$vsbw,all $wpoff,,,0.05$vsbw,all
$*do,i,1,12,1$wpoff,,,0.10$vsbw,all$*enddo
$$wpstyl,defa$wprota,,,90$wpoff,,,0.075-0.008$vsbw,all $wpoff,,,0.008$vsbw,all
$wpstyl,defa$wprota,,,-90$wpoff,,,0.075-0.008$vsbw,all
$wpoff,,,0.008$vsbw,all
$wpstyl,defa$wpoff,,,0.003$vsbw,all
$wpstyl,defa$wprota,,,90$vsbw,all
$wpstyl,defa$wpoff,0.2-0.01$wprota,,,90$ vsbw,all $wpstyl,defa$wpoff,-0.2+0.01$wprota,,,90$ vsbw,all $wpstyl,defa$wpoff,0.2$wpoff,,,0.2-0.01$vsbw,all$ $wpstyl,defa$wprota,,90 $wpoff,,,0.125+0.06$vsbw,all $wpstyl,defa$wprota,,-90 $wpoff,,,0.125+0.06$vsbw,all
$numcmp,all cm,zhuzi,volu
!!!!!!!!!!赋钢筋单元属性并划分网格!!!!!!!!! elemsiz=50e-3
lsel,s,loc,x,-0.16$lsel,r,loc,z,0.078$cm,waizj1,line$latt,4,3,3,0$lesize,all,elemsiz
lsel,s,loc,x,-0.16$lsel,r,loc,z,0.16$cm,waizj2,line $latt,4,3,3,0$lesize,all,elemsiz
lsel,s,loc,x,-0.11$lsel,r,loc,z,0.16$cm,waizj3,line $latt,4,3,3,0$lesize,all,elemsiz
lsel,s,loc,x,0.16$lsel,r,loc,z,0.078$cm,ywaizj1,line$latt,4,3,3,0$lesize,all,elemsiz
lsel,s,loc,x,0.16$lsel,r,loc,z,0.16$cm,ywaizj2,line $latt,4,3,3,0$lesize,all,elemsiz
lsel,s,loc,x,0.11$lsel,r,loc,z,0.16$cm,ywaizj3,line $latt,4,3,3,0$lesize,all,elemsiz
$cmsel,s,waizj1,line$$cmsel,a,waizj2,line$$cmsel,a,waizj3,line$ $cmsel,a,ywaizj1,line$$cmsel,a,ywaizj2,line$$cmsel,a,ywaizj3,line$ $cm,zj,line
!节点外域箍筋
lsel,s,tan1,y !对称外定义箍筋 $lsel,u,loc,x,-2.25,-0.161 $lsel,u,loc,x, 0.161,2.25