set log on
set logfil 动位移数据1.log
set plot jpg ;设置输出为图片格式为jpg
def handing4.0
p_gp=gp_head
jj=1
loop while p_gp # null
x_pos=gp_xpos(p_gp)
y_pos=gp_ypos(p_gp)
z_pos=gp_zpos(p_gp)
if y_pos>-.1 then ;y的上边界
if y_pos<0.1 then ;y的下边界
if z_pos>-0.1 then ;z的上边界
if z_pos<0.1 then ;z的上边界
xtable(4,jj)=x_pos
ytable(4,jj)=gp_zdisp(p_gp)
jj=jj+1
endif
endif
endif
endif
p_gp=gp_next(p_gp)
end_loop
end
handing4.0
pri table 4
plot ta 4
pl hard file 涵顶平面4.0竖向位移.jpg