24小时热门版块排行榜    

CyRhmU.jpeg
查看: 321  |  回复: 2
当前主题已经存档。

11211121

金虫 (小有名气)

[交流] 【求助】划分网格问题……已有2人参与

求助:现在这个模型无法划分网格,谢谢各位资深高手帮忙看下,怎么划分网格!谢谢各位了。
finish
/clear
/filname,10-12
/title,units:mm and N
/prep7
et,1,solid45
mp,ex,1,3.45e4
mp,prxy,1,0.2
mp,dens,1,2.549e-9
q=50
w=1e-3
tb,miso,1,,11
tbpt,,0.2*w,0.19*q
tbpt,,0.4*w,0.36*q
tbpt,,0.6*w,0.51*q
tbpt,,0.8*w,0.64*q
tbpt,,w,0.8*q
tbpt,,1.2*w,0.84*q
tbpt,,1.4*w,0.91*q
tbpt,,1.6*w,0.96*q
tbpt,,1.8*w,0.99*q
tbpt,,2*w,q
tbpt,,3.3*w,0.85*q

tbplot,miso,1





!建立数组,储存梁高变化
c1=0.008183022
c2=0.001197065
!10-10开始,kp=8开始的底面曲线

*dim,y1,arry,6
*do,i,1,6,1
y1(i)=(c1*(26+(i-1)*1.2)**1.6+2)*1000
*enddo

!10-10开始,底板梁高的曲线
*dim,y2,arry,6 !10-10开始
*do,i,1,6,1
y2(i)=(c2*(26+(i-1)*1.2)**1.6+0.28)*1000
*enddo

!建立8和7点之间的曲线关键点
*do,i,1,6,1
k,(i-1)*100+8,0,-y1(i),(i-1)*1.2*1000
*enddo

*do,i,1,6,1
k,(i-1)*100+7,0,-y1(i)+y2(i),(i-1)*1.2*1000
*enddo

!通过复制生成节点5、6、9点
kgen,2,7,507,100,3000-1200
kgen,2,7,507,100,3000-600,300
kgen,2,8,508,100,3000

a,7,8,108,208,308,408,508,507,407,307,207,107
*do,i,1,5,1
a,1+(i-1)*1,1+i*1,7+i*100,7+(i-1)*100
a,1+(i-1)*1,1+i*1,9+i*1,9+(i-1)*1
a,8+(i-1)*100,15+(i-1),15+i,8+(i)*100
*enddo

!建立内外侧面面
k,100,3000,-600,0
k,200,3000,-600,6000

k,300,3000-600,-600,0
k,400,3000-600,-600,6000

l,100,200
l,300,400

l,100,15
l,400,14
l,200,20
l,300,9

k,,0,0,0
k,,0,0,6000
k,,0,-280,6000
k,,0,-280,0
k,,3000-600-1200,-280,0
k,,3000-600-1200,-280,6000

a,21,22,23,24
a,23,24,25,26
a,25,300,400,26

k,,6500,0,0
k,,6500,0,6000

a,21,22,28,27

k,,6500,-180,0
k,,6500,-180,6000
k,,6500-2500,-400,6000
k,,6500-2500,-400,0

a,21,22,28,27
a,27,28,30,29
a,30,31,32,29
a,32,100,200,31
a,100,15,16,17,18,19,20,200
a,300,9,10,11,12,13,14,400
a,22,28,30,31,200,20,508,507,6,14,400,26,23
a,21,27,29,32,100,15,8,7,1,9,300,25,24

asel,all
va,all



!建立钢筋
xk=3000-300
y8=-450
y7=y8-160
y6=y7-160
y51=y6-237!10-10截面f5的y坐标
y52=y6-244!11-11截面f5的坐标
!由于f8-f6比较简单,先建立

cyl4,xk,y8,0,0,50,360,6000
cyl4,xk,y7,0,0,50,360,6000
cyl4,xk,y6,0,0,50,360,6000

vsbv,1,2
vsbv,5,3
vsbv,1,4


!开始建立f5坐标
zl1=808
zl2=1392
t=1608

k,61,xk,-3235+1035,zl1-3000
k,62,xk,-450-3*160,zl1+zl2+t-3000
k,59,xk,y8,0
larc,61,62,59,-6000
!在这步中 没有选择与61和62曲线垂直的面建立体,而是用与z轴垂直的面建立体!
wpoffs,xk,-3235+1035,zl1-3000
wprota,,-29.997
pcirc,0,50,0,360
wprota,,29.997
VDRAG,26,,,,,,102
wpcsys,-1
k,69,xk,-450-3*160,6000
l,69,62
vdrag,37,,,,,,115
vsbv,2,1
vsbv,4,3
lsel,s,line,,102
lsel,a,line,,115
ldele,all
allsel

!以下是建立f4管道
zl4=781
zl42=1419
t4=1651

k,401,xk,1103-y1(1),0
k,403,xk,1103+465.1-3576,zl4
k,402,xk,-450-4*160,zl4+zl42+t4
l,401,403
larc,403,402,59,-6000


wpoffs,xk,1103-y1(1),0
wprota,,-30.772
pcirc,0,50,0,360

vdrag,29,,,,,,102
wpcsys,-1
vdrag,44,,,,,,108
k,404,xk,-450-4*160,6000
l,402,404
vdrag,53,,,,,,145
vadd,3,2,4
vsbv,1,5

lsel,s,line,,102
lsel,a,line,,108
lsel,a,line,,145
ldele,all
allsel

!以下是建立f3的管道坐标

zl3=756
zl32=1444
t3=1694

k,501,xk,-3790+1190,3000
k,503,xk,-3790+1190+463,3000+zl3
k,502,xk,-450-4*160-252,6000
l,501,503
larc,503,502,59,-6000
wpcsys,-1
wpoffs,xk,-3790+1190,3000
wprota,,-31.535
pcirc,0,50,0,360

vdrag,29,,,,,,102

vdrag,58,,,,,,108

vadd,1,3
vsbv,2,4
wpcsys,-1

lsel,s,line,,102
lsel,a,line,,108
ldele,all
allsel,all
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wester

金虫 (著名写手)

好复杂啊,根本看不懂
2楼2010-04-03 18:13:04
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

11211121

金虫 (小有名气)

我是初学者,所以写的东西比较繁琐,呵呵。已经划分完了。
真是奇怪,晚上去吃完晚饭回来,就神奇的划分成功了,只有一个警告说我没设置中间点。

[ Last edited by 11211121 on 2010-4-4 at 11:59 ]
3楼2010-04-03 19:31:56
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 11211121 的主题更新
普通表情 高级回复(可上传附件)
信息提示
请填处理意见