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