set tcl_precision 17	

post3DEInfoRequester " \n    Triangulate 3D positions of all selected, survey-free points of the currently selected pointgroup/sequence...    \n"

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

set fobj [getSelectedFobj]
if {$fobj==0}\
	{
	bell
	post3DEInfoRequester " \n    Error, there is no Sequence selected.    \n"
	return
	}
		
for {set point [getFirstPoint $pg]} {$point!=0} {set point [getNextPoint $pg $point]}\
	{
	if {[getPointSelectionFlag $pg $point]}\
		{
		set survey [getPointSurveyType $pg $point]
		if {$survey=="SURVEY_FREE"}\
			{
			set pos3d [calcPointPosition3D $pg $point $fobj]
			setPointCalcPosition3D $pg $point $pos3d
			setPointCalculated3D $pg $point 1
			}
		}
	}