######################################################################
#
# Macro Name    : _06_load_base_string.tcl
#
# Version       : Surpac 6.3
#
# Creation Date : Thu Apr 05 13:27:08 2012
#
# Description   : 
#
######################################################################

#macro 5

set status [ SclFunction "EXIT GRAPHICS" {} ]

set status [ SclFunction "BM EXIT" {
  frm20103={
    {
      exit_mode="S"
    }
  }
}]

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

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

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

set status [ SclFunction "ZOOM ALL" {} ]

#macro 6 starts

set status [ SclFunction "SLICING PLANES" {
  frm00298={
    {
      _action=display
      forward="11"
      backward="1"
      method="Elevation"
      plane_thickness=""
      step_distance=""
      value="880,1100,10"
      sectionBlockModel="N"
      block_layer="block sections"
      tolerance="0"
      section_objects="N"
      object_range=""
      object_layer="object sections"
      confirm_line_ends="N"
      interval_range="range"
      colour_fill_bm_sections="N"
      zoom_plane="Y"
      view_limits="N"
      display_planes="N"
      use_interactive="N"
      colour_method="No change"
      trace_colour="jungle green"
    }
  }
}]

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


puts ""
puts ""
puts " Macro _06_load_base_string.tcl completed"
puts ""