Hide Table of Contents

Create Table Example (VB.NET)

This example shows how to change the transparency of the active Layer, create a TableStyle and Table, and change the background colors of the top row and a cell in the Table.

' Preconditions:
' 1. Create a VB.NET Windows console project.
' 2. Copy and paste this project into the VB.NET IDE.
' 3. Add a reference to
'    install_dir\APISDK\tlb\DraftSight.Interop.dsAutomation.dll
' 4. Start DraftSight and open a new document.
' 5. Open the Immediate window.
' 6. Press F5.
' Postconditions: 
' 1. Gets the transparency object for the active Layer and prints its
'    transparency percentage to the Immediate window.
' 2. Changes the transparency percentage of the active Layer and prints 
'    its new percentage to the Immediate window.
' 3. Creates and activates a new TableStyle named Sample Table Style. 
' 4. Inserts a Table and applies the Sample Table Style TableStyle.
' 5. Gets the transparency object for the Table.
' 6. Prints whether the transparency object for the Table is ByLayer.
' 7. If not, then changes and updates the transparency object 
'    of the Table to ByLayer. 
' 8. Changes the top row's background color.
' 9. Changes the background color of the cell in the second row 
'    and second column to match the top row's background color.  
'10. Prints the name of the TableStyle to the Immediate window.
'11. Examine the drawing and the Immediate window.
Imports DraftSight.Interop.dsAutomation
Module Module1
    Sub Main()
        Dim dsApp As DraftSight.Interop.dsAutomation.Application
        'Connect to DraftSight application
        dsApp = GetObject(, "DraftSight.Application")
        'Abort any command currently running in DraftSight
        'to avoid nested commands
        'Get active document
        Dim dsDoc As Document
        dsDoc = dsApp.GetActiveDocument()
        If dsDoc Is Nothing Then
            MsgBox("There are no open documents in DraftSight.")
        End If

       'Get how transparency is defined
        Dim dsLayerManager As LayerManager
        Dim dsLayer As Layer
        dsLayerManager = dsDoc.GetLayerManager()
        dsLayer = dsLayerManager.GetActiveLayer()
        Debug.Print("Transparency percentage for active Layer: " + Convert.ToString(dsLayer.Transparency))
        'Set new transparency percentage for the active Layer
        dsLayer.Transparency = 50
        Debug.Print("New transparency percentage for active Layer: " + Convert.ToString(dsLayer.Transparency))
        'Get the TableStyle Manager
        Dim dsTableStyleManager As TableStyleManager
        dsTableStyleManager = dsDoc.GetTableStyleManager
        'Create the TableStyle
        Dim dsTableStyle As TableStyle
        Dim sampleTableStyle As String
        Dim status As Integer
        sampleTableStyle = "Sample Table Style"
        dsTableStyleManager.CreateTableStyle(sampleTableStyle, dsTableStyle, status)
        'Set the TableStyle styles
        'Create the Table in a downward direction
        dsTableStyle.HeaderOrientation = dsTableHeaderOrientation_e.dsTableHeaderOrientation_Down
        'Set the Colors for the Table backgrounds
        Dim dsColorHeader As Color
        Dim dsColorData As Color
        Dim dsColorTitle As Color
        dsColorHeader = dsTableStyle.GetBackgroundColor(dsTableCellType_e.dsTableCellType_Header)
        dsTableStyle.SetBackgroundColor(dsTableCellType_e.dsTableCellType_Header, dsColorHeader)
        dsColorData = dsTableStyle.GetBackgroundColor(dsTableCellType_e.dsTableCellType_Data)
        dsTableStyle.SetBackgroundColor(dsTableCellType_e.dsTableCellType_Data, dsColorData)
        dsColorTitle = dsTableStyle.GetBackgroundColor(dsTableCellType_e.dsTableCellType_Title)
        dsTableStyle.SetBackgroundColor(dsTableCellType_e.dsTableCellType_Title, dsColorTitle)
        'Activate the TableStyle
        'Get the model document
        Dim dsModel As Model
        dsModel = dsDoc.GetModel
        'Get the Sketch Manager
        Dim dsSketchManager As SketchManager
        dsSketchManager = dsModel.GetSketchManager
        'Insert the Table
        Dim dsTable As Table
        Dim x As Double
        x = 6
        Dim y As Double
        y = 6
        Dim row As Integer
        row = 4
        Dim col As Integer
        col = 5
        Dim rowHeight As Double
        rowHeight = 2
        Dim colWidth As Double
        colWidth = 4
        dsTable = dsSketchManager.InsertTable(x, y, row, col, rowHeight, colWidth, dsTableCellType_e.dsTableCellType_Title, dsTableCellType_e.dsTableCellType_Header, dsTableCellType_e.dsTableCellType_Data)
        'Get transparency object for Table
        Dim dsTransparency As Transparency
        dsTransparency = dsTable.Transparency()
        'Find out if Table's transparency is ByLayer
        Debug.Print("Transparency defined ByLayer: " + Convert.ToString(dsTransparency.IsByLayer))
        'If not, then change Table's transparency to ByLayer and 
        'update Table's transparency object
        If Not dsTransparency.IsByLayer Then
            Debug.Print("Transparency now ByLayer: " + Convert.ToString(dsTransparency.IsByLayer))
            'Update Table's transparency object 
            dsTable.Transparency = dsTransparency
        End If
        'Change Table's top row's background color
        dsTable.SetBackgroundColor(dsTableCellType_e.dsTableCellType_Title, dsColorTitle)
        'Change background color of cell in the second row and  
        'second column to match the top row's background color
        dsTable.SetCellBackgroundColor(1, 1, dsColorTitle)
        'Get the name of the TableStyle for the just-inserted Table
        Debug.Print("TableStyle applied to this table: " + dsTableStyle.Name)

        dsApp.Zoom(dsZoomRange_e.dsZoomRange_Fit, NothingNothing)
    End Sub 
End Module

Provide feedback on this topic

SOLIDWORKS welcomes your feedback concerning the presentation, accuracy, and thoroughness of the documentation. Use the form below to send your comments and suggestions about this topic directly to our documentation team. The documentation team cannot answer technical support questions. Click here for information about technical support.

* Required

Subject:   Feedback on Help Topics
Page:   Create Table Example (VB.NET)
*   I acknowledge I have read and I hereby accept the privacy policy under which my Personal Data will be used by Dassault Systèmes

Print Topic

Select the scope of content to print:


We have detected you are using a browser version older than Internet Explorer 7. For optimized display, we suggest upgrading your browser to Internet Explorer 7 or newer.

 Never show this message again

Web Help Content Version: API Help (English only) 2024 SP02

To disable Web help from within SOLIDWORKS and use local help instead, click Help > Use SOLIDWORKS Web Help.

To report problems encountered with the Web help interface and search, contact your local support representative. To provide feedback on individual help topics, use the “Feedback on this topic” link on the individual topic page.