Конвертер линий bln в cps-3

Форум » Программистские штучки » Конвертер линий bln в cps-3 » Ответить

Конвертер линий bln в cps-3

Бутеноп: [pre2] 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 [/pre2]

Ответов - 1

Бутеноп: В догонку пара примечаний. 1. Каменты писал я для себя и, возможно для другой программы, так что они могут слегка некоррелироваться в кодом. 2. В bln нет информации о координате z, в cps-3 забиваются тупо нули.

полная версия страницы