Скрипт зберігає об'єкти карти, які у заданому шарі в окремі файли з будь-яким розширенням, яке підтримується програмою. При цьому в коді скрипту потрібно вказати шар об'єктів, які слід брати до уваги, параметр, в якому записана назва для майбутнього файлу, шлях, куди зберігати та розширення файлів.

;шар полігонів
$Layer=9151939
;параметр із назвою для файлу
$Name=1190357
;шлях, куди зберігати файли
$Papka=@ProgramFolder
$Path=$Papka\Результат
;формат файлу
$Format=kmz
;
$FE=@FolderExists $Path
@if $FE=0 then 
@CreateFolder $Path
;Перевірка наявності відкритої карти
$CountMap=@MapCount
@If $CountMap=0 then @Break Для роботи скрипту потрібна карта із полігонами
;Перевірка, чи є потрібні шари
@Map.DeselectAll
@Map.SelectLayer ID$Layer
$N=@Map.SelCount
@If $N<1 @Break На карті відсутні об'єкти у шарі ID$Layer
$ThisObj=0
$MC=@Map.Count
%Start
$ThisObj=$ThisObj+1
@if $ThisObj>$MC then @Break Зроблено!
$LID=@Map.Object[$ThisObj].LayerID
@if $LID<>$Layer then @Goto %Start
$MapName=@Map.Object[$ThisObj].Parameter[ID$Name]
@Map.DeselectAll
@Map.SelectObject $ThisObj
@Map.Copy
@FileNew $MapName
@Map.Paste
@Map.SaveToFile $Path\$MapName.$Format
@CloseMap $Path\$MapName.$Format
@Goto %Start