######################################################################
#
# Macro Name    : c:/tutorials/v5.2/underground mine design/data/_01_create_centreline_between_ore_zones.tcl
#
# Version       : Surpac Vision V5.2-C
#
# Creation Date : Tue Aug 22 12:34:46 2006
#
# Description   : 
#
######################################################################

set status [ SclFunction "EXIT GRAPHICS" {
  frm00108={
    {
      exit_mode="E"
    }
  }
}]

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

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

set status [ SclFunction "DRAW STRINGS" {
  frm00089={
    {
      _action=display
      range1=""
      range2=""
      range3=""
      ifld_num="d1"
      textalignment="<"
      position="First point"
      legend_location="no legend"
      layer_name="stopes1.str"
    }
  }
}]

set status [ SclFunction "CLEAR SCREEN" {} ]

set status [ SclFunction "DRAW STRINGS" {
  frm00089={
    {
      _action=display
      range1="200"
      range2=""
      range3=""
      ifld_num="d1"
      textalignment="<"
      position="First point"
      legend_location="no legend"
      layer_name="stopes1.str"
    }
  }
}]

set status [ SclFunction "SELECT LAYER" {
  activelayer="main graphics layer"
}]

set status [ SclFunction "DESIGN STRING" {
  frm00071={
    {
      idesign_string="10"
    }
  }
}]

set status [ SclFunction "DIGITISER MIDPOINT" {
  select_point=table { winx winy objectx objecty objectz } {
    { "-0.531" "0.413" "11150.581" "21944.895" "199.982" }
    { "-0.236" "0.654" "11202.886" "21963.120" "200.159" }
    { "0.536" "-0.835" "11251.665" "21732.851" "200.070" }
    { "0.833" "-0.599" "11304.108" "21750.353" "199.982" }
  }
}]

set status [ SclFunction "MODE CHANGE" {} ]

set status [ SclFunction "LOCATE ON LINE" {
  select_point=table { winx winy objectx objecty objectz } {
    { "-0.380" "0.531" "11177.100" "21953.428" "200.188" }
    { "0.677" "-0.720" "11276.795" "21741.625" "199.860" }
  }
  frm00196={
    {
      _action=display
      option="D"
      distance="50"
    }
  }
}]

set status [ SclFunction "MODE INSERT" {} ]

set status [ SclFunction "SUBDIVIDE STRING" {
  select_point=table { winx winy objectx objecty objectz } {
    { "-0.154" "0.267" "11198.441" "21908.550" "200.215" }
    { "0.682" "-0.714" "11277.651" "21742.016" "200.159" }
  }
  frm00272={
    {
      _action=display
      segdist="50"
      units="horizontal"
    }
  }
}]

set status [ SclFunction "DRAW NUMBERS" {
  frm00089={
    {
      _action=display
      range1=""
      range2=""
      range3=""
      ifld_num="d1"
      textalignment="<"
      legend_location="no legend"
      layer_name="main graphics layer"
    }
  }
}]

set status [ SclFunction "SAVE FILE AS" {
  output_file="ugdes1.str"
  output_type="Surpac String Files"
  output_filenames=""
  Surpac={
    Purpose=""
    range=""
    FileFormat="text"
    ForceValidation="true"
    ForceCompatibility="true"
  }
}]
puts ""
puts ""
puts ""
puts "macro _01_create_centreline_between_ore_zones.tcl complete"
puts ""
