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

set status [ SclFunction "FILE SAVE" {
  frmsaveFileAs={
    {
      AutoCAD={
        version="Autocad 18"
      }
      output_file="surpac2dtm:mod2"
      outputExt=".dtm"
      Datamine={
        binary_precision="Single"
      }
      Surpac={
        FileFormat="text"
        ForceValidation="true"
        Purpose=""
        ForceCompatibility="true"
        range=""
      }
      output_type="Surpac DTM Files"
    }
  }
  frmSaveMultipleFiles={
    {
      _action="apply"
    }
  }
}]


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

set status [ SclFunction "TOOL MODE TRADITIONAL" {} ]

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

set status [ SclFunction "CLEAR SCREEN" {} ]

set status [ SclFunction "DRAW STRINGS" {
  frm00089={
    {
      _action="display"
      range1="5,10"
      range2=""
      range3=""
      ifld_num="d1"
      textalignment="<"
      position="First point"
      layer_name="mod2.dtm"
    }
  }
}]

set status [ SclFunction "DIGITISER NEW STRING" {
  frm00083={
    {
      string="100"
      zval="939"
      desc=""
      retain="1"
    }
  }
}]

set status [ SclFunction "DIGITISER SELECT" {
  select_point=table { winx winy objectx objecty objectz } {
    { "0.624" "0.647" "5388.009" "10360.134" "1072.862" }
    { "0.441" "0.679" "5388.887" "10404.220" "1073.394" }
    { "0.236" "0.666" "5373.915" "10448.547" "1070.918" }
    { "0.069" "0.687" "5389.345" "10493.575" "1063.225" }
    { "-0.163" "0.728" "5390.616" "10549.539" "1063.708" }
    { "-0.352" "0.720" "5410.327" "10601.287" "1047.327" }
  }
}]

set status [ SclFunction "DIGITISER NEXT STRING" {} ]

set status [ SclFunction "DIGITISER SELECT" {
  select_point=table { winx winy objectx objecty objectz } {
    { "0.481" "-0.677" "5280.440" "10359.711" "845.148" }
    { "0.296" "-0.655" "5282.131" "10404.592" "843.036" }
    { "0.109" "-0.709" "5269.423" "10445.374" "831.817" }
    { "-0.122" "-0.644" "5275.141" "10502.769" "835.287" }
    { "-0.338" "-0.474" "5286.901" "10558.368" "858.095" }
    { "-0.519" "-0.480" "5297.674" "10605.103" "846.539" }
  }
}]

set status [ SclFunction "DIGITISER NEXT STRING" {} ]

set status [ SclFunction "DIGITISER SELECT" {
  select_point=table { winx winy objectx objecty objectz } {
    { "0.381" "-0.407" "5207.057" "10360.137" "930.065" }
    { "0.192" "-0.445" "5202.541" "10404.090" "918.431" }
    { "-0.011" "-0.461" "5202.264" "10452.611" "908.906" }
    { "-0.249" "-0.332" "5188.802" "10505.437" "933.999" }
    { "-0.468" "-0.350" "5186.736" "10557.122" "924.234" }
    { "-0.653" "-0.243" "5197.843" "10605.032" "935.599" }
  }
}]

set status [ SclFunction "DRAW STRINGS" {
  frm00089={
    {
      range1="100,102"
      range2=""
      range3=""
      ifld_num="d1"
      textalignment="<"
      position="First point"
      legend_location="no legend"
      layer_name="mod2.dtm"
    }
  }
}]

puts ""
puts "Click in graphics to continue"
puts ""

SclPause

set status [ SclFunction "TRIANGULATE CONTROL STRINGS" {
  select_point=table { winx winy objectx objecty objectz } {
    { "0.548" "0.660" "5387.926" "10378.270" "1073.296" }
    { "0.189" "-0.615" "5279.122" "10429.264" "849.329" }
    { "0.116" "-0.439" "5200.773" "10421.683" "917.960" }
  }
  frm00459={
    {
      iobj="2"
      itrisol="1"
    }
  }
}]

set status [ SclFunction "FILE SAVE" {
  frmsaveFileAs={
    {
      AutoCAD={
        version="Autocad 18"
      }
      _action="display"
      output_file="surpac2dtm:mod2"
      outputExt=".dtm"
      Datamine={
        binary_precision="Single"
      }
      Surpac={
        FileFormat="text"
        ForceValidation="true"
        Purpose=""
        ForceCompatibility="true"
        range=""
      }
      output_type="Surpac DTM Files"
    }
  }
  frmSaveMultipleFiles={
    {
      _action="apply"
    }
  }
}]


puts ""
puts ""
puts "Macro 02b_create_solid_control_strings.tcl completed."
puts ""
puts ""
