Hide Table of Contents

Create a Layer State Example (VB.NET)

This example shows how to create a Layer state and get one of its stored Layer's properties.

'-------------------------------------------------------------
' 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. Open the Immediate window.
' 5. Start DraftSight.
' 6. Ensure the specified document to open exists.

' 7. Click Start.
'
' Postconditions:
' 1. Specified document is opened.
' 2. A layer state is created.
' 3. Properties of the stored Layer, Object, are printed out.

'------------------------------------------------------------
 
 

Imports System.IO
Imports DraftSight.Interop.dsAutomation
Module Module1
 
    Sub main()
 
        Dim dsApp As Application
        'Connect to DraftSight application
        dsApp = GetObject(, "DraftSight.Application")
        'Abort any command currently running in DraftSight
        'to avoid nested commands
        dsApp.AbortRunningCommand()
        'Open document
        Dim dsDoc As Document
        Dim docName As String
        docName = "c:\ProgramData\Dassault Systemes\DraftSight\Examples\B-44563.DWG"
        dsDoc = dsApp.OpenDocument2(docName, dsDocumentOpenOption_e.dsDocumentOpen_Default, dsEncoding_e.dsEncoding_Default)
        If dsDoc Is Nothing Then
            MsgBox("Specified document did not open. Check path and file name.")
            Return
        End If
 
        'Create a Layer state and get one of its Layer's properties
        Dim dsLayerStateMgr As LayerStateManager
        Dim dsLayerState As LayerState
        Dim dsLayerStateProperties As LayerProperties
 
        Dim iStatus As Integer
        dsLayerStateMgr = dsDoc.GetLayerStateManager
        iStatus = dsLayerStateMgr.CreateLayerState("LSName"dsLayerStateSpaceType_e.dsLayerStateSpaceType_Model, dsLayerState)
 
        dsLayerState.Activate()
 
        Debug.Print("Layer state: " & dsLayerState.Name)
        Debug.Print("Description: " & dsLayerState.Description)
        Debug.Print("Space as defined in dsLayerStateSpaceType_e: " & dsLayerState.Space)
        Debug.Print("Save Visibility in active Viewport? " & dsLayerState.ActiveViewPortVisibility)
        Debug.Print("Save Freeze/Thaw property? " & dsLayerState.FrozenThawed)
        Debug.Print("Save LineColor property? " & dsLayerState.LineColor)
        Debug.Print("Save LineStyle property? " & dsLayerState.LineStyle)
        Debug.Print("Save LineWeight property? " & dsLayerState.LineWeight)
        Debug.Print("Save Lock/Unlock property? " & dsLayerState.LockedUnlocked)
        Debug.Print("Save Freeze/Thaw in new Viewport property? " & dsLayerState.NewViewPortFrozenThawed)
        Debug.Print("Save Print/No print property? " & dsLayerState.PrintNoPrint)
        Debug.Print("Save PrintStyle property? " & dsLayerState.PrintStyle)
        Debug.Print("Save On/Off property? " & dsLayerState.ShowHide)
        Debug.Print("Save Transparency property? " & dsLayerState.Transparency)
 
        Dim layerObj As Object
        layerObj = dsLayerState.GetLayers
 
        dsLayerStateProperties = dsLayerState.GetLayerProperties("Object")
 
        Debug.Print("Layer: " & dsLayerStateProperties.Layername)
        Debug.Print("Name: " & dsLayerStateProperties.Name)
        Debug.Print("Active: " & dsLayerStateProperties.status)
        Debug.Print("Frozen: " & dsLayerStateProperties.Frozen)
        Debug.Print("LineStyle: " & dsLayerStateProperties.LineStyle)
        Debug.Print("LineWeight as defined in dsLineWeight_e: " & dsLayerStateProperties.LineWeight)
        Debug.Print("Locked: " & dsLayerStateProperties.Locked)
        Debug.Print("Frozen in new Viewport: " & dsLayerStateProperties.FrozenInNewViewport)
        Debug.Print("Can be printed: " & dsLayerStateProperties.Print)
        Debug.Print("PrintStyle: " & dsLayerStateProperties.PrintStyle)
        Debug.Print("On: " & dsLayerStateProperties.Show)
        Debug.Print("Transparency (%): " & dsLayerStateProperties.Transparency)
 
 
    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

 
*Email:  
Subject:   Feedback on Help Topics
Page:   Create a Layer State Example (VB.NET)
*Comment:  
*   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:




x

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
x

Web Help Content Version: API Help (English only) 2019 SP05

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.