Hallo Bernd, danke dir, ja, ich kenne die Funktion AddRow, mit der arbeite ich auch hier. Mein Code sieht so aus:
Public Sub Cmd_ZeileHinzufuegen_Click()
Dim CATIA As Object
Set CATIA = GetObject(, "CATIA.Application")
Dim MyDrawingDoc As DrawingDocument
Set MyDrawingDoc = CATIA.ActiveDocument
Dim MyDrawingSheets As DrawingSheets
Set MyDrawingSheets = MyDrawingDoc.Sheets
Dim MyDrawingSheet As DrawingSheet
Set MyDrawingSheet = MyDrawingSheets.ActiveSheet
Dim MyDrawingViews As DrawingViews
Set MyDrawingViews = MyDrawingSheet.Views
Dim drwviews As DrawingViews
Set drwviews = MyDrawingSheet.Views
drwviews.Item("Background View").Activate
Dim DrwTable As DrawingTable
Set DrwTable = MyDrawingViews.ActiveView.Tables.Add(10, 200, 2, 4, 20, 50)
DrwTable.AddRow (1)
End Sub
Das Problem wird sein, dass wenn man den Button ein weiteres Mal drückt, die tabelle nochmal gezeichnet wird und dann die Zeile auch wieder dahinter angehängt wird. Das ganze wird also überschrieben. Gibt es ggf eine Möglichkeit das ganze mit ener Schleife zu lösen?
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP