! Array bilden, 4x4 Werte
*DIM,tt,ARRAY,4,4
  
! Datei "Datei.txt" auslesen und in Array schreiben
*VREAD,tt,Datei,txt,,IJK,4,4,,
(4D2.0)
  

/prep7

*do,i,1,4
*do,j,1,4
param=tt(i,j)                  !* param ist eine Hilfsvariable
*if,param,eq,1,then
WPLANE,,i,j,1,0,0,0,0,1,0      !* Verschiebt WP an die Koordinaten i,j,Z=0, die Vektoren 1,0,0 und 0,1,0 definieren die Ebene
BLC5,0,0,1,1                   !* Erzuegt fläche (1x1)
*else
*enddo
*enddo