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

set first_point 1

set filename [post3DEFileRequester "Import OBJ Point Cloud..." "*"]

if {$filename!=""}\
	{
	set file [open $filename r+];
	
	while {![eof $file]} {\
		
		# get a line out of file...
		set string [gets $file ];
		
		# "parse" string...
		if {[lindex $string 0]=="v"} {\
			# create new point...
			set point [createPoint $pg]
			if {$first_point}\
				{
				set first_point 0
				setPointName $pg $point "00"
				}
			set pos3d [lrange $string 1 3]
			setPointPosition3D $pg $point $pos3d
			setPointSurveyType $pg $point SURVEY_EXACT
			
			print3DEConsole "point created: " $pos3d "\n";
			flush3DEConsole;
			}
		}
	
	close $file
	}