！圆的网格划分
        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 划分网格

http://s7/mw690/5e94ccea4db6aa19de216&690

 ! 圆环的网格划分
        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 的单元网格

http://s10/mw690/5e94ccea4db6ac39767d9&690


!圆柱面

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                    !在面中划分节点或线单元

 http://s7/mw690/5e94ccea4db6aa4827f56&690

!圆柱体

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

 http://s9/mw690/5e94ccea4db67bcccc788&690

http://s1/mw690/5e94ccea4db69f25aedc0&690

http://s4/mw690/5e94ccea4db69f287cc63&690