Наша задача будет произвести запись в файл. Итак, код:

theView = av.FindDoc("View1")

x=1
if (theView<>nil) then

	theTheme = theView.FindTheme("base.shp") 
	if (theTheme<>nil) then
		theFTab = theTheme.GetFTab
		shapeField  = theFTab.FindField( "Shape" )
		exportFile = LineFile.Make("c:\1.gen".AsFileName, #FILE_PERM_WRITE)

		for each recNum in theFTab
			currentShape = theFTab.ReturnValue( shapeField, recNum )
			pt=currentShape.ReturnCenter 
			Xvalue = pt.GetX.AsString
			Yvalue = pt.GetY.AsString
			outputLine = x.AsString+", "+Xvalue+", "+Yvalue
			exportFile.WriteElt( outputLine )
			x=x+1
		end

		exportFile.WriteElt( "END" )
		exportFile.Close
	else
		MsgBox.Info( "No Theme", "")
	end
else
	MsgBox.Info( "No View", "")
end

Что здесь нового, это создание файла.

exportFile = LineFile.Make("c:\1.gen".AsFileName, #FILE_PERM_WRITE)

Здесь имя есть и тип записи. После создания можно проводить запись. В данном случае пишется строка.

exportFile.WriteElt( outputLine )

А в самом конце закрываем файл.

exportFile.Close

Можно собирать и запускать. Будет сформирован GEN файл.