# ReadDICOM

VTKExamples/Tcl/IO/ReadDICOM

### Code

ReadDICOM.tcl

    package require vtk

    if { $argc != 2 } {
      puts "The command requires 2 arguments."
      puts "Please try again."
      exit
    }

    set folder [lindex $argv 0]
    set outputFile [lindex $argv 1]

    # Read all the DICOM files in the specified directory.
    vtkDICOMImageReader reader
    reader SetDirectoryName $folder
    reader Update

    set imagedata [reader GetOutput]

    vtkXMLImageDataWriter writer
    writer SetInput [reader GetOutput]
    writer SetFileName $outputFile
    writer Update

    puts "Output file ( $outputFile ) has been correctly saved."