vbehun napsal(a): Seiner napsal(a): ...atributy X a Y jsou v daném případě efektní, ale zbytečné - nesou jen redundantní informaci o souřadnici... Nesou (neredundantní) informaci o souřadnicích příslušného atributu. Souřadnice vkládacího bodu bloku jsou v položkách BL:X; BL:Y Pokud jsou atributy neviditelné, lze je zobrazit příkazem " ATRDISP"  "(_ATTDISP)"

 

To bylo kvůli tomuto.

Osobně se domnívám, že ty atributy X a Y jsou v daném případě efektní, ale zbytečné - nesou jen redundantní informaci o souřadnici.

Při extrahování dat stačí načítat jméno bloku a jeho souřadnice:
c:quote ""
BL:NAME c010000
BL:X N015005
BL:Y N015005
bod c003000

 

Makro pro zpracování souboru v excelu by mohlo vypadat nějak jako:

Private Sub CommandButton1_Click()
reta = "Textové soubory (*.txt; *.csv),*.txt;*.csv"
 
   'dialog Otevřít
   souborkotevreni = Application.GetOpenFilename _
   (reta)
   If Not IsNull(souborkotevreni) Then
    Open souborkotevreni For Input As 1
    
     radek = 1
     While Not EOF(1)
      Input #1, blok, x, y, ID
      If blok = "sourXY" Then
       Range("A" & radek).Select
       ActiveCell.FormulaR1C1 = ID
       Range("B" & radek).Select
       ActiveCell.FormulaR1C1 = x
       Range("C" & radek).Select
       ActiveCell.FormulaR1C1 = y
       radek = radek + 1
      End If
     Wend
    Close 1
   End If
End Sub