!EX3.22 分布小孔環形面的網格劃分
finish
/clear
/prep7
r1=15
r2=25
r3=3
n=8
cyl4,,,r1,,r2,180/n
cyl4,0.5*(r1+r2),,r3
asba,1,2
kl,2
larc,6,8,4,0.5*(r1+r2)
asbl,all,4
lesize,4,,,4
lesize,10,,,4
lesize,6,,,8
lesize,3,,,6
lesize,8,,,4
lesize,5,,,8
lesize,9,,,4
lesize,1,,,6
lesize,7,,,4
et,1,plane82
mshape,0,2d
amap,2,6,7,4,8
amap,1,5,6,8,1
!lrefine,5,6,1,1,smooth
arsym,y,all
csys,1
agen,n,all,,,,360/n
nummrg,all