Using VB to set SolidWorks layers to visible

[jh0401]

Does anyone have a good example for turning SolidWorks layers on and off with Visual Basic?

Thanks

Josh

 

[SBaugh]

Have you tried recording a macro for this opertion and viewing the code that away?

Regards, Scott Baugh, CSWP
credence69@REMOVEhotmail.com

http://home.insightbb.com/~scott.baugh/

 

[dsi]

Here is a sample that turns off a layer called DIM:

Option Explicit

Sub TurnOffLayer()
    Dim swApp As Object
    Dim Part As Object
    Dim swLayerMgr As Object
    Dim swLayer As Object
    
    Set swApp = CreateObject("SldWorks.Application")
    Set Part = swApp.ActiveDoc
    Set swLayerMgr = Part.GetLayerManager
    Set swLayer = swLayerMgr.GetLayer("DIM")
    swLayer.Visible = False

    Set swLayer = Nothing
    Set swLayerMgr = Nothing
    Set Part = Nothing
    Set swApp = Nothing
End Sub

DimensionalSolutions@Core.com
While I welcome e-mail messages, please post all thread activity in these forums for the benefit of all members.

 

[dsi]

Scott:
Yeah, that's the first thing I tried. Unfortunately, it does not record anything on that action. No sense making it easy. DimensionalSolutions@Core.com
While I welcome e-mail messages, please post all thread activity in these forums for the benefit of all members.

 

[rocheey]

have you ever peeked at the .swp file? Sometimes you get a little more info out of that one. Just drag it into notepad.