圆、圆环、圆柱面、圆柱体网格划分

ANSYS圆、圆环面、圆柱面、圆柱体的网格划分
！圆的网格划分
finish $ /clear $ /prep7
et,1,plane82 $ r0=10 ! 定义单元类型和圆半径参数
cyl4,,,r0 $ cyl4,3*r0,,,,r0 ! 创建两个圆面A 和B，拟分别进行不同的网格划分
wprota,,90 $ asbw,all ! 将圆面水平切分
wprota,,,90 $ asbw,all ! 将圆面A 竖向切分
wpoff,,,3*r0 $ asbw,all ! 移动工作平面，将圆面B 竖向切分
wpcsys,-1 ! 工作平面复位但不改变视图方向
asel,s,loc,x,-r0,r0 ! 选择圆面A 的所有面
lsla,s ! 选择与圆面A 相关的所有线
lesize,all,,,8 ! 对上述线设置网格划分个数为8（三条边时相等且为偶数）
mshape,0,2d $ mshkey,1 ! 设置四边形单元、映射网格划分
amesh,all ! 圆面A 划分网格
asel,s,loc,x,2*r0,4*r0 ! 选择圆面B的所有面
lsla,s ! 选择与圆面B 相关的所有线
lesize,all,,,8 ! 对上述线设置网格划分个数为8
lsel,r,length,,r0 ! 选择上述线中长度为半径的线
lesize,all,,,8,0.1,1 ! 设置这些线的网格划分数和间隔比
amesh,all $ allsel ! 圆面B 划分网格
! 圆环的网格划分
finish $ /clear $ /prep7
et,1,plane82 $ r0=10 ! 定义单元类型和圆半径参数
cyl4,,,r0/3,,r0,90 $ cyl4,2*r0,,r0/10,,r0,90 ! 创建两个1/4 环面
asel,s,loc,x,-r0,r0 ! 选择环面A
lsla,s$lesize,all,,,8 ! 选择环面A 的所有线，定义网分数
lsel,r,length,,r0*2/3 $ lesize,all,,,3,,1 ! 选择径向线，网分数修改为3
mshape,0,2d $ mshkey,1 $ amesh,all ! 定义单元形状、划分类型、划分单元
ALLSEL $ asel,s,loc,x,2*r0,4*r0 ! 选择环面B
lesize,5,,,12 $ lesize,7,,,6 ! 定义外周线和内周线网分数分别为12 和6 lsel,s,length,,r0*9/10 $ lesize,all,,,7 ! 选择径向线，网分数为7
amesh,all ! 划分环面B 的单元网格
!圆柱面
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。