体积计算命令分享

upc_zhb

def now_pos
p_gp=gp_head
loop while p_gp # null
   gp_xpos(p_gp)=gp_xpos(p_gp)+gp_xdisp(p_gp)
   gp_ypos(p_gp)=gp_ypos(p_gp)+gp_ydisp(p_gp)
   gp_zpos(p_gp)=gp_zpos(p_gp)+gp_zdisp(p_gp)
  p_gp=gp_next(p_gp)
endloop
end
now_pos ;; 更新模型信息
def plasvol
   vv=0
   p_z = zone_head
  loop while p_z # null  
        vv=vv+z_volume(p_z)
        p_z = z_next(p_z)
   endloop
end
plasvol
print vv  ;;;取计算后模型体积