24小时热门版块排行榜    

查看: 240  |  回复: 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 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[公派出国] 售SCI一区文章,我:8 O5 51O 54,科目齐全 +3 5lbyq5wrhb 2026-02-07 3/150 2026-02-08 03:05 by vs90ilomwc
[考博] 售SCI一区文章,我:8 O5 51O 54,科目齐全 +3 5lbyq5wrhb 2026-02-07 3/150 2026-02-08 02:52 by vs90ilomwc
[硕博家园] 售SCI一区文章,我:8 O5 51O 54,科目齐全 +3 3rkserf6qr 2026-02-07 3/150 2026-02-08 02:32 by vs90ilomwc
[硕博家园] 售SCI一区文章,我:8 O5 51O 54,科目齐全 +5 2h7du0nuhk 2026-02-07 5/250 2026-02-08 02:27 by vs90ilomwc
[考博] 售SCI一区文章,我:8 O5 51O 54,科目齐全 +5 2h7du0nuhk 2026-02-07 5/250 2026-02-08 02:25 by vs90ilomwc
[硕博家园] 售SCI一区文章,我:8 O5 51O 54,科目齐全 +4 2h7du0nuhk 2026-02-07 5/250 2026-02-08 02:12 by vs90ilomwc
[考博] 售SCI一区文章,我:8 O5 51O 54,科目齐全 +4 2h7du0nuhk 2026-02-07 6/300 2026-02-08 02:07 by vs90ilomwc
[教师之家] 售SCI一区文章,我:8 O5 51O 54,科目齐全 +4 2h7du0nuhk 2026-02-07 6/300 2026-02-08 02:05 by vs90ilomwc
[找工作] 售SCI一区文章,我:8 O5 51O 54,科目齐全 +4 2h7du0nuhk 2026-02-07 6/300 2026-02-08 01:46 by vs90ilomwc
[公派出国] 售SCI一区文章,我:8 O5 51O 54,科目齐全 +4 2h7du0nuhk 2026-02-07 7/350 2026-02-08 01:45 by vs90ilomwc
[考博] 售SCI一区文章,我:8 O5 51O 54,科目齐全 +4 2h7du0nuhk 2026-02-07 7/350 2026-02-08 01:32 by vs90ilomwc
[硕博家园] 售SCI一区文章,我:8 O5 51O 54,科目齐全 +4 2h7du0nuhk 2026-02-07 7/350 2026-02-08 01:12 by vs90ilomwc
[教师之家] 有院领导为了换新车,用横向课题经费买了俩车 +7 瞬息宇宙 2026-02-04 7/350 2026-02-07 21:47 by tfang
[有机交流] 酰胺脱乙酰基 10+5 chibby 2026-02-03 12/600 2026-02-07 19:29 by 江东闲人
[基金申请] 同年申请2项不同项目,第1个项目里不写第2个项目的信息,可以吗 +4 hitsdu 2026-02-06 4/200 2026-02-07 13:07 by jurkat.1640
[基金申请] 有时候真觉得大城市人没有县城人甚至个体户幸福 +9 苏东坡二世 2026-02-04 10/500 2026-02-07 12:37 by 小毛球
[公派出国] CSC & MSCA 博洛尼亚大学能源材料课题组博士/博士后招生|MSCA经费充足、排名优 +4 雨念 2026-02-01 6/300 2026-02-06 23:32 by MelissaPon
[基金申请] 面上项目申报 +3 Tide man 2026-02-01 3/150 2026-02-05 22:56 by god_tian
[硕博家园] 博士延得我,科研能力直往上蹿 +7 偏振片 2026-02-02 7/350 2026-02-04 17:36 by 陈氏帝国
[教师之家] 遇见不省心的家人很难过 +18 otani 2026-02-03 22/1100 2026-02-04 11:06 by tangmnt
信息提示
请填处理意见