######################################################################
#
# Macro Name    : c:/users/public/gemcom/surpac/63/demo_data/tutorials/drill_and_blast/_04_retake.tcl
#
# Version       : Surpac 6.3
#
# Creation Date : Fri Apr 27 15:30:47 2012
#
# Description   : 
#
######################################################################

set status [ SclFunction "EXIT GRAPHICS" {} ]

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

set status [ SclFunction "BLAST LOAD FROM DATABASE" {
  frmBlastLoadFromDatabase={
    {
       _action=display
      pattern="BP3"
    }
  }
}]

set status [ SclFunction "BLAST TRUE BOUNDARY" {
  frm10500={
    {
      _action=display
      new_layer="bound"
      string_number="4"
      trisolations="N"
      collar_elevation="Fixed"
      fixed_elevation="960"
      overwrite_cone_angle="Yes"
      cone_angle="45"
      arc_distance="1"
    }
  }
}]

set status [ SclFunction "BLAST CLIP TRUE BOUNDARY" {
  select_point=table { winx winy objectx objecty objectz snap_projection } {
    { "-0.410" "0.463" "113.643" "853.443" "960.750" "off" }
    { "-0.200" "0.450" "159.079" "852.014" "960.000" "off" }
    { "-0.022" "0.653" "197.943" "873.446" "960.000" "off" }
  }
}]

set status [ SclFunction "BLAST SOLID" {
  frmBlastSolid={
    {
       _action=display
      outputLayer="blast solid layer"
      blastPattern="BP1"
      rmc="Laterite"
      trimBlastSolid="N"
      collarElevation="Fixed"
      collarUseBoundaryElevation="Y"
      toeElevation="Fixed"
      toeFixedElevation="954"
    }
  }
  select_point={
    {
      winx="-0.258"
      winy="0.382"
      objectx="146.506"
      objecty="844.870"
      objectz="960.000"
      snap_projection="off"
    }
  }
}]

set status [ SclFunction "FILE SAVE" {
  frmsaveFileAs={
    {
       _action=display
      AutoCAD={
        version="Autocad 24 (2010)"
      }
      output_file="solid_bp1"
      outputExt=".dtm"
      saveStyle="N"
      Datamine={
        binary_precision="Single"
      }
      saveStyleFileName="SSI_STYLES:styles.ssi"
      Surpac={
        FileFormat="text"
        ForceValidation="true"
        Purpose=""
        ForceCompatibility="true"
        range=""
      }
      output_type="Surpac DTM Files"
    }
  }
  frmSaveMultipleFiles={
    {
      _action="apply"
    }
  }
}]

puts ""
puts ""
puts ""
puts ""
puts "Macro 04_blast_boundary_&_solid.tcl completed."
puts ""
puts ""