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

set status [ SclFunction "FILE SAVE" {
  frmsaveFileAs={
    {
      AutoCAD={
        version="Autocad 18"
      }
      output_file="surpac2dtm:mod3"
      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 "RECALL ANY FILE" {
  file="mod3.dtm"
  mode="openInNewLayer"
}]

set status [ SclFunction "CLEAR SCREEN" {} ]

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

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

SclPause

set status [ SclFunction "TRIANGULATE MANY SEGMENTS" {
   frm00459={
    {
      _action=display
      iobj="3"
      itrisol="1"
    }
  }

  frm00651={
    {
      _action=display
      theopt1="N"
      theopt2="R"
    }
  }
  frm00655={
    {
      _action=display
      str_seg="STR"
      seg_no="1"
      str_rg="11,14"
    }
  }
}]

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

SclPause

set status [ SclFunction "SAVE FILE AS" {
    output_file="mod3.dtm"
  output_type="Surpac DTM Files"
  output_filenames="mod3.dtm,mod3.str"
  Surpac={
    Purpose=""
    range=""
    FileFormat="text"
    ForceValidation="true"
    ForceCompatibility="true"
  }
  frmSaveMultipleFiles={
    {
       _action="apply"

    }
  }
}]

puts ""
puts ""
puts ""
puts ""
puts "Macro 02c_create_solid_triangulate_many_segments.tcl completed."
puts ""
puts ""
