Sub bln2cps_konverter() 
  
 Dim poeben(2) As Double 
 Dim numFile As Integer      'Текущий номер адреса файла 
 Dim kolFile As Integer      'Всего файлов для конвертации 
 Dim BLN As Integer          'Номер открытого BLN файла 
 Dim CPS As Integer          'Номер cps для записи 
 Dim CPSname As String       'Имя cps файля 
 Dim dlinName As Integer     'Длина имени файла bln 
 Dim chislZAP As Integer     'Число строк полигона 
 Dim ZAP As Integer     'Число строк полигона 
 Dim num As Integer      'Номер полигона в cps 
  
 kolFile = UBound(arr_name_file()) 
  
 For numFile = 1 To kolFile 
  
     BLN = FreeFile 
      
     Open arr_name_file(0) & "\" & arr_name_file(numFile) For Input As BLN 
          
          
         CPSname = arr_name_file(0) & "\" & Replace(arr_name_file(numFile), "bln", "cps")     'Задано имя выходного файла замещением расширения *.las на *.txt 
         CPS = FreeFile                                'Присвоили свободный номер создаваемому txt-файлу 
         Open CPSname For Output As CPS 
         Print #CPS, "FFASCI 0 1 " & Chr(34) & "Lines" & Chr(34) & " 0 10000000000" & Chr(13) & Chr(10) & "FFATTR 0 1" 
          
         num = 0 
         Do 
             num = num + 1 
             Print #CPS, "->" & num 
             Input #BLN, chislZAP 
             Input #BLN, poeben(2) 
                 For ZAP = 1 To chislZAP 
                     Input #BLN, poeben(0), poeben(1) 
                     Print #CPS, poeben(0) & " " & poeben(1) & " 0" 
                 Next ZAP 
         Loop Until EOF(BLN) 
          
     Close 
  
 Next numFile 
  
 End Sub