- 积分
- 0
- 注册时间
- 2009-8-16
- 仿真币
-
- 最后登录
- 1970-1-1
|
各位同仁你们好,前几天看了galu的建立钢拱架的帖子,感觉非常好,但是由于水平有限,还处于初级水平阶段,有很多都是一知半解,自己也试着按照galu大哥的思路编了一段生成钢拱架的代码,可是就是不对,不知道错在什么地方了,期望能得到大家的帮助!在此谢谢各位了!
new
set log on
set logfile sdkw.log
gen zone radcyl p0 0 0 0 p1 20 0 0 p2 0 20 0 p3 0 0 20 &
p6 20 0 20 p8 10 0 0 p9 0 0 10 p10 10 20 0 p11 0 20 10 size 5 10 9 5 &
dimension 10 10 10 10
gen zone reflect dd 270 dip 90 origin 0 0 20
sel shell range cyl end1 0 0 0 &
end2 0 20 0 rad 10 z 0 10
sel shell prop isotropic 10.5e9 0.25 thickness 0.02 density 2500
sel beam beg 9.85 0 0 end 9.70035637 0 1.71043455
sel beam beg 9.70035637 0 1.71043455 end 9.25597231 0 3.36889841
sel beam beg 9.25597231 0 3.36889841 end 8.53035023 0 4.925
sel beam beg 8.53035023 0 4.925 end 7.54553776 0 6.33145796
sel beam beg 7.54553776 0 6.33145796 end 6.33145796 0 7.54553776
sel beam beg 6.33145796 0 7.54553776 end 4.925 0 8.53035023
sel beam beg 4.925 0 8.53035023 end 3.36889841 0 9.25597231
sel beam beg 3.36889841 0 9.25597231 end 1.71043455 0 9.70035637
sel beam beg 3.36889841 0 9.25597231 end 1.71043455 0 9.70035637
sel beam beg 1.71043455 0 9.70035637 end 0 0 9.85
sel beam beg 0 0 9.85 end -1.71043455 0 9.70035637
sel beam beg -1.71043455 0 9.70035637 end -3.36889841 0 9.25597231
sel beam beg -3.36889841 0 9.25597231 end -4.925 0 8.53035023
sel beam beg -4.925 0 8.53035023 end -6.33145796 0 7.54553776
sel beam beg -6.33145796 0 7.54553776 end -7.54553776 0 6.33145796
sel beam beg -7.54553776 0 6.33145796 end -8.53035023 0 4.925
sel beam beg -8.53035023 0 4.925 end -9.25597231 0 3.36889841
sel beam beg -9.25597231 0 3.36889841 end -9.70035637 0 1.71043455
sel beam beg -9.70035637 0 1.71043455 end -9.85 0 0
def parmater
y_=0
p=5
Rbeam=9.85000
Rshell=9.98
a=0
det=10
end
parmater
def operate_link
link_id=1000
y=y_
loop m(1,p)
loop n(1,18)
x_shellnode=Rshell*cos((a+n*det)*degrad)
z_shellnode=Rshell*sin((a+n*det)*degrad)
y_shellnode=y
x_beamnode=Rbeam*cos((a+n*det)*degrad)
z_beamnode=Rbeam*sin((a+n*det)*degrad)
y_beamnode=y
sn_pointer=nd_near(x_shellnode,y_shellnode,z_shellnode)
bn_pointer=nd_near(x_beamnode,y_beamnode,z_beamnode)
shellnode_id=nd_id(sn_pointer)
beamnode_id=nd_id(bn_pointer)
command
sel set link node_tol 0.3
sel link id link_id beamnode_id target node tgt_num shellnode_id
sel link attach xdir=rigid ydir=rigid zdir=rigid range id link_id
sel link attach xrdir=free yrdir=free zrdir=free range id link_id
end_command
link_id=link_id+1
end_loop
y=y+0.8
end_loop
end
operate_link |
|