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."