######################################################################
#
# Macro Name    : c:/documents and settings/all users/gemcom/surpac/613/demo_data/tutorials/introduction/05i_calculate_volume_between_2dtms.tcl
#
# Version       : Surpac 6.1.3
#
# Creation Date : Thu Jan 21 09:12:58 2010
#
# Description   : 
#
######################################################################

set status [ SclFunction "RECALL ANY FILE" {  
  file="pit1.dtm"
  mode="openInNewLayer"
}]

set status [ SclFunction "DRAW STRINGS" {
  frm00089={
    {
      _action=display
      range1="2"
      range2=""
      range3=""
      ifld_num="d1"
      textalignment="<"
      position="First point"
      layer_name="pit1.dtm"
    }
  }
}]

set status [ SclFunction "RECALL ANY FILE" {
  file="dhc2.dtm"
  mode="openInNewLayer"
}]

set status [ SclFunction "DTM VOLUMES" {
  frm00095={
    {
      _action=display      
      nstr="2"
      trisolation1_id="1"
      loc3="pit1"
      loc2="pit1"
      nqual="0"
      loc1="dhc2"
      report_by_elevation="Y"
      trisolation2_id="1"
      upper_surface_object_name=""
      upper_surface_trisolation_name=""
      nsurf="2"
      density="2.000"
      combdy="Y"
      object1_id="2"
      lower_surface_object_name=""
      object2_id="1"
      detailed_report="Y"
      lower_surface_trisolation_name=""
      elevation_range="940,1070,10"
      decimals="2"
    }
  }
  frm00573={
    {
      _action=display 
      save_bdy="Y"
      new_bdy_loc="bdyres"
      report_format=".not"
      notloc="pit1"
    }
  }
  frm00121=table { _action } {     
    { "apply" }
    { "apply" }
  }
  frm00097=table { savedtm dtmloc } {
    { "N" "dhc2" }
    { "N" "pit" }
  }
}]

set status [ SclFunction "EXIT GRAPHICS" {} ]

set status [ SclFunction "RECALL ANY FILE" {
  file="bdyres.str"
  mode="openInNewLayer"
}]

set status [ SclFunction "DRAW DESC" {
  frm00089={
    {
      _action=display 
      range1=""
      range2=""
      range3=""
      ifld_num="d4"
      textalignment="<"
      position="Centroid"
      layer_name="bdyres.str"
    }
  }
}]

puts ""
puts ""
puts "Macro 05i_calculate_volume_between_2dtms.tcl completed."
puts ""