part1实体三维模型的建立.docx

1、part1实体三维模型的建立finish/clear/prep7/nerr,0/VIEW,1,-1 !截面110尺寸*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

2、*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.

3、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),0k,4,-a(1),0$k,5,-5.75,0$k,6,-5.75,-0.2k,7,-a(1),-0.55$k,8,-a(1)+ft(1),-tt(1)-0.3k,9,-a(1)+ft(1)+1.45,-tt(1)$k,10,0,-

4、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.2k,14,-a(1),-h(1)+tbt(1)+0.2k,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,1l,4,5,16,1$l,4,7,3,1$l,5,6,3,1$l,6,7,16,1l,8,9,8,1$l,8,3,3,1$l,8

5、,7,4,1$l,7,14,8,1l,9,2,3,1$l,9,10,8,1$l,8,13,8,1$l,14,13,4,1l,14,15,4,1$l,13,16,4,1$l,15,16,4,1l,13,12,4,1$l,16,17,4,1$l,12,17,4,1l,12,11,16,1$l,17,18,16,1$l,11,18,4,1!纵坐标Z=0.929处截面关键点及线条*do,i,1,9k,zong(i),0,0$k,zong(i),-a(i)+ft(i)+1.45,0k,zong(i),-a(i)+ft(i),0$k,zong(i),-a(i),0k,zong(i),-5.75,0$k,z

6、ong(i),-5.75,-0.2k,zong(i),-a(i),-0.55$k,zong(i),-a(i)+ft(i),-tt(i)-0.3k,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.2k,zong(i),-a(i),-h(i)+tbt(i)+0.2k,zong(i),-a(i),-h(i)$k,zong(i),-a(i)+ft(i),-

7、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,1l,2+18*i,3+18*i,8,1$l,3+18*i,4+18*i,4,1l,4+18*i,5+18*i,16,1$l,4+18*i,7+18*i,3,1l,5+18*i,6+18*i,3,1$l,6+18*i,7+18*i,16,1l,8+18*i,9+18*i,8,1$l,8+18*i,3+18*i,3,1l,8+18*i,7+18*i,4,1$l,7+18*i,14+18*i,8,1l,9+18*i,

8、2+18*i,3,1$l,9+18*i,10+18*i,8,1l,8+18*i,13+18*i,8,1$l,14+18*i,13+18*i,4,1l,14+18*i,15+18*i,4,1$l,13+18*i,16+18*i,4,1l,15+18*i,16+18*i,4,1$l,13+18*i,12+18*i,4,1l,16+18*i,17+18*i,4,1$l,12+18*i,17+18*i,4,1l,12+18*i,11+18*i,16,1$l,17+18*i,18+18*i,16,1l,11+18*i,18+18*i,4,1$*enddo!各位置处关键点连线*do,i,1,18,1*do

9、,j,1,2,1l,i+18*(j-1),i+18*j,4,1*enddo*enddo*do,i,1,18,1*do,j,1,7,1l,i+18*(j+1),i+18*(j+2),10,1*enddo*enddo!生成面(0#6#块节段面)*do,i,1,10,1a,1+(i-1)*18,2+(i-1)*18,9+(i-1)*18,10+(i-1)*18a,2+(i-1)*18,3+(i-1)*18,8+(i-1)*18,9+(i-1)*18a,3+(i-1)*18,4+(i-1)*18,7+(i-1)*18,8+(i-1)*18a,4+(i-1)*18,5+(i-1)*18,6+(i-1)*

10、18,7+(i-1)*18a,7+(i-1)*18,14+(i-1)*18,13+(i-1)*18,8+(i-1)*18a,14+(i-1)*18,13+(i-1)*18,16+(i-1)*18,15+(i-1)*18a,12+(i-1)*18,13+(i-1)*18,16+(i-1)*18,17+(i-1)*18a,11+(i-1)*18,12+(i-1)*18,17+(i-1)*18,18+(i-1)*18*enddo*do,i,1,9,1a,18+(i-1)*18,15+(i-1)*18,33+(i-1)*18,36+(i-1)*18a,11+(i-1)*18,18+(i-1)*18,3

11、6+(i-1)*18,29+(i-1)*18a,11+(i-1)*18,12+(i-1)*18,30+(i-1)*18,29+(i-1)*18a,12+(i-1)*18,13+(i-1)*18,31+(i-1)*18,30+(i-1)*18a,13+(i-1)*18,8+(i-1)*18,26+(i-1)*18,31+(i-1)*18a,9+(i-1)*18,8+(i-1)*18,26+(i-1)*18,27+(i-1)*18a,9+(i-1)*18,10+(i-1)*18,28+(i-1)*18,27+(i-1)*18a,1+(i-1)*18,10+(i-1)*18,28+(i-1)*18,

12、19+(i-1)*18a,1+(i-1)*18,5+(i-1)*18,23+(i-1)*18,19+(i-1)*18a,6+(i-1)*18,7+(i-1)*18,25+(i-1)*18,24+(i-1)*18a,7+(i-1)*18,15+(i-1)*18,33+(i-1)*18,25+(i-1)*18a,5+(i-1)*18,6+(i-1)*18,24+(i-1)*18,23+(i-1)*18*enddoallselasbl,all,all !线条分割面nummrg,all!形成体(0#6#块节段体)allsel*do,i,1,9,1v,1+(i-1)*18,2+(i-1)*18,20+(

13、i-1)*18,19+(i-1)*18,10+(i-1)*18,9+(i-1)*18,27+(i-1)*18,28+(i-1)*18v,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)*18v,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)*18v,4+(i-1)*18,5+(i-1)*18,23+(i-1)*18,22+(i-1)*18,

14、7+(i-1)*18,6+(i-1)*18,24+(i-1)*18,25+(i-1)*18v,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)*18v,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)*18v,34+(i-1)*18,35+(i-1)*18,30+(i-1)*18,31+(i-1)*18,16+(i-1)*18,1

15、7+(i-1)*18,12+(i-1)*18,13+(i-1)*18v,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*enddoallselsave !建立边跨合龙段及现浇段*dim,zongg,array,3zongg(1)=31,33.5,35 !该梁端截面纵桥向坐标*do,i,0,2k,zongg(i+1),0,0$k,zongg(i+1),-a(9)+ft(9)+1.45,0k,zongg(i+1),-a(9)+ft(9),0$k,zongg

16、(i+1),-a(9),0k,zongg(i+1),-5.75,0$k,zongg(i+1),-5.75,-0.2k,zongg(i+1),-a(9),-0.55$k,zongg(i+1),-a(9)+ft(9),-tt(9)-0.3k,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.2k,zongg(i+1),-a

17、(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,12l,1+18*i,10+18*i,3,1$l,1+18*i,2+18*i,8,1l,2+18*i,3+18*i,8,1$l,3+18*i,4+18*i,4,1l,4+18*i,5+18*i,16,1$l,4+18*i,7+18*i,3,1l,5+18*i,6+18*i,3,1$l,6+18*i,7+18

18、*i,16,1l,8+18*i,9+18*i,8,1$l,8+18*i,3+18*i,3,1l,8+18*i,7+18*i,4,1$l,7+18*i,14+18*i,8,1l,9+18*i,2+18*i,3,1$l,9+18*i,10+18*i,8,1l,8+18*i,13+18*i,8,1$l,14+18*i,13+18*i,4,1l,14+18*i,15+18*i,4,1$l,13+18*i,16+18*i,4,1l,15+18*i,16+18*i,4,1$l,13+18*i,12+18*i,4,1l,16+18*i,17+18*i,4,1$l,12+18*i,17+18*i,4,1l,1

19、2+18*i,11+18*i,16,1$l,17+18*i,18+18*i,16,1l,11+18*i,18+18*i,4,1$*enddo*do,i,1,18,1*do,j,1,3,1l,i+18*(j+8),i+18*(j+9),6,1*enddo*enddo*do,i,11,13,1a,1+(i-1)*18,2+(i-1)*18,9+(i-1)*18,10+(i-1)*18a,2+(i-1)*18,3+(i-1)*18,8+(i-1)*18,9+(i-1)*18a,3+(i-1)*18,4+(i-1)*18,7+(i-1)*18,8+(i-1)*18a,4+(i-1)*18,5+(i-1

20、)*18,6+(i-1)*18,7+(i-1)*18a,7+(i-1)*18,14+(i-1)*18,13+(i-1)*18,8+(i-1)*18a,14+(i-1)*18,13+(i-1)*18,16+(i-1)*18,15+(i-1)*18a,12+(i-1)*18,13+(i-1)*18,16+(i-1)*18,17+(i-1)*18a,11+(i-1)*18,12+(i-1)*18,17+(i-1)*18,18+(i-1)*18*enddo*do,i,10,12,1a,18+(i-1)*18,15+(i-1)*18,33+(i-1)*18,36+(i-1)*18a,11+(i-1)*1

21、8,18+(i-1)*18,36+(i-1)*18,29+(i-1)*18a,11+(i-1)*18,12+(i-1)*18,30+(i-1)*18,29+(i-1)*18a,12+(i-1)*18,13+(i-1)*18,31+(i-1)*18,30+(i-1)*18a,13+(i-1)*18,8+(i-1)*18,26+(i-1)*18,31+(i-1)*18a,9+(i-1)*18,8+(i-1)*18,26+(i-1)*18,27+(i-1)*18a,9+(i-1)*18,10+(i-1)*18,28+(i-1)*18,27+(i-1)*18a,1+(i-1)*18,10+(i-1)*

22、18,28+(i-1)*18,19+(i-1)*18a,1+(i-1)*18,5+(i-1)*18,23+(i-1)*18,19+(i-1)*18a,6+(i-1)*18,7+(i-1)*18,25+(i-1)*18,24+(i-1)*18a,7+(i-1)*18,15+(i-1)*18,33+(i-1)*18,25+(i-1)*18a,5+(i-1)*18,6+(i-1)*18,24+(i-1)*18,23+(i-1)*18*enddoallselasbl,all,allnummrg,allallsel*do,i,10,12,1v,1+(i-1)*18,2+(i-1)*18,20+(i-1)

23、*18,19+(i-1)*18,10+(i-1)*18,9+(i-1)*18,27+(i-1)*18,28+(i-1)*18v,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)*18v,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)*18v,4+(i-1)*18,5+(i-1)*18,23+(i-1)*18,22+(i-1)*18,7+(i

24、-1)*18,6+(i-1)*18,24+(i-1)*18,25+(i-1)*18v,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)*18v,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)*18v,34+(i-1)*18,35+(i-1)*18,30+(i-1)*18,31+(i-1)*18,16+(i-1)*18,17+(i

25、-1)*18,12+(i-1)*18,13+(i-1)*18v,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*enddoallselvplot,all /replotsave!建立横隔板!端部横隔板（1.5m厚）a,225,226,227,228$a,224,225,228,229lesize,542,8$lesize,543,8vdrag,405,406,520!墩顶横隔板（1.8m厚）a,10,9,12,11$a,8,9,12,13lesize,

26、557,8$lesize,558,8vdrag,416,417,271!建立桥墩allsellsel,s,loc,x,0,0.9$lsel,r,loc,z,-3.5$lgen,2,all,0,0,-16allsel*do,i,0,3$l,15+i,247+i,60,1$*enddo*do,i,0,3$l,33+i,251+i,60,1$*enddov,15,16,34,33,247,248,252,251v,16,17,35,34,248,249,253,252v,17,18,36,35,249,250,254,253allselsave!定义属性及划分网格 et,1,solid65 !主梁C

27、50MP,EX,1,3.45e10$mp,dens,1,2600$MP,PRXY,1,0.2et,2,solid65 !桥墩C40MP,EX,2,3.25e10$mp,dens,2,2600$MP,PRXY,2,0.2allselvsel,s,loc,z,0,-3.5vatt,1,1,1 !赋予主梁属性allselvsel,s,loc,z,-3.5,-19.5vatt,2,2,2 !赋予桥墩属性allselmshape,0,3d$mshkey,1$allselvmesh,all !划分网格 save!对称生成另一半allselvsel,s,loc,x,0,31$vsymm,x,all$allselvsel,s,loc,x,35,-29wpoffs,-30 ,0,0 !工作平面移至桥中点csys,4 !以工作平面为坐标系vsymm,x,all$allselcsys,0wpcsys,-1 !恢复工作平面allselvsymm,y,all$nummrg,all$eplotallselsave