######################################################################
#
# Macro Name    : c:/tutorials/drill_and_blast/data/06b_presplit_holes_line.tcl
#
# Version       : Surpac Vision V5.2-C
#
# Creation Date : Wed Jun 28 09:08:02 2006
#
# Description   : 
#
######################################################################

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

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


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

set status [ SclFunction "CREATE DTM" {
  frm00126={
    {
      location="bench"
      id="940"
      swadesc="Y"
      break="Y"
      anyspots="N"
      brktest="Y"
      check_distance="0.005"
      interpolate_new_points="N"
    }
  }
}]

########### pause here, wait for user response (say enter key), then proceed
puts ""
puts ""
puts ""
puts ""
puts "Click in graphics to continue."
puts ""
puts ""


SclPause

set status [ SclFunction "PLAN" {} ]

set status [ SclFunction "WINDOW IN" {
  window_drag={
    {
      winx1="0.287"
      winy1="-0.174"
      winx2="0.422"
      winy2="-0.335"
      objectx1="307.529"
      objecty1="734.813"
      objectz1="950.000"
      objectx2="346.152"
      objecty2="700.406"
      objectz2="950.000"
    }
  }
}]


set status [ SclFunction "BLAST PRESPLIT LINE" {
  window_drag={
    {
      winx1="0.035"
      winy1="0.447"
      winx2="0.188"
      winy2="-0.673"
      objectx1="309.175"
      objecty1="750.591"
      objectz1="950.000"
      objectx2="316.443"
      objecty2="711.054"
      objectz2="950.000"
    }
  }
  

frm01127={
    { 
      _action=display
      xpos="309.175"
      ypos="750.591"
      width="40.2"
      angle="169.583"
      size_method="Spacing"
      spacing_inp="4"
      offset="0"
      collar_el="DTM file"
      file_location="bench"
      file_id="940"
      visible="No"
      hole_length="Set Length"
      set_length="50"
      bearing_type="Perp. to Segment"
      dip="0"
      diameter="0.1"
      clip="No"
      pattern_id="950drains"
      prefix="950-"
      suffix="d"
      start="701"
      pad_check="No"
      subdrill=""
      rig="Rig-1"
    }
  }
  digitise_point={
    {
      winx="0.535"
      winy="-0.013"
      objectx="332.871"
      objecty="734.358"
      objectz="950.000"
      mousebutton="1.000"
    }
  }
}]

set status [ SclFunction "DRAW DESC" {
  frm00089={
    {
      range1=""
      range2=""
      range3=""
      ifld_num="d3"
      textalignment="<"
      position="All points"
      legend_location="no legend"
      layer_name="blast hole layer"
    }
  }
}]

########### pause here, wait for user response (say enter key), then proceed
puts ""
puts ""
puts ""
puts ""
puts "Click in graphics to continue."
puts ""
puts ""


SclPause

set status [ SclFunction "VIEW BY BEARING" {
  frm00289={
    {
      bearing="5"
      dip="-30"
    }
  }
}]

########### stop here, end of macro
puts ""
puts ""
puts ""
puts ""
puts "End of Macro 06b_presplit_holes_line.tcl"
puts ""
puts ""
