e3.17.txt

来自「185个ANSYS工程结构数值分析非常实用的命令流」· 文本 代码 · 共 41 行

!EX3.17 球体及球面网格划分
finish
/clear
/prep7
r0=10
sphere,,r0,,90
vsbw,all
vdele,2,,,1
esize,2
et,1,solid95
mshape,0,3d
mshkey,1
vmesh,all
vsymm,x,all
vsymm,y,all
vsymm,z,all
vglue,all
finish
/clear
/prep7
r0=10
sphere,,r0,,90
vsbw,all
vdele,2,,,1
vdele,all
asel,s,loc,x,0
asel,a,loc,y,0
asel,a,loc,z,0
adele,all,,,1
allsel
esize,2
et,1,shell63
mshape,0,2d
mshkey,1
amesh,all
arsym,x,all
arsym,y,all
arsym,z,all
nummrg,all