杆梁壳体单元连接

杆梁壳体单元连接fini$/clear$/prep7l1=0.8$l2=2$l3=1h1=3$h2=1.2$b=1.5et,1,solid95$et,2,link8et,3,beam4mp,ex,1,3.3e10mp,prxy,1,0.2mp,ex,2,2.1e11mp,prxy,2,0.3*afun,radr,1,0.25*acos(-1)*(0.16*0.16-0.144*0.144)r,2,0.00908,2.14e-3,1.45e-2,0.3,0.2rmore,,6.52e-5r,3,0.00908,1.45e-2,2.14e-3,0.2,0.3rmore,,6.52e-5/view,,1,1,1/ang,,-120,zs,1blc4,,,l1,b,h1wpoff,,,h1-h2vsbw,allwpcsys,-1k,20,l1+l2,,h1k,21,l1+l2+l3,,h1k,22,l1+l2+2*l3,,h1k,23,l1+l2+3*l3,,h1kgen,2,20,23,1,,b,,4k,28,l1+l2+3*l3,b/2,h1k,29,l1+l2+3*l3,b/2,0l,6,20$l,12,20*do,i,20,22l,i,i+1*enddol,7,24l,11,24*do,i,24,26l,i,i+1*enddol,6,24*do,i,20,22,1l,i,i+4*enddol,23,28l,28,27l,28,29dk,29,allda,1,alllplotksel,s,,,20,23fk,all,fz,-3e4ksel,s,,,24,27fk,all,fz,-2e4fk,23,fx,10e4fk,27,my,1e3esize,0.2mshape,0mshkey,1vatt,1,,1vmesh,alllsel,s,loc,x,l1+0.1,l1+l2lsel,a,loc,x,l1+l2+l3lsel,a,loc,x,l1+l2+2*l3cm,lk,linelatt,2,1,2lesize,all,,,1lmesh,alllsel,s,loc,x,l1+0.1,l1+l2+3*l3cmsel,u,lk$lsel,u,loc,z,0,h1/2+0.1latt,2,2,3lesize,all,,,4lmesh,alllsel,s,loc,x,l1+l2+3*l3lsel,r,loc,z,0,h1/2+0.1latt,2,3,3lesize,all,,,4lmesh,allallsel,allfini/soluallsel,allsolvefini/post1pldisp,1fini$/clear$/prep7l1=2$l2=4$b=1.6$h=2et,1,solid95$et,2,beam4mp,ex,1,3.3e10mp,prxy,1,0.2mp,ex,2,2.1e11mp,prxy,2,0.3r,1,0.00908,2.14e-3,1.45e-2,0.3,0.2rmore,,6.52e-5/view,,1,1,1/ang,,-120,zs,1blc4,,,l1,b,h$wpoff,,,h/2vsbw,allwpoff,,b/2$wprota,,90vsbw,allwpcsys,-1k,50,l1+l2/2,b/2,h/2k,51,l1+l2,b/2,h/2l,16,50l,50,51asel,s,loc,x,0da,all,alldk,51,allfk,50,fy,2e4fk,50,fx,1e4fk,50,mx,1.5e4vsel,allvatt,1,,1esize,0.2mshpe,0$mshkey,1vmesh,alllsel,s,loc,x,l1+0.1,l1+l2latt,2,1,2lesize,all,,,4lmesh,allallsel,allfini/soluallselsolvefini/post1pldisp,1etable,fxi,smisc,1$etable,fxj,smisc,7etable,fyi,smisc,2$etable,fyj,smisc,8etable,fzi,smisc,3$etable,fzj,smisc,9etable,mxi,smisc,4$etable,mxj,smisc,10etable,myi,smisc,5$etable,myj,smisc,11etable,mzi,smisc,6$etable,mzj,smisc,12plls,myi,myj$plls,mzi,mzjfini$/clear$/prep7l1=0.5$l2=2$h1=0.6$h2=0.02$t=0.016q0=3000$q=q0*ta0=t*h2$i0=t*h2*h2*h2/12et,1,beam3$et,2,plane42,,,3mp,ex,1,2.1e11$mp,prxy,1,0.3r,1,t$r,2,a0,i0,h2blc4,,,l1,h1wpoff,,h1/2wprota,,90asbw,allwpcsys,-1k,50,l1+l2,h1/2ksel,s,loc,x,l1ksel,r,loc,y,h1/2*get,kp0,kp,,num,maxksel,alll,kp0,50lsel,s,loc,y,h1/2lsel,r,loc,x,l1,l1+l2cm,lk,linelatt,1,2,1lesize,all,,,10lmesh,allasel,allaatt,1,1,2esize,0.1mshpe,0mshkey,1amesh,all/eshape,1lsel,s,loc,x,0dl,all,,allcmsel,s,lkesll,ssfbeam,all,1,pres,qksel,s,,,kp0nslk,s*get,n1,node,,num,maxnsel,s,loc,x,l1$nsel,r,loc,y,h1/2,h1n2=nnear(n1)nsel,s,loc,x,l1$nsel,r,loc,y,0,h1/2n3=nnear(n1)ce,1,0,n2,ux,1,n3,ux,-1,n1,rotz,ny(n2)-ny(n3)eplotallsel,allfini/solusolve/post1pldisp,1fini$/clear$/prep7l1=0.5$l2=2$h1=0.6$h2=0.02$t=0.016q0=3000$q=q0*ta0=t*h2$i0=t*h2*h2*h2/12et,1,beam3$et,2,plane42,,,3mp,ex,1,2.1e11$mp,prxy,1,0.3r,1,t$r,2,a0,i0,h2$r,3,a0,1e4*i0,h2blc4,,,l1,h1wpoff,,h1/2wprota,,90asbw,allwpcsys,-1k,50,l1+l2,h1/2ksel,s,loc,x,l1ksel,r,loc,y,h1/2*get,kp0,kp,,num,maxksel,alll,kp0,50lsel,s,loc,y,h1/2lsel,r,loc,x,l1,l1+l2cm,lk,linelatt,1,2,1lesize,all,,,10lmesh,allasel,allaatt,1,1,2esize,0.1mshpe,0mshkey,1amesh,all/eshape,1type,1real,3e,24,1lsel,s,loc,x,0dl,all,,allcmsel,s,lkesll,ssfbeam,all,1,pres,qallsel,allfini/solusolve/post1pldisp,1fini$/clear$/prep7l1=1.4$t=0.02$l2=1$r=0.1$p=20000$q=3000et,1,shell63,,,2$et,2,beam189mp,ex,1,2.1e11$mp,prxy,1,0.3r,1,tsectype,1,beam,csolidsecdata,rblc5,,,l1,l1wprota,,90asbw,allwprota,,,90asbw,allwpcsys,-1k,50,,,l2+t/2kp0=kp(0,0,0)l,50,kp0lsel,s,loc,z,0.1,10latt,1,,2,,,,1$lesize,all,,,4lmesh,allaatt,1,1,1esize,0.1mshpe,0$mshkey,1amesh,alldk,50,allfk,1,fy,pfk,4,fx,pfk,3,fy,-pfk,2,fx,-pfk,4,fz,-qallsel,all/pbc,f,,2/pbc,u,,2ftrandtran/eshape,1ce,1,0,143,ux,1,23,ux,-1,2,rotz,ny(143)-ny(23)ce,2,0,92,uy,1,30,uy,-1,2,rotz,-(nx(92)-nx(30))fini/soluallselsolvefini/post1pldisp,1fini$/clear$/prep7l=500$b1=200$b2=12$t=2$h=15q1=0.01$q2=10et,1,shell63$et,2,beam188mp,ex,1,2e5$mp,prxy,1,0.3r,1,tsectype,1,beam,rectsecdata,b2,h,3,3secoffset,user,0,h/2+t/2wprota,,90rectng,-b1/2,b1/2,0,lwprota,,,90asbw,allwpcsys,-1lsel,s,tan1,xlesize,all,,,50lsel,s,tan1,zlesize,all,,,10aatt,1,1,1amesh,allk,100,,100,100lsel,s,loc,x,0latt,1,,2,,100,,1lmesh,all/eshape,1lsel,s,loc,z,0dl,all,,alllsel,s,loc,x,b1/2sfl,all,pres,q2sfa,all,1,pres,q1allsel,allfini/soluallselsolvefini/post1pldisp,1fini$/clear$/prep7b0=0.1$h0=0.09$t0=0.01$l0=3et,1,shell63,,,2$et,2,beam188$et,3,mpc184,1mp,ex,1,2.1e11$mp,prxy,1,0.3r,1,t0sectype,1,beam,isecdata,b0,b0,h0,t0,t0,t0wprota,,90$blc4,,,b0,l0/2agen,2,all,,,,h0-t0wpoff,b0/2$wprota,,,90$blc4,,,h0-t0,l0/2aglue,allwpcsys,-1wpoff,,(h0-t0)/2wprota,,90asbw,allesize,b0/6mshpe,0$mshkey,1aatt,1,1,1$amesh,allkp0=kp(b0/2,(h0-t0)/2,l0/2)k,100,kx(kp0),ky(kp0),l0k,200,kx(kp0),l0,l0lsel,nonel,kp0,100lesize,all,,,10latt,1,,2,,,200,,1lmesh,alllsel,s,loc,z,l0/2latt,1,,3lmesh,alllsel,s,loc,z,0dl,all,,allasel,s,loc,y,h0-t0sfa,all,1,pres,,5000asel,s,loc,x,b0/2sfa,all,1,pres,3000lsel,s,loc,z,l0/2+0.1,l0esll,ssfbeam,all,1,pres,5000*b0sfbeam,all,2,pres,-3000*(h0-t0)allsel,all/eshape,1fini/soluallselsolve/post