表面施加静水压力赋值问题
def boundary_gplipnt=gp_head
max_xzb=0.0
loop while pnt # null
b_x=gp_xpos(pnt)
b_y=gp_ypos(pnt)
b_z=gp_zpos(pnt)
if b_z <= 145.0 then
ad1=gp_near(b_x,yb,zb)
ad_x=gp_xpos(ad1)
ad_y=gp_ypos(ad1)
ad_z=gp_zpos(ad1)
if b_z <= 145.0 then
if ad_x > max_xzb then
max_xzb=ad_x
pid=gp_id(ad1)
bjpp=145.0-ad_z
kxsyl=bjpp*10^4
water_pressure=-1.0*kxsyl
end_if
end_if
end_if
pnt=gp_next(pnt)
end_loop
command
apply nstress @water_pressure range id @pid
end_command
end
def jdfzli
zb=0.0
loop while zb <= 500.0
yb=0.0
loop while yb<= 20.0
command
@boundary_gpli
end_command
yb=yb+2.0
end_loop
zb=zb+2.0
end_loop
end
@jdfzli
搞了好久通过搜索表面结点赋值静水压力,结果每次都只有一部分节点可以,求助大神 拒绝沉贴。求教 楼主做出来了吗?想请教你一下
页:
[1]