ansys工程结构数值分析---命令流实例

ansys工程结构数值分析---命令流实例内容摘要：

finish /clear /prep7 et,1,plane82 r0=10 cyl4,r0 cyl4,3*r0,r0 wprota,90 asbw,all wprota,90 asbw,all wpoff,3*r0 asbw,all wpcsys,1 asel,s,loc,x,r0,r0 lsla,s lesize,all,8 mshape,0,2d mshkey,1 amesh,all allsel asel,s,loc,x,2*r0,4*r0 lesize,all,8 lsel,r,length,r0 lesize,all,8,1 amesh,all allsel ! 圆环的网格划分 finish /clear /prep7 et,1,plane82 r0=10 cyl4,r0/3,r0,90 cyl4,2*r0,r0/10,r0,90 asel,s,loc,x,r0,r0 lsla,s lesize,all,8 lsel,r,length,r0*2/3 lesize,all,3,1 mshape,0,2d mshkey,1 amesh,all asel,s,loc,x,2*r0,4*r0 lsla,s lesize,5,12 lesize,7,6 lsel,s,length,r0*9/10 lesize,all,7 amesh,all ! 圆柱面和圆柱体的网格划分 !圆柱面 finish /clear /prep7 r0=10 h0=50 et,1,shell63 cyl4,r0 adele,1 cm,l1cm,line k,50 k,51,h0 l,50,51 adrag,l1cm,,5 lsel,s,loc,z,0 lesize,all,6 lsel,s,length,h0 lesize,all,8 mshape,0,2d mshkey,1 amesh,all !圆柱体 finish /clear /prep7 r0=10 h0=50 et,1,solid95 cyl4,r0,h0 wprota,90 vsbw,all wprota,90 vsbw,all mshape,0,3d mshkey,1 lsel,s,loc,z,0 lesize,all,6 lsel,s,length,h0 lesize,all,8 vmesh,all ! 圆锥的网格划分 !扫掠网格划分 finish /clear /prep7 cone,10,15,90 et,1,200,7 et,2,95 lsel,s,5,6 lesize,all,12, lsel,all lesize,3,6 mshape,0,2d mshkey,1 amesh,3 vsweep,1,3,4 vsymm,x,all vsymm,y,all vglue,all !六面体映射网格划分 finish /clear /prep7 cone,10,15,90 et,2,95 lesize,all,8 mshape,0,3d mshkey,1 vmesh,all vsymm,x,all vsymm,y,all vglue,all ! 正多边形面的通用网格划分 finish /clear /prep7 ns=11 et,1,plane82 rpr4,ns,10 kp0=100+ns k,kp0 *if,mod(ns,2),eq,0,then *do,i,1,ns/2 l,kp0,2*i1 *enddo *else *do,i,1,ns l,kp0,i *enddo *endif lsel,s,ns+1,2*ns cm,l1cm,line allsel asbl,1,l1cm *if,mod(ns,2),eq,0,then cmsel,s,l1cm lesize,all,8 lsel,inve lesize,all,4 *else lesize,all,8 *endif allsel mshape,0 mshkey,1 amesh,all ! 球体及球面网格划分 finish /clear /prep7 r0=10 sphere,r0,90 vsbw,all vdele,2,1 esize,2 et,1,solid95 mshape,0,3d mshkey,1 vmesh,all vsymm,x,all vsymm,y,all vsymm,z,all vglue,all finish /clear /prep7 r0=10 sphere,r0,90 vsbw,all vdele,2,1 vdele,all asel,s,loc,x,0 asel,a,loc,y,0 asel,a,loc,z,0 adele,all,1 allsel esize,2 et,1,shell63 mshape,0,2d mshkey,1 amesh,all arsym,x,all arsym,y,all arsym,z,all nummrg,all ! 孔板网格划分 finish /clear /prep7 a0=300 b0=800 r0=15 blc4,a0,b0 cyl4,a0/4,b0/8,r0 agen,2,2,a0/2 agen,2,2,3,1,b0/8 agen,2,2,5,1,b0*5/8 asel,s,2,9,1 cm,a2cm,area allsel asba,1,a2cm wprota,90 *do,i,1,5 wpoff,b0/16 asbw,all *enddo wpoff,b0*5/16 *do,i,1,5 wpoff,b0/16 asbw,all *enddo wprota,90 *do,i,1,3 wpoff,a0/4 asbw,all *enddo wpcsys,1 numcmp,all lsel,s,radius,r0 lesize,all,8 lsel,inve lesize,all,4 lsel,all et,1,82 mshape,0,2d mshkey,1 asel,u,loc,y,b0/16,b0*5/16 asel,u,loc,y,b0*11/16,b0*15/16 lsla,s lsel,r,tan1,x lesize,all,50,1 amesh,all allsel amap,21,30,31,54,62 amap,22,31,32,54,64 amap,32,29,30,62,76 amap,33,29,32,64,76 amap,42,34,35,76,82 amap,43,35,36,76,84 amap,41,33,34,53,82 amap,44,33,36,53,84 amap,19,22,23,49,64 amap,20,23,24,49,60 amap,9,21,22,64,74 amap,31,21,24,60,74 amap,38,26,27,74,84 amap,39,27,28,74,80 amap,37,25,26,50,84 amap,40,25,28,50,80 amap,17,14,15,43,59 amap,18,15,16,43,63 amap,7,13,14,59,73 amap,8,13,16,63,73 amap,34,18,19,73,79 amap,30,17,18,79,44 amap,35,19,20,73,83 amap,36,17,20,44,83 amap,15,6,7,39,63 amap,16,7,8,39,58 amap,4,6,5,63,71 amap,5,5,8,58,71 amap,27,10,11,71,83 amap,28,11,12,71,78 amap,26,9,10,83,40 amap,29,9,12,40,78 ! 角支架的网格划分 finish /clear /prep7 blc4,150,50 blc4,100,50,50 cyl4,25,25 cyl4,125,50,25 aadd,all numcmp,all cyl4,25,10 cyl4,125,50,10 asel,s,2,3 cm,a1cm,area asel,all asba,1,a1cm lb,1,6 lfillt,1,2,20 asbl,4,6 adele,1,1 lfillt,3,4,20 al,18,19,20 aadd,all numcmp,all ! wprota,90 wpoff,25 asbw,all wpoff,75 asbw,all wprota,90 asbw,all wpoff,125 asbw,all wpcsys,1 wpoff,25 wprota,90 asbw,all kwpave,18 asbw,all kwpave,3 wprota,90 asbw,all kwpave,21 wprota,45 asbw,8 wpcsys,1 ! et,1,plane82 mshape,0,2d mshkey,1 esize,6 lesize,33,6 lesize,37,6 lesize,42,6 amesh,3,5,2 amap,6,9,10,4,23 amap,7,9,12,1,23 amesh,11,13,2 amesh,1,9,8 amesh,2,4,2 amap,16,3,18,26,28 amap,12,14,15,5,28 amap,15,13,14,6,28 lb,19,22 lb,27,46 amesh,10,14,4 !========================= ! 大板小孔的网格划分 A finish /clear /prep7 a0=100 blc4,a0,a0 cyl4,a0/100 asba,1,2 csys,1 k,50,a0/20 k,51,a0/20,90 l,50,51 asbl,all,1 wprota,90,45 asbw,all et,1,plane82 mshape,0,2d mshkey,1 lsel,s,loc,x,0,a0/20 lesize,all,8 lsel,all lesize,7,12, lesize,8,12, lesize,9,12,10 amesh,all csys,0 arsym,x,all arsym,y,all nummrg,all !============================= ! 大板小孔的网格划分 B finish /clear /prep7 a0=100 blc4,a0,a0 cyl4,a0/100 asba,1,2 csys,1 k,50,a0/20 k,51,a0/20,90 l,50,51 asbl,all,1 et,1,plane82 mshape,0,2d mshkey,1 lesize,5,8 lesize,1,10 lesize,4,8,5 lesize,6,8,5 amesh,1 lesize,7,20, lesize,8,20, amap,2,50,51,2,4 csys,0 arsym,x,all arsym,y,all nummrg,all ! Z形面网格划分及局部细分 finish /clear /prep7 blc4,15,10 blc4,10,6,14,12 aadd,all wprota,90 wpoff,6 asbw,all wpoff,4 asbw,all wprota,90 wpoff,10 asbw,all wpoff,5 asbw,all wpcsys,1。