With DVG
            'ToDo: löschen der Tabelle
            Dim i As Integer
            ' die Checkbox kann geschrieben werden
            For i = 1 To 9
                .Columns(i).ReadOnly = True
            Next
 
            Dim row As ArrayList = New ArrayList
            row.Add(True)
            For Each Element In FP_ElementListe
                If Element.Attributes.Contains("PKTNR") Then
                    row.Add(Element.Attributes("PKTNR").Value)
                Else
                    row.Add("")
                End If
                ' amtliche Punktnummer
                If Element.Attributes.Contains("PKTNR") Then
                    row.Add(Element.Attributes("PKTNR").Value)
                Else
                    row.Add("")
                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)
                row.Add(Math.Round(ElementPkt.X, 3).ToString)
                row.Add(Math.Round(ElementPkt.Y, 3).ToString)
                ' Höhe
 
 
 
                row.Add("4459652,012")
                row.Add("5952412,256")
                row.Add("17,981")
                row.Add("AP_B")
                Dim picDim As Image = Image.FromFile(k_GlobalImageFolderMap & _
                  "1D-Punkt.png")
                row.Add(picDim)
                Dim picGPS As Image = Image.FromFile(k_GlobalImageFolderMap & _
                  "GPS_yes.png")
                row.Add(picGPS)
 
 
                .Rows.Add(row.ToArray)
            Next
        End With

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