e3.18.txt

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

!EX3.18 孔板网格划分
finish
/clear
/prep7
a0=300
b0=800
r0=15
blc4,,,a0,b0
cyl4,a0/4,b0/8,r0
agen,2,2,,,a0/2
agen,2,2,3,1,,b0/8
agen,2,2,5,1,,b0*5/8
asel,s,,,2,9,1
cm,a2cm,area
allsel
asba,1,a2cm
wprota,,-90
*do,i,1,5
wpoff,,,b0/16
asbw,all
*enddo
wpoff,,,b0*5/16
*do,i,1,5
wpoff,,,b0/16
asbw,all
*enddo
wprota,,,90
*do,i,1,3
wpoff,,,a0/4
asbw,all
*enddo
wpcsys,-1
numcmp,all

lsel,s,radius,,r0
lesize,all,,,8
lsel,inve
lesize,all,,,4
lsel,all
et,1,82
mshape,0,2d
mshkey,1
asel,u,loc,y,b0/16,b0*5/16
asel,u,loc,y,b0*11/16,b0*15/16
lsla,s
lsel,r,tan1,x
lesize,all,50,,,,1
amesh,all
allsel

amap,21,30,31,54,62
amap,22,31,32,54,64
amap,32,29,30,62,76
amap,33,29,32,64,76

amap,42,34,35,76,82
amap,43,35,36,76,84
amap,41,33,34,53,82
amap,44,33,36,53,84

amap,19,22,23,49,64
amap,20,23,24,49,60
amap,9,21,22,64,74
amap,31,21,24,60,74

amap,38,26,27,74,84
amap,39,27,28,74,80
amap,37,25,26,50,84
amap,40,25,28,50,80

amap,17,14,15,43,59
amap,18,15,16,43,63
amap,7,13,14,59,73
amap,8,13,16,63,73

amap,34,18,19,73,79
amap,30,17,18,79,44
amap,35,19,20,73,83
amap,36,17,20,44,83

amap,15,6,7,39,63
amap,16,7,8,39,58
amap,4,6,5,63,71
amap,5,5,8,58,71

amap,27,10,11,71,83
amap,28,11,12,71,78
amap,26,9,10,83,40
amap,29,9,12,40,78