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

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

if {$filename!=""}\
	{
	set file [open $filename w+]
	
	# write comments...
	puts $file "#"
	puts $file "#"
	puts $file "# OBJ File generated by Sci-D-Vis's 3DE V3..."
	puts $file "#"
	puts $file ""
	
	# write object name...
	set name [getPGroupName $pg]
	puts $file "o $name"
	puts $file ""
	
	# write vertex list...
	set no_points 0
	for {set point [getFirstPoint $pg]} {$point!=0} {set point [getNextPoint $pg $point]}\
		{
		if {[isPointCalculated3D $pg $point]}\
			{
			set pos3d [getPointCalcPosition3D $pg $point]
			puts $file "v $pos3d"
			}
		set no_points [expr $no_points+1]
		}
	puts $file ""
	
	# write point list...
	for {set i 1} {$i<=$no_points} {set i [expr $i+1]}\
		{
		puts $file "p $i"
		}
	puts $file ""

	close $file
	}