######################################################################
#
# Macro Name    : c:/tutorials/v5.2/underground mine design/data/_05b_triangulate_centreline.tcl
#
# Version       : Surpac Vision V5.2-C
#
# Creation Date : Wed Aug 23 13:17:08 2006
#
# Description   :
#
######################################################################

file delete -force ugdes_solid1.str
file delete -force ugdes_solid1.dtm

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

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

set status [ SclFunction "TRIANGULATE CENTRE LINE AND PROFILE" {
  frm00497={
    {
      _action=display
      plloc="drive_profile4x3_"
      plid="5"
      use_explicit_object_id="Y"
      explicit_object_id="10"
      scale="1"
      yoff="0"
      xoff="0"
      zoff="0"
      rotation="0"
      gfactor="1"
      vcon="N"
      triangulate_first_face="Y"
      triangulate_last_face="Y"
    }
  }
  select_point={
    {
      winx="0.132"
      winy="-0.550"
      objectx="11258.965"
      objecty="21673.311"
      objectz="212.483"
    }
  }
}]

set status [ SclFunction "TRIANGULATE CENTRE LINE AND PROFILE" {
  frm00497={
    {
      _action=display
      plloc="drive_profile3x"
      plid="3"
      use_explicit_object_id="Y"
      explicit_object_id="11"
      scale="1"
      yoff="0"
      xoff="0"
      zoff="0"
      rotation="0"
      gfactor="1"
      vcon="N"
      triangulate_first_face="Y"
      triangulate_last_face="Y"
    }
  }
  select_point=table { winx winy objectx objecty objectz } {
    { "0.018" "0.026" "11231.477" "21775.343" "199.932" }
    { "-0.069" "0.286" "11210.370" "21821.454" "199.932" }
    { "-0.161" "0.538" "11188.281" "21866.093" "199.932" }
    { "-0.259" "0.790" "11164.720" "21910.731" "199.932" }
    { "-0.049" "0.925" "11215.278" "21934.768" "199.932" }
    { "0.033" "0.649" "11234.913" "21885.714" "199.932" }
    { "0.118" "0.394" "11255.529" "21840.585" "199.932" }
    { "0.214" "0.139" "11278.599" "21795.455" "199.932" }
  }
}]

set status [ SclFunction "NEIGHBOURS AND VALIDATE OBJECT" {
  frm00659={
    {
      _action=display
      ob_num=""
      location="valid"
      rid="1"
      col_selfint="cyan"
      col_dup="yellow"
      col_touch="orange"
    }
  }
}]

set status [ SclFunction "SET OBJECT DIRECTION" {
  frm00464={
    {
      _action=display
      range=""
      solid="Y"
    }
  }
}]

set status [ SclFunction "SAVE FILE AS" {
  output_file="ugdes_solid1.dtm"
  output_type="Surpac DTM Files"
  output_filenames="ugdes_solid1.dtm,ugdes_solid1.str"
  Surpac={
    Purpose=""
    range=""
    FileFormat="text"
    ForceValidation="true"
    ForceCompatibility="true"
  }
}]
puts ""
puts ""
puts ""
puts " macro _05b_triangulate_centreline.tcl completed"
puts ""

