24小时热门版块排行榜    

CyRhmU.jpeg
查看: 228  |  回复: 0

proejhy

木虫 (小有名气)

[求助] 分网求助,程序中最后那个体10,分网不成,紧急求助,高手明示

finish
/clear
/FILNAME,abcd

/prep7  
/uis,msgpop,3
/nerr,0,90000000
*afun,deg       !角度单位设为度,不是弧度

!单元类型
et,2,solid186    !3D 20节点六面体单元
et,1,mesh200    !网格划分单元
keyopt,1,1,7  
!定义材料属性(线性)
mp,ex,1,2e5   !弹性模量Mpa
mp,prxy,1,0.3   !泊松比
mp,dens,1,7.85e-9  !密度t/mm3

k,1,0,-115,0       !1-点号,xyz坐标值  
k,2,16,-99,0  
k,3,16,-67.6,0
lstr,2,3

clocal,11,1,0,-99,0    !在原点处定义一个柱坐标系(R,θ,z),为能画出圆孔在该坐标系下建立以下点
l,1,2

csys,0
K,4,0,-129,0
kwpave,4       !移动工作平面的原点到拾取关键点的中间位置
wprota,,,-90
wprota,-45,,
cyl4,,,14
lstr,5,7     !get line L7
lstr,6,8

wprota,,-90,

asbw,1
wprota,,,-90
asbw,all

ldele,7
ldele,8
nummrg,all
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
na1=20   !trajpar pertition
na2=8   !圆弧划分段数
LESIZE,1,,,na1
LESIZE,2,,,na1
LESIZE,3,,,na2
LESIZE,4,,,na2
LESIZE,5,,,na2
LESIZE,6,,,na2
LESIZE,10,,,na2
LESIZE,11,,,na2
LESIZE,12,,,na2
LESIZE,13,,,na2

type,1
MSHAPE,0  !0---2d用四边形,3d用六面体
MSHKEY,1   !0---free,1---mapped,2-----mapped if possible
nummrg,area
AMESH,ALL
type,2
vdrag,1,4,5,6,,,2,1
!adele,all
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

alls

!........................其实用csys,1,0可以立即将工作坐标系移到global
k,50,16,0,0
csys,4
kwpave,50       !移动工作平面的原点到拾取关键点的中间位置
wprota,,90,

wprota,45
cyl4,,,16.5
cyl4,,,40
asba,30,29
rectng,-45,-30,50,-50
asba,31,29
alls
!nummrg,all

lstr,21,31
lstr,21,32
l,20,24
l,19,23
l,22,26

na3=8
LESIZE,49,,,na3
LESIZE,41,,,na3
LESIZE,44,,,na3
LESIZE,50,,,na3
LESIZE,51,,,na3
LESIZE,42,,,na3
LESIZE,43,,,na3
LESIZE,37,,,na3
LESIZE,38,,,na3
LESIZE,39,,,na3
LESIZE,40,,,na3
LESIZE,45,,,na3
LESIZE,46,,,na3
LESIZE,47,,,na3
type,1
MSHAPE,0  !0---2d用四边形,3d用六面体
MSHKEY,2  !0---free,1---mapped,2-----mapped if possible

AMESH,30

asel,s,,,30
type,2            !选择1号体单元solid186

extopt,esize,8  !厚度方向拉伸段数
vext,all,,,,,-14    !拉伸距离
alls

lstr,14,29
lstr,15,32
lstr,18,28
lstr,17,31

al,70,24,69,63  !建过渡面
al,53,69,36,71
al,71,33,72,62
al,30,72,51,70
!al,30,33,36,24

va,33,40,41,42,43,20,23,26,28

na4=8!过渡段边线分段
LESIZE,69,,,na4,+2
LESIZE,70,,,na4,+2
LESIZE,71,,,na4,+2
LESIZE,72,,,na4,+2

type,2
MSHAPE,0  !0---2d用四边形,3d用六面体
MSHKEY,0  !0---free,1---mapped,2-----mapped if possible
vmesh,10
回复此楼

» 猜你喜欢

» 本主题相关商家推荐: (我也要在这里推广)

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 proejhy 的主题更新
信息提示
请填处理意见