' Anlegen einer Datentabelle für die temp. Speicherung der Daten
        Me._DataTable = New DataTable
        Me._DataTable.TableName = "Festpunkte"
        Me._DataTable.Columns.Add(New DataColumn() With {.ColumnName = _
          "Filter", .DataType = GetType(Boolean)})
        Me._DataTable.Columns.Add(New DataColumn() With {.ColumnName = _
        "EblPktNr", .DataType = GetType(String)})
        Me._DataTable.Columns.Add(New DataColumn() With {.ColumnName = _
        "AmtPktNr", .DataType = GetType(String)})
        Me._DataTable.Columns.Add(New DataColumn() With {.ColumnName = _
        "Rechtswert", .DataType = GetType(Double)})
        Me._DataTable.Columns.Add(New DataColumn() With {.ColumnName = _
        "Hochwert", .DataType = GetType(Double)})
        Me._DataTable.Columns.Add(New DataColumn() With {.ColumnName = "Höhe", _
        .DataType = GetType(Double)})
        Me._DataTable.Columns.Add(New DataColumn() With {.ColumnName = _
        "Vermarkung", .DataType = GetType(String)})
        Me._DataTable.Columns.Add(New DataColumn() With {.ColumnName = _
        "Dimension", .DataType = GetType(Integer)})
        Me._DataTable.Columns.Add(New DataColumn() With {.ColumnName = "GPS", _
        .DataType = GetType(Integer)})
        'Todo: Nigra Lagebezeichnung ergänzen
 
        ' setzen der Punktdaten
        'Todo: Datenbezeichnungen angpassen
        For Each Element In ElementListe
            Dim newRow As DataRow = Me._DataTable.NewRow()
            ' Filter
            newRow("Filter") = True
            ' EBL-Punktnummer
            If Element.Attributes.Contains("PKTNR") Then
                Log.ScreenLog(Element.Attributes("PKTNR").Value.ToString)
                newRow("EblPktNr") = Element.Attributes("PKTNR").Value
            Else
                newRow("EblPktNr") = ""
            End If
            ' amtliche Punktnummer
            If Element.Attributes.Contains("PKTNR") Then
                newRow("AmtPktNr") = Element.Attributes("PKTNR").Value
            Else
                newRow("AmtPktNr") = ""
            End If
            ' 2D-Koordinaten
            Dim ElementGeom As Autodesk.Map.IM.Graphic.Geometry
            Dim ElementPkt As Autodesk.Map.IM.Graphic.Point
            ElementGeom = CType(Element.Geometry, Autodesk.Map.IM.Graphic.Point)
            'Typkonvertierung
            ElementPkt = CType(ElementGeom, Autodesk.Map.IM.Graphic.Point)
            newRow("Rechtswert") = ElementPkt.X
            newRow("Hochwert") = ElementPkt.Y
            ' Höhe
            Dim HatHöhe As Boolean = True
            If Element.Attributes.Contains("Z") Then
                newRow("Höhe") = Element.Attributes("Z").Value
            Else
                HatHöhe = False
                newRow("v") = ""
            End If
            ' Vermarkung 
            ' Dimension - Status aus Combo
            ' GPS 
            'Todo: Attribute ergänzen
 
            Me._DataTable.Rows.Add(newRow)
        Next
 
        With f.DGV_Punkte
            .DataSource = Me._DataTable
            .Columns("Filter").DataPropertyName = "Filter"
            .Columns("EblPktNr").DataPropertyName = "EblPktNr"
            .Columns("amtNr").DataPropertyName = "AmtPktNr"
            .Columns("Rechtswert").DataPropertyName = "Rechtswert"
            .Columns("Hochwert").DataPropertyName = "Hochwert"
            .Columns("Höhe").DataPropertyName = "Höhe"
            .Columns("PktArt").DataPropertyName = "Vermarkung"
            .Columns("PktDim").DataPropertyName = "Dimension"
            .Columns("GPS").DataPropertyName = "GPS"
            'Todo: Nigra Lagebezeichnung ergänzen
        End With

VB.net Einsteiger im Bereich AutoCAD (Topobase bzw. Infrastructure Administrator)