chong2 发表于 2012-11-18 21:14
可以发一下模型文件不?谢谢
FINISH
/CLEAR
/FILNAME, GuiZeZhiCheng,1
/PREP7
/TITLE, NeiWaiQuan
!单位为mm, T , s , N, MPa, kg/mm3, mm/s2
wpro,,90 !!旋转模式ZXY
Rectng,-2450/2,-2593/2,55,100 !!内圈上半面
Rectng,-2450/2,-2601/2,0,55 !!内圈下半面
Rectng,-2598/2,-2760/2,55,110 !!外圈上半面
Rectng,-2606/2,-2760/2,10,55 !!外圈下半面
CM, fang, area !!形成组件方面
CYL4, -2600/2,55,0,0,20,360 !!滚球圆面
Asel,s,,,5,7
CM,yuan, area !!形成组件圆面
Cmsel,all
Asba,fang,yuan !!方面减圆面
CYL4, -2600/2,55,0,0,24,360 !!滚球大圆面
aovlap,all
adele,14,,,1
wpoffs,-1324
wprota,,,90
asbw,all
wpoffs,,,48
asbw,all
wpoffs,,,1276
lcomb,4,37 !!线合并
lcomb,20,29
lcomb,32,18 !!线合并
lcomb,8,43
AAdd,6,7
AAdd,5,10
aglue,all
Numcmp,all !!重新自动编号
k,100,0,0, 100 !!两点定义旋转轴
k,101,0,0,-100
vrotat,all, , , ,,,100,101, 180/28,1 !!绕轴旋转面形成体,半圈分56段
kdele,100,101
allsel
wprota,,,-90
wprota,,-90
wpoffs,,,-10
CYL4,-2510/2,0,0,0,30/2,360,130 !!建立内螺栓121
CYL4,-2694/2,0,0,0,30/2,360,130 !!建立外螺栓122
wpoffs,,,10
CSYS,1 !!激活柱坐标系用于绕轴阵列
Vgen,2,11,12,,, -180/28 !!复制内外螺栓56次,轴阵列旋转360/56度
CSYS,0
vsel,s,,,1,10
cm,neiwaiquan,volu
vsel,s,,,11,14
cm,luoshuan,volu
allsel
vsbv, neiwaiquan, luoshuan
adele,4,5,,1 !!注意检查,有多余的面
allsel
wprota,,90
wprota,,,-1
vsbw,all
wprota,,,-4.5
vsbw,all
numcmp,all
wprota,,,5.5
allsel
MP,EX,1,2E5 !!弹性模量
MP,PRXY,1,0.3 !!泊松比
MP,DENS,1,7.86E-6 !!材料密度
ET,1,45 !!95号实体单元
!!划分网格
mat,1
type,1
ESIZE,3
VSEL,S,,,5,14,9
VSEL,A,,,11,17,6
VSWEEP,ALL
allsel
LSEL,S,,,86,205,119
lesize,all,,, 10 !!大小,度数,段数
vsel,s,,,16,24,8
vsel,a,,,21,25,4
vsweep,all
ESIZE,3
VSEL,S,,,3,10,7
VSEL,A,,,2,9,7
VSWEEP,ALL
allsel
MSHAPE,0,3D
MSHKEY,1
LSEL,S,,,27,29,2
LSEL,A,,,77,82,5
LSEL,A,,,28,33,5
LSEL,A,,,36,93,57
lesize,all,,,10 !!大小,度数,段数
vsel,s,,,4,12,8
vsel,a,,,1,15,14
vsel,a,,,13,18,5
vsel,a,,,7,8
vmesh,all
vsel,s,,,23,26,3
vsel,a,,,6,22,16
vmesh,all
LSEL,S,,,171,177,6
lesize,all,10,,
vsel,s,,,27,28
vsweep,all
lsel,s,,,168,173,5
lsel,a,,,233,238,5
lesize,all,1
vsel,s,,,19,20
vsel,a,,,29,30
vsweep,all
allsel
|