# include SDV's TCL vector lib...
set path [get3DEInstallPath]
source $path/user_data/tcl_archive/veclib.tcl

open3DEConsole

set pg [getSelectedPGroup]
if {$pg==0}\
	{
	bell
	post3DEInfoRequester " \n    Error, there is no Pointgroup selected.    \n"
	return
	}

set np [getNoPoints $pg]
set name [getPGroupName $pg]
if {$np==0}\
        {
        bell
        post3DEInfoRequester " \n    Error, there are no points in pointgroup $name.!    \n"
        return
        }

set tcl_precision 17

set filename [post3DEFileRequester "Export Survey Txt file..." "*"]
if {$filename!=""}\
	{
	set file [open $filename w+]
	
	set i 0
	
	for {set point [getFirstPoint $pg]} {$point!=0} {set point [getNextPoint $pg $point]} \
		{
		if {[getPointSelectionFlag $pg $point]}\
			{
			if {[isPointCalculated3D $pg $point]} \
				{
				set point_name [getPointName $pg $point]
				set point_pos_3d [getPointCalcPosition3D $pg $point]
				set x [lindex $point_pos_3d 0]
 				set y [lindex $point_pos_3d 1]
				set z [lindex $point_pos_3d 2]
	
				puts $file "$point_name     $x     $y     $z"
				
				set i [expr $i+1]
				}
			}
		}
		close $file
		
		print3DEConsole "$i point(s) written into file \"$filename\"\n"
	}