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


set filename [post3DEFileRequester "Import Survey Txt file..." "*"]

if {$filename!=""}\
	{
	set file [open $filename r+];
	
	open3DEConsole
	print3DEConsole "Import Survey Points...\n\n"
	flush3DEConsole

	while {![eof $file]}\
		{
		# get a line out of file...
		set line [gets $file ];
		
		set name [lindex $line 0]
		
		if {$name!=""}\
			{
			set point [findPointByName $pg $name]
			if { $point==0 }\
				{
				print3DEConsole "Can't find point $name. Creating new one...\n"
				flush3DEConsole
				set point [createPoint $pg]
				setPointName $pg $point $name
				}\
			else\
				{
				print3DEConsole "Found point $name.\n"
				flush3DEConsole
				}
			
			set pos3d [list [lindex $line 1] [lindex $line 2] [lindex $line 3] ]
			setPointSurveyType $pg $point SURVEY_EXACT
			setPointPosition3D $pg $point $pos3d
			}
		
		}	
	}