Построение полилиний по координатам из файла

Для начала тебе необходимо открыть файл и загнать числовую информацию в массив... Я так понимаю [REGION] это начало новой линии поэтому необходимо все это делать в цикле...
dim J as double
dim StrCOORD() as double
dim JStr as double
Open "c:\coord.txt" For Input As #1
    j = 0
next:
    Do Until EOF(1)
      if Line Input #1 = "REGION" then JStr=J: exit do
      if j=0 then
        if IsNumeric(Line Input #1) then
             ReDim Preserve StrCOORD(j)
             Line Input #1, StrCOORD(j)
        end if
       else
         if j<jstr then
           if IsNumeric(Line Input #1) then
             ReDim Preserve StrCOORD(j)
             Line Input #1, StrCOORD(j)
           end if
         end if
       end if
       j = j + 1
    Loop
dim PLine as AcadLWPolyline
Set PLin = ThisDrawing.PaperSpace.AddLightWeightPolyline(strcoord)
if eof(1)=false then goto next
Close
'Вот такая вот хрень у меня набросалась даже не в редакторе если ее немножко
'подработаеш будет все работать...