source: trunk/import_gsas.tcl @ 460

Last change on this file since 460 was 460, checked in by toby, 11 years ago

# on 2001/10/14 05:37:32, toby did:
use dumpexp.tcl to import coordinates from a .EXP file

  • Property rcs:author set to toby
  • Property rcs:date set to 2001/10/14 05:37:32
  • Property rcs:rev set to 1.1
  • Property rcs:state set to Exp
  • Property svn:keywords set to Author Date Revision Id
File size: 532 bytes
Line 
1# $Id: import_gsas.tcl 460 2009-12-04 23:06:32Z toby $
2
3#-------------------------------------------------
4# define info used in addcmds.tcl
5if {[file exists [file join $expgui(scriptdir) dumpexp.tcl]]} {
6    set description "GSAS .EXP file"
7    set extensions {.EXP .O??}
8    set procname ReadGSASEXPCoordinates
9}
10#-------------------------------------------------
11
12proc ReadGSASEXPCoordinates {filename} {
13    global wishshell expgui
14    set result {}
15    catch {
16        set result [exec $wishshell \
17                [file join $expgui(scriptdir) dumpexp.tcl] $filename]
18    }
19    return $result
20}
Note: See TracBrowser for help on using the repository browser.