模型建好以后,不能用六面体分网,只能用退化的四面体分网。
请高手指点如何用六面体分网!谢谢
模型命令流如下:
/prep7
k,1
k,2,,38
k,3,,-80
k,4,130/2,20-(130/2)/sqrt(3)+5
k,5,130/2,-sqrt(80**2-(130/2)**2)
larc,3,5,1,80
l,4,5
circle,1,40.5,,,180
circle,2,43
lsbl,4,7
ldel,5,6,,1
ldel,3,8,5,1
kwpav,13
pcirc,83,,-90,90
kwpav,1
pcirc,42.5,,-90,90
kwpav,2
pcirc,40,,-90,90
aadd,2,3
asba,1,4,,,keep
/replot
/pnum,area,1
APLOT
adele,3,,,1
aadd,all
kplot
circle,13,83+22
circle,4,22
ldele,5,7,1,1
ldele,13,15,2,1
ldele,20,,,1
lsbl,12,11
l,9,13
ldele,11,,,1
lsbl,8,7
larc,6,4,9,22
l,3,11
al,1,2,7,11,3,8
aadd,1,2
ARSYM,X,3
aadd,1,3
/VIEW,1,1,1,1
/replot
vext,2,,,,,21
kwpav,1
/VIEW,1,1
/replot
k,,,38+40,11
k,,,87.5-40,21
larc,28,29,25,70
k,,,-40,-10
k,,,-40,30
arotat,35,,,,,,31,32,45,1
arotat,35,,,,,,31,32,-45,1
asel,s,area,,13,14,1
cm,hfm1,area
allsel,all
vsba,1,hfm1,sepo
vdele,2,,,1
/replot
/view,1,1,1,1
vplot
save
k,,,47.5,
kwpave,3
cylind,54/2,,-34
kwpave,1
k,,,,-34!16
kwpave,16
k,,,38,-34!17
kgen,2,13,,,,,-34!18
pcirc,42.5,,-90,90!a5
kwpave,17
pcirc,40,,-90,90!a6
aadd,5,6!a7
kwpave,18
pcirc,83,,-90,90!a5
asba,5,7,,,keepadel,8,,,1
aadd,6,7
arsym,x,5
aadd,5,6!a7
vext,7,,,,,-21
k,,,-42.5,-(34+21-11)!P30
k,,,-(80-68),-34!P35
larc,30,35,19,70!L33
k,,,68,-(34-10)!P36
k,,,68,-(34+21+10)!P37
arotat,33,,,,,,36,37,-45,1!a13
arotat,33,,,,,,36,37,45,1!a14
asel,s,area,,13,14,1
cm,hfm2,area
allsel,all
vsba,2,hfm2,sepo!V2=V4+V5
vdele,4,,,1!删除V4
k,,,38+40,-(34+11)!P19
k,,,87.5-40,-(34+21)!P20
larc,19,20,78,70!L15
k,,,-40,-(34-10)!P23
k,,,-40,-(34+21+10)!P24
arotat,15,,,,,,23,24,-45,1!a5
arotat,15,,,,,,23,24,45,1!a6
asel,s,area,,5,6,1
cm,hfm3,area
allsel,all
vsba,5,hfm3,sepo
vdele,2,,,1
kwpave,1
save
k,,,8!P19
k,,,,5!P20
k,,,-25!P25
k,,,-20,5!P26
k,,,-20!P27
larc,19,20,1,9!L15
l,20,26!L16
larc,25,26,27,5!L17
l,25,19
al,15,16,17,18!a5
vext,5,,,-70!拉伸
vext,5,,,70
vadd,2,5
vsbv,3,6
save |