Public Class Table
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim objApp As SolidEdgeFramework.Application = Nothing
Dim objDoc As SolidEdgeDraft.DraftDocument = Nothing
Dim objSheets As SolidEdgeDraft.Sheets = Nothing
Dim objSheet As SolidEdgeDraft.Sheet = Nothing
Dim objTables As SolidEdgeDraft.Tables = Nothing
Dim objTable As SolidEdgeDraft.Table = Nothing
Dim objTitles As SolidEdgeDraft.TableTitles = Nothing
Dim objTitle As SolidEdgeDraft.TableTitle = Nothing
Dim objColumns As SolidEdgeDraft.TableColumns = Nothing
Dim objColumn As SolidEdgeDraft.TableColumn = Nothing
Dim bValue As Boolean
Dim nValue As Long
Dim sValue As String
Dim dValue As Double
Dim FontStyle As SolidEdgeFrameworkSupport.DimTextFontStyleConstants
Try
objApp = GetObject(, "SolidEdge.Application")
objDoc = objApp.ActiveDocument
objSheets = objDoc.Sheets
objSheet = objDoc.Sheets.Item(1)
objTables = objDoc.Tables
objTable = objTables.Item(1)
objTitles = objTable.Titles
objTitle = objTitles.Item(1)
objColumns = objTable.Columns
objColumn = objColumns.Item(1)
'TitleFixedRowHeight
objTable.TitleFixedRowHeight = 0.01
dValue = objTable.TitleFixedRowHeight
Debug.Print(dValue)
'FontName
objTitle.FontName = "Arial"
sValue = objTitle.FontName
Debug.Print(sValue)
'FontStyle
objTitle.FontStyle = SolidEdgeFrameworkSupport.DimTextFontStyleConstants.igDimStyleFontBold
FontStyle = objTitle.FontStyle
Debug.Print(FontStyle)
'FontSize
objTitle.FontSize = 0.02
dValue = objTitle.FontSize
Debug.Print(dValue)
'DataMergeCellsWithSameValue
objColumn.DataMergeCellsWithSameValue = True
bValue = objColumn.DataMergeCellsWithSameValue
Debug.Print(bValue)
'HeaderRowFontName
objColumn.CurrentHeaderRow = 1
objColumn.HeaderRowFontName = "Arial"
sValue = objColumn.HeaderRowFontName
Debug.Print(sValue)
'HeaderRowFontStyle
objColumn.HeaderRowFontStyle = SolidEdgeFrameworkSupport.DimTextFontStyleConstants.igDimStyleFontBold
FontStyle = objColumn.HeaderRowFontStyle
Debug.Print(FontStyle)
'HeaderRowUnderline
objColumn.HeaderRowUnderline = True
bValue = objColumn.HeaderRowUnderline
Debug.Print(bValue)
'DataFontName
objColumn.DataFontName = "Arial"
sValue = objColumn.DataFontName
Debug.Print(sValue)
'DataFontStyle
objColumn.DataFontStyle = SolidEdgeFrameworkSupport.DimTextFontStyleConstants.igDimStyleFontBold
FontStyle = objColumn.DataFontStyle
Debug.Print(FontStyle)
'DataUnderline
objColumn.DataUnderline = True
bValue = objColumn.DataUnderline
Debug.Print(bValue)
objTable.Update()
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
End Class