Hallo zusammen,
ich versuche gerade, die Größe einer Tabelle zu ermitteln. Leider funktioniert die Funktion GetRowSize, bzw. GetColumnSize nicht richtig, ich bekomme als Ergebnis immer null. Hat schon jemand Erfahrung mit dieser Funktion genacht und kann mir vielleicht weiterhelfen? Vielen Dank schonmal im voraus.
Gruß, Holger
Hier ist ein Auszug aus meinem Code:
Sub CATMain()
Language = "VBSCRIPT"
Set MyDrw = CATIA.ActiveDocument
Set User_Selection = MyDrw.Selection
Set MySheets = MyDrw.Sheets
Set MySheet = MySheets.ActiveSheet
Set MyViews = MySheet.Views
For x1 = 1 To MyViews.Count
Set MyView = MyViews.Item(x1)
Set MyDrawingTables = MyView.Tables
For x2 = 1 To MyDrawingTables.Count
Set MyDrawingTable = MyDrawingTables.Item(x2)
Table_x = MyDrawingTable.X
Table_y = MyDrawingTable.Y
oNbCol = MyDrawingTable.NumberOfColumns
oNbRow = MyDrawingTable.NumberOfRows
Table_width = 0
Table_height = 0
For x3 = 1 to oNbCol
iColSize = MyDrawingTable.GetColumnSize(x3)
Table_width = Table_width + iColSize
Next
For x3 = 1 to oNbRow
Table_height = Table_height + MyDrawingTable.GetRowSize(x3)
Next
output_string = ""
output_string = MyDrawingTable.name + ": x=" + cstr(Table_x) + " y=" + cstr(Table_y) + " Height= "
output_string = output_string + cstr(Table_height) + " Width= " + cstr(Table_width)
MsgBox(output_string)
Next
Next
End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP