part1实体三维模型的建立.docx
《part1实体三维模型的建立.docx》由会员分享,可在线阅读,更多相关《part1实体三维模型的建立.docx(11页珍藏版)》请在冰豆网上搜索。
part1实体三维模型的建立
finish
/clear
/prep7
/nerr,0
/VIEW,1,,-1
!
~~~~~~~~~~~~~~~~~~~截面1~10尺寸~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
*dim,a,array,10!
截面顶板半宽-翼缘板外挑净宽
a
(1)=3.25,3.25,3.25,3.25,3.25,3.25,3.25,3.25,3.25,3.25
*dim,b,array,10!
截面底板半宽
b
(1)=3.25,3.25,3.25,3.25,3.25,3.25,3.25,3.25,3.25,3.25
*dim,tt,array,10!
截面顶板厚度
tt
(1)=0.55,0.498,0.28,0.28,0.28,0.28,0.28,0.28,0.28,0.55
*dim,ft,array,10!
截面腹板厚度
ft
(1)=0.8,0.771,0.55,0.55,0.55,0.55,0.55,0.55,0.55,0.8
*dim,tbt,array,10!
截面底板厚度
tbt
(1)=1,0.6,0.498,0.431,0.375,0.325,0.289,0.267,0.26,0.6
*dim,h,array,10!
截面箱梁高度
h
(1)=3.5,3.5,3.049,2.754,2.508,2.286,2.127,2.032,2,2
*dim,sjy,arry,10!
上倒角点竖标
sjy
(1)=-0.85,-0.798,-0.58,-0.58,-0.58,-0.58,-0.58,-0.58,-0.58,-0.58
*dim,zong,array,9!
截面纵桥向坐标
zong
(1)=0.9,1.5,6,9.5,13,17,21,25,29
!
~~~~~~~~~~~~~~~生成0#~6#块截面关键点~~~~~~~~~~~~~~~~~~~~~~~
!
左墩顶截面(z=0)处关键点及线条
!
X-纵桥向,Y-横桥向,Z-竖向
k,1,0,0$k,2,,-a
(1)+ft
(1)+1.45,0$k,3,,-a
(1)+ft
(1),0
k,4,,-a
(1),0$k,5,,-5.75,0$k,6,,-5.75,-0.2
k,7,,-a
(1),-0.55$k,8,,-a
(1)+ft
(1),-tt
(1)-0.3
k,9,,-a
(1)+ft
(1)+1.45,-tt
(1)$k,10,,0,-tt
(1)
k,11,,0,-h
(1)+tbt
(1)$k,12,,-a
(1)+ft
(1)+0.4,-h
(1)+tbt
(1)
k,13,,-a
(1)+ft
(1),-h
(1)+tbt
(1)+0.2
k,14,,-a
(1),-h
(1)+tbt
(1)+0.2
k,15,,-a
(1),-h
(1)$k,16,,-a
(1)+ft
(1),-h
(1)
k,17,,-a
(1)+ft
(1)+0.4,-h
(1)$k,18,,0,-h
(1)
l,1,10,3,1$l,1,2,8,1$l,2,3,8,1$l,3,4,4,1
l,4,5,16,1$l,4,7,3,1$l,5,6,3,1$l,6,7,16,1
l,8,9,8,1$l,8,3,3,1$l,8,7,4,1$l,7,14,8,1
l,9,2,3,1$l,9,10,8,1$l,8,13,8,1$l,14,13,4,1
l,14,15,4,1$l,13,16,4,1$l,15,16,4,1
l,13,12,4,1$l,16,17,4,1$l,12,17,4,1
l,12,11,16,1$l,17,18,16,1$l,11,18,4,1
!
纵坐标Z=0.9~29处截面关键点及线条
*do,i,1,9
k,,zong(i),0,0$k,,zong(i),-a(i)+ft(i)+1.45,0
k,,zong(i),-a(i)+ft(i),0$k,,zong(i),-a(i),0
k,,zong(i),-5.75,0$k,,zong(i),-5.75,-0.2
k,,zong(i),-a(i),-0.55$k,,zong(i),-a(i)+ft(i),-tt(i)-0.3
k,,zong(i),-a(i)+ft(i)+1.45,-tt(i)
k,,zong(i),0,-tt(i)$k,,zong(i),0,-h(i)+tbt(i)
k,,zong(i),-a(i)+ft(i)+0.4,-h(i)+tbt(i)
k,,zong(i),-a(i)+ft(i),-h(i)+tbt(i)+0.2
k,,zong(i),-a(i),-h(i)+tbt(i)+0.2
k,,zong(i),-a(i),-h(i)$k,,zong(i),-a(i)+ft(i),-h(i)
k,,zong(i),-a(i)+ft(i)+0.4,-h(i)$k,,zong(i),0,-h(i)
l,1+18*i,10+18*i,3,1$l,1+18*i,2+18*i,8,1
l,2+18*i,3+18*i,8,1$l,3+18*i,4+18*i,4,1
l,4+18*i,5+18*i,16,1$l,4+18*i,7+18*i,3,1
l,5+18*i,6+18*i,3,1$l,6+18*i,7+18*i,16,1
l,8+18*i,9+18*i,8,1$l,8+18*i,3+18*i,3,1
l,8+18*i,7+18*i,4,1$l,7+18*i,14+18*i,8,1
l,9+18*i,2+18*i,3,1$l,9+18*i,10+18*i,8,1
l,8+18*i,13+18*i,8,1$l,14+18*i,13+18*i,4,1
l,14+18*i,15+18*i,4,1$l,13+18*i,16+18*i,4,1
l,15+18*i,16+18*i,4,1$l,13+18*i,12+18*i,4,1
l,16+18*i,17+18*i,4,1$l,12+18*i,17+18*i,4,1
l,12+18*i,11+18*i,16,1$l,17+18*i,18+18*i,16,1
l,11+18*i,18+18*i,4,1$*enddo
!
各位置处关键点连线
*do,i,1,18,1
*do,j,1,2,1
l,i+18*(j-1),i+18*j,4,1
*enddo
*enddo
*do,i,1,18,1
*do,j,1,7,1
l,i+18*(j+1),i+18*(j+2),10,1
*enddo
*enddo
!
生成面(0#~6#块节段面)
*do,i,1,10,1
a,1+(i-1)*18,2+(i-1)*18,9+(i-1)*18,10+(i-1)*18
a,2+(i-1)*18,3+(i-1)*18,8+(i-1)*18,9+(i-1)*18
a,3+(i-1)*18,4+(i-1)*18,7+(i-1)*18,8+(i-1)*18
a,4+(i-1)*18,5+(i-1)*18,6+(i-1)*18,7+(i-1)*18
a,7+(i-1)*18,14+(i-1)*18,13+(i-1)*18,8+(i-1)*18
a,14+(i-1)*18,13+(i-1)*18,16+(i-1)*18,15+(i-1)*18
a,12+(i-1)*18,13+(i-1)*18,16+(i-1)*18,17+(i-1)*18
a,11+(i-1)*18,12+(i-1)*18,17+(i-1)*18,18+(i-1)*18
*enddo
*do,i,1,9,1
a,18+(i-1)*18,15+(i-1)*18,33+(i-1)*18,36+(i-1)*18
a,11+(i-1)*18,18+(i-1)*18,36+(i-1)*18,29+(i-1)*18
a,11+(i-1)*18,12+(i-1)*18,30+(i-1)*18,29+(i-1)*18
a,12+(i-1)*18,13+(i-1)*18,31+(i-1)*18,30+(i-1)*18
a,13+(i-1)*18,8+(i-1)*18,26+(i-1)*18,31+(i-1)*18
a,9+(i-1)*18,8+(i-1)*18,26+(i-1)*18,27+(i-1)*18
a,9+(i-1)*18,10+(i-1)*18,28+(i-1)*18,27+(i-1)*18
a,1+(i-1)*18,10+(i-1)*18,28+(i-1)*18,19+(i-1)*18
a,1+(i-1)*18,5+(i-1)*18,23+(i-1)*18,19+(i-1)*18
a,6+(i-1)*18,7+(i-1)*18,25+(i-1)*18,24+(i-1)*18
a,7+(i-1)*18,15+(i-1)*18,33+(i-1)*18,25+(i-1)*18
a,5+(i-1)*18,6+(i-1)*18,24+(i-1)*18,23+(i-1)*18
*enddo
allsel
asbl,all,all!
线条分割面
nummrg,all
!
形成体(0#~6#块节段体)
allsel
*do,i,1,9,1
v,1+(i-1)*18,2+(i-1)*18,20+(i-1)*18,19+(i-1)*18,10+(i-1)*18,9+(i-1)*18,27+(i-1)*18,28+(i-1)*18
v,2+(i-1)*18,3+(i-1)*18,21+(i-1)*18,20+(i-1)*18,9+(i-1)*18,8+(i-1)*18,26+(i-1)*18,27+(i-1)*18
v,3+(i-1)*18,4+(i-1)*18,22+(i-1)*18,21+(i-1)*18,8+(i-1)*18,7+(i-1)*18,25+(i-1)*18,26+(i-1)*18
v,4+(i-1)*18,5+(i-1)*18,23+(i-1)*18,22+(i-1)*18,7+(i-1)*18,6+(i-1)*18,24+(i-1)*18,25+(i-1)*18
v,25+(i-1)*18,26+(i-1)*18,31+(i-1)*18,32+(i-1)*18,7+(i-1)*18,8+(i-1)*18,13+(i-1)*18,14+(i-1)*18
v,31+(i-1)*18,32+(i-1)*18,33+(i-1)*18,34+(i-1)*18,13+(i-1)*18,14+(i-1)*18,15+(i-1)*18,16+(i-1)*18
v,34+(i-1)*18,35+(i-1)*18,30+(i-1)*18,31+(i-1)*18,16+(i-1)*18,17+(i-1)*18,12+(i-1)*18,13+(i-1)*18
v,30+(i-1)*18,29+(i-1)*18,36+(i-1)*18,35+(i-1)*18,12+(i-1)*18,11+(i-1)*18,18+(i-1)*18,17+(i-1)*18
*enddo
allsel
save
!
~~~~~~~~~~~~~~~~~~~~建立边跨合龙段及现浇段~~~~~~~~~~~~~~~~~~~~~~
*dim,zongg,array,3
zongg
(1)=31,33.5,35!
该梁端截面纵桥向坐标
*do,i,0,2
k,,zongg(i+1),0,0$k,,zongg(i+1),-a(9)+ft(9)+1.45,0
k,,zongg(i+1),-a(9)+ft(9),0$k,,zongg(i+1),-a(9),0
k,,zongg(i+1),-5.75,0$k,,zongg(i+1),-5.75,-0.2
k,,zongg(i+1),-a(9),-0.55$k,,zongg(i+1),-a(9)+ft(9),-tt(9)-0.3
k,,zongg(i+1),-a(9)+ft(9)+1.45,-tt(9)$k,,zongg(i+1),0,-tt(9)
k,,zongg(i+1),0,-h(9)+tbt(9)$k,,zongg(i+1),-a(9)+ft(9)+0.4,-h(9)+tbt(9)
k,,zongg(i+1),-a(9)+ft(9),-h(9)+tbt(9)+0.2
k,,zongg(i+1),-a(9),-h(9)+tbt(9)+0.2$k,,zongg(i+1),-a(9),-h(9)
k,,zongg(i+1),-a(9)+ft(9),-h(9)$k,,zongg(i+1),-a(9)+ft(9)+0.4,-h(9)
k,,zongg(i+1),0,-h(9)$*enddo
*do,i,10,12
l,1+18*i,10+18*i,3,1$l,1+18*i,2+18*i,8,1
l,2+18*i,3+18*i,8,1$l,3+18*i,4+18*i,4,1
l,4+18*i,5+18*i,16,1$l,4+18*i,7+18*i,3,1
l,5+18*i,6+18*i,3,1$l,6+18*i,7+18*i,16,1
l,8+18*i,9+18*i,8,1$l,8+18*i,3+18*i,3,1
l,8+18*i,7+18*i,4,1$l,7+18*i,14+18*i,8,1
l,9+18*i,2+18*i,3,1$l,9+18*i,10+18*i,8,1
l,8+18*i,13+18*i,8,1$l,14+18*i,13+18*i,4,1
l,14+18*i,15+18*i,4,1$l,13+18*i,16+18*i,4,1
l,15+18*i,16+18*i,4,1$l,13+18*i,12+18*i,4,1
l,16+18*i,17+18*i,4,1$l,12+18*i,17+18*i,4,1
l,12+18*i,11+18*i,16,1$l,17+18*i,18+18*i,16,1
l,11+18*i,18+18*i,4,1$*enddo
*do,i,1,18,1
*do,j,1,3,1
l,i+18*(j+8),i+18*(j+9),6,1
*enddo
*enddo
*do,i,11,13,1
a,1+(i-1)*18,2+(i-1)*18,9+(i-1)*18,10+(i-1)*18
a,2+(i-1)*18,3+(i-1)*18,8+(i-1)*18,9+(i-1)*18
a,3+(i-1)*18,4+(i-1)*18,7+(i-1)*18,8+(i-1)*18
a,4+(i-1)*18,5+(i-1)*18,6+(i-1)*18,7+(i-1)*18
a,7+(i-1)*18,14+(i-1)*18,13+(i-1)*18,8+(i-1)*18
a,14+(i-1)*18,13+(i-1)*18,16+(i-1)*18,15+(i-1)*18
a,12+(i-1)*18,13+(i-1)*18,16+(i-1)*18,17+(i-1)*18
a,11+(i-1)*18,12+(i-1)*18,17+(i-1)*18,18+(i-1)*18
*enddo
*do,i,10,12,1
a,18+(i-1)*18,15+(i-1)*18,33+(i-1)*18,36+(i-1)*18
a,11+(i-1)*18,18+(i-1)*18,36+(i-1)*18,29+(i-1)*18
a,11+(i-1)*18,12+(i-1)*18,30+(i-1)*18,29+(i-1)*18
a,12+(i-1)*18,13+(i-1)*18,31+(i-1)*18,30+(i-1)*18
a,13+(i-1)*18,8+(i-1)*18,26+(i-1)*18,31+(i-1)*18
a,9+(i-1)*18,8+(i-1)*18,26+(i-1)*18,27+(i-1)*18
a,9+(i-1)*18,10+(i-1)*18,28+(i-1)*18,27+(i-1)*18
a,1+(i-1)*18,10+(i-1)*18,28+(i-1)*18,19+(i-1)*18
a,1+(i-1)*18,5+(i-1)*18,23+(i-1)*18,19+(i-1)*18
a,6+(i-1)*18,7+(i-1)*18,25+(i-1)*18,24+(i-1)*18
a,7+(i-1)*18,15+(i-1)*18,33+(i-1)*18,25+(i-1)*18
a,5+(i-1)*18,6+(i-1)*18,24+(i-1)*18,23+(i-1)*18
*enddo
allsel
asbl,all,all
nummrg,all
allsel
*do,i,10,12,1
v,1+(i-1)*18,2+(i-1)*18,20+(i-1)*18,19+(i-1)*18,10+(i-1)*18,9+(i-1)*18,27+(i-1)*18,28+(i-1)*18
v,2+(i-1)*18,3+(i-1)*18,21+(i-1)*18,20+(i-1)*18,9+(i-1)*18,8+(i-1)*18,26+(i-1)*18,27+(i-1)*18
v,3+(i-1)*18,4+(i-1)*18,22+(i-1)*18,21+(i-1)*18,8+(i-1)*18,7+(i-1)*18,25+(i-1)*18,26+(i-1)*18
v,4+(i-1)*18,5+(i-1)*18,23+(i-1)*18,22+(i-1)*18,7+(i-1)*18,6+(i-1)*18,24+(i-1)*18,25+(i-1)*18
v,25+(i-1)*18,26+(i-1)*18,31+(i-1)*18,32+(i-1)*18,7+(i-1)*18,8+(i-1)*18,13+(i-1)*18,14+(i-1)*18
v,31+(i-1)*18,32+(i-1)*18,33+(i-1)*18,34+(i-1)*18,13+(i-1)*18,14+(i-1)*18,15+(i-1)*18,16+(i-1)*18
v,34+(i-1)*18,35+(i-1)*18,30+(i-1)*18,31+(i-1)*18,16+(i-1)*18,17+(i-1)*18,12+(i-1)*18,13+(i-1)*18
v,30+(i-1)*18,29+(i-1)*18,36+(i-1)*18,35+(i-1)*18,12+(i-1)*18,11+(i-1)*18,18+(i-1)*18,17+(i-1)*18
*enddo
allsel
vplot,all
/replot
save
!
~~~~~~~~~~~~~~~~~~~~~~~~~建立横隔板~~~~~~~~~~~~~~~~~~~~~~~~~~
!
端部横隔板(1.5m厚)
a,225,226,227,228$a,224,225,228,229
lesize,542,,,8$lesize,543,,,8
vdrag,405,406,,,,,520
!
墩顶横隔板(1.8m厚)
a,10,9,12,11$a,8,9,12,13
lesize,557,,,8$lesize,558,,,8
vdrag,416,417,,,,,271
!
~~~~~~~~~~~~~~~~~~~~~~~~~建立桥墩~~~~~~~~~~~~~~~~~~~~~~~~~~~~
allsel
lsel,s,loc,x,0,0.9$lsel,r,loc,z,-3.5$lgen,2,all,,,0,0,-16
allsel
*do,i,0,3$l,15+i,247+i,60,1$*enddo
*do,i,0,3$l,33+i,251+i,60,1$*enddo
v,15,16,34,33,247,248,252,251
v,16,17,35,34,248,249,253,252
v,17,18,36,35,249,250,254,253
allsel
save
!
~~~~~~~~~~~~~~~~~~~~~定义属性及划分网格~~~~~~~~~~~~~~~~~~~~~~
et,1,solid65!
主梁C50
MP,EX,1,3.45e10$mp,dens,1,2600$MP,PRXY,1,0.2
et,2,solid65!
桥墩C40
MP,EX,2,3.25e10$mp,dens,2,2600$MP,PRXY,2,0.2
allsel
vsel,s,loc,z,0,-3.5
vatt,1,1,1!
赋予主梁属性
allsel
vsel,s,loc,z,-3.5,-19.5
vatt,2,2,2!
赋予桥墩属性
allsel
mshape,0,3d$mshkey,1$allsel
vmesh,all!
划分网格
save
!
!
!
~~~~~~~~~~~~~~~~~~~~~对称生成另一半~~~~~~~~~~~~~~~~~~~~~~~~~
allsel
vsel,s,loc,x,0,31$vsymm,x,all$allsel
vsel,s,loc,x,35,-29
wpoffs,-30,0,0!
工作平面移至桥中点
csys,4!
以工作平面为坐标系
vsymm,x,all$allsel
csys,0
wpcsys,-1!
恢复工作平面
allsel
vsymm,y,all$nummrg,all$eplot
allsel
save