!EX3.12 圓的網格劃分
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,0.1,1
amesh,all
allsel