set tcl_precision 17	

set ok [post3DEQuestionRequester " \n    This script converts all calculated points of the
currently selected pointgroup to \"Survey-Free\".    \n\n    Are you sure to continue?\n" "Convert Points" "Cancel"]
if {$ok}\
	{
	set pg [getSelectedPGroup]
	
	if {$pg==0}\
		{
		bell
		post3DEInfoRequester " \n    Error, there is no pointgroup selected.    \n"
		return
		}
		
	set no_converted_points 0
	for {set point [getFirstPoint $pg]} {$point!=0} {set point [getNextPoint $pg $point]}\
		{
		if {[isPointCalculated3D $pg $point]}\
			{
			
			setPointSurveyType $pg $point SURVEY_FREE
			
			set no_converted_points [expr $no_converted_points+1]
			}
		}
	
	open3DEConsole
	print3DEConsole $no_converted_points " points converted to \"Survey-Free\"!\n\n"
	}