!EX3.14 圓柱面和圓柱體的網格劃分
!圓柱面
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