All Frameworks Object Hierarchy This Framework Previous Next Indexes
IUnknown
|
+---IDispatch
|
+---CATBaseUnknown
|
+---CATBaseDispatch
|
+---AnyObject
|
+---DrawingTable
| o Property AnchorPoint( | ) As CatTablePosition |
MyTable.AnchorPoint = CatTableBottomLeft
| o Property Angle( | ) As double |
PI = 3.1415926535 X = MyTable.Angle = PI/2
| o Property ComputeMode( | ) As CatTableComputeMode |
MyTable.ComputeMode = CatTableOFF
| o Property Leaders( | ) As CATIADrawingLeaders (Read Only) |
Dim LeaderCollection As DrawingLeaders Set LeaderCollection = MyTable.Leaders
| o Property NumberOfColumns( | ) As long (Read Only) |
oNbCol = MyTable.NumberOfColumns
| o Property NumberOfRows( | ) As long (Read Only) |
oNbRow = MyTable.NumberOfRows
| o Property x( | ) As double |
X = MyTable.x
| o Property y( | ) As double |
NewYCoordinate = 100 MyTable.y = NewYCoordinate
| o Sub AddColumn( | long | iCol) |
iCol = 0 MyTable.AddColumn iCol
| o Sub AddRow( | long | iRow) |
iRow = 2 MyTable.AddRow iRow
| o Func GetCellAlignment( | long | iRow, |
| long | iCol) As CatTablePosition |
iRow = 1 iCol = 3 oAlign = MyTable.GetCellAlignment(iRow, iCol)
| o Func GetCellBorderType( | long | iRow, |
| long | iCol) As CatTableBorderType |
iRow = 1 iCol = 3 oType = MyTable.GetCellBorderType(iRow, iCol)
| o Func GetCellName( | long | iRow, |
| long | iCol) As CATBSTR |
iRow = 1 iCol = 2 oName = MyTable.GetCellName(iRow, iCol)
| o Func GetCellObject( | long | iRow, |
| long | iCol) As CATIADrawingText |
iRow = 1 iCol = 3 Set MyText = MyTable.GetCellObject(iRow, iCol)
| o Func GetCellString( | long | iRow, |
| long | iCol) As CATBSTR |
iRow = 1 iCol = 4 oString = MyTable.GetCellString(iRow, iCol)
| o Sub GetCellsMerge( | CATSafeArrayVariant | oListOfMergeCells) |
nbrow = MyTable.NumberOfRows nbcol = MyTable.NumberOfColumns sizetab = nbrow*nbcol ReDim infoMerge (sizetab-1) MyTable.GetCellsMerge(oListOfmergeCells)
| o Func GetColumnSize( | long | iCol) As double |
iCol = 1 oColSize = MyTable.GetColumnSize(iCol)
| o Sub GetMergeInfos( | long | iRow, |
| long | iCol, | |
| long | oFirstRow, | |
| long | oFirstCol, | |
| long | oNbRow, | |
| long | oNbCol) |
MyTable.GetMergeInfos 2, 3, oFirstRow, oFirstCol, oNbRow, oNbCol
| o Func GetRowSize( | long | iRow) As double |
iRow = 1 oRowSize = MyTable.GetRowSize(iRow)
| o Sub InvertMode( | CatTableInvertMode | iMode) |
MyTable.InvertMode CatInvertColumn
| o Sub MergeCells( | long | iFirstRow, |
| long | iFirstCol, | |
| long | iNbRowMerge, | |
| long | iNbColMerge) |
MyTable.MergeCells 2, 3, 3, 3
| o Sub Move( | double | iDeltaX, |
| double | iDeltaY) |
DeltaX = 20.0 DeltaY = 0.0 MyTable.Move DeltaX, DeltaY
| o Sub RemoveColumn( | long | iCol) |
iCol = 1 MyTable.RemoveColumn iCol
| o Sub RemoveRow( | long | iRow) |
iRow = 3 MyTable.RemoveRow iRow
| o Sub Rotate( | double | iDeltaAngle) |
PI = 3.1415926535 MyTable.Rotate PI/4
| o Sub SetCellAlignment( | long | iRow, |
| long | iCol, | |
| CatTablePosition | iAlign) |
iRow = 3 iCol = 2 MyTable.SetCellAlignment iRow, iCol, CatTableBottomLeft
| o Sub SetCellBorderType( | long | iRow, |
| long | iCol, | |
| long | iType) |
iRow = 3 iCol = 2 MyTable.SetCellBorderType iRow, iCol, CatTableRight
| o Sub SetCellName( | long | iRow, |
| long | iCol, | |
| CATBSTR | iName) |
iRow = 1 iCol = 2 iName = "Cell 2" MyTable.SetCellName iRow, iCol, iName
| o Sub SetCellObject( | long | iRow, |
| long | iCol, | |
| CATIADrawingText | iText) |
iRow = 1 iCol = 3 MyTable.SetCellObject iRow, iCol, iText
| o Sub SetCellString( | long | iRow, |
| long | iCol, | |
| CATBSTR | iString) |
iRow = 3 iCol = 2 iString = "Title" MyTable.SetCellString iRow, iCol, iString
| o Sub SetColumnSize( | long | iCol, |
| double | iColSize) |
iCol = 1 iColSize = 20 MyTable.SetColumnSize iCol, iColSize
| o Sub SetRowSize( | long | iRow, |
| double | iRowSize) |
iRow = 1 iRowSize = 20 MyTable.SetRowSize iRow, iRowSize
| o Sub UnMergeCells( | long | iRow, |
| long | iCol) |
MyTable.UnMergeCells 3, 5
Copyright © 2003, Dassault Systèmes. All rights reserved.