网格划分出问题了

我在算王新敏书上的E8.26时，做了个全模型，而不是1/4，但网格划分只划分了四个角落的，为什么？
finish
/clear
/config,nres,2000
/prep7
!1.定义单元与材料性质--------------------
et,1,solid65,,,,,,,1   !K1=0,1表限制所有输出控制
et,2,link8
mp,ex,1,13585
mp,prxy,1,0.2
fc=14.3
ft=1.43
tb,concr,1 !定义了混凝土材料属性，指定为第一种材料属性
tbdata,,0.5,0.95,ft,-1  !张开传递系数0.5闭合0.95抗拉ft,-1表关闭压碎
tb,miso,1,,11   !11个数据点
tbpt,,0.0002,fc*0.19
tbpt,,0.0004,fc*0.36
tbpt,,0.0006,fc*0.51
tbpt,,0.0008,fc*0.64
tbpt,,0.001,fc*0.75
tbpt,,0.0012,fc*0.84
tbpt,,0.0014,fc*0.91
tbpt,,0.0016,fc*0.96
tbpt,,0.0018,fc*0.99
tbpt,,0.002,fc
tbpt,,0.0033,fc*0.85
mp,ex,2,2.0e5
mp,prxy,2,0.3
tb,biso,2  !定义了双线性等向材料属性,指定为第二种材料属性
tbdata,,300,0 !关于tbdata命令里面C的说明请看tb说明里面相应
          !的specifications中的References:
                            !Bilinear Isotropic Hardening
pi=acos(-1)
r,1,0.25*pi*22*22
r,2,0.25*pi*22*22/2
r,3,0.25*pi*10*10
r,4,0.25*pi*10*10/2
r,5
!2.创建几何模型
blc4,,,150,300,2000   !长宽高
/view,1,1,1,1
/replot
*do,i,1,19
wpoff,,,100!平移（0,0,100）
vsbw,all   !布尔减
*enddo
wpcsys,-1     !把工作平面移到原点
wpoff,,,950  !因为垫板在中央150*100顺梁向100由于是1/4模型，所以
       !有50这个面，Z=0这个面是跨中
vsbw,all
wpoff,,,100
vsbw,all
wpcsys,-1     !把工作平面移到原点
wprota,,-90
wpoff,,,30
vsbw,all
wpoff,,,240
vsbw,all
wpcsys,-1     !把工作平面移到原点
wpoff,30
wprota,,,90
vsbw,all
wpoff,,,45
vsbw,all
wpoff,,,45
vsbw,all
wpcsys,-1
/replot
!3.划分钢筋网格
elemsiz=100
lsel,s,loc,x,30
lsel,r,loc,y,30
cm,zj,line   !定义部件，命名为zj(纵筋)
latt,2,1,2   !2号材料，1号实常数，2号单元
lesize,all,elemsiz      !为线指定网格尺寸

lsel,s,loc,x,75
lsel,r,loc,y,30
cm,zjb,line  !定义部件，命名为zjb(纵筋b)
latt,2,1,2   !2号材料，1号实常数，2号单元
lesize,all,elemsiz      !为线指定网格尺寸

lsel,s,loc,x,120
lsel,r,loc,y,30
cm,zjc,line  !定义部件，命名为zjc(纵筋c)
latt,2,1,2   !2号材料，1号实常数，2号单元
lesize,all,elemsiz      !为线指定网格尺寸


lsel,s,loc,x,30
lsel,r,loc,y,270
cm,jlj,line   !定义部件，命名为jlj(架立筋)
latt,2,3,2
lesize,all,elemsiz    !为线指定网格尺寸

lsel,s,loc,x,120
lsel,r,loc,y,270
cm,jljb,line   !定义部件，命名为jljb(架立筋b)
latt,2,3,2
lesize,all,elemsiz    !为线指定网格尺寸

lsel,s,tan1,z   !根据向量来选择直线
lsel,r,loc,y,30,270
lsel,r,loc,x,30,120
lsel,u,loc,z,950        !u表从选择集中删除
lsel,u,loc,z,1050
lsel,u,loc,z,2000
lsel,u,loc,z,0
lsel,u,loc,x,75
cm,gj,line    !定义部件，命名为gj(箍筋)
latt,2,3,2
lesize,all,elemsiz     !为线指定网格尺寸

lsel,all
cmsel,s,zj
cmsel,a,zjb
cmsel,a,zjc
cmsel,a,jlj
cmsel,a,jljb
cmsel,a,gj
cm,sygj,line
lmesh,all
lsel,all
!4.划分混凝土网格
allsel
vatt,1,5,1
mshkey,1    !1表用映射网格划分
esize,,5   !指定线的缺省划分数目
vmesh,all
allsel,all
C:\Documents and Settings\Administrator\桌面\QQ截图未命名.png