24 | 03 | 2017

Turn All Layers On or Off

 Use the code below to turn all layers On or Off

    1 

    2 Sub AllLayersOff()

    3     '*************************************

    4     '**** Code from VisibleVisual.com ****

    5     '*************************************

    6     Dim objLayer As AcadLayer

    7     For Each objLayer In ThisDrawing.Layers

    8         objLayer.LayerOn = False

    9     Next

   10 End Sub

   11 

   12 Sub AllLayersOn()

   13     Dim objLayer As AcadLayer

   14     For Each objLayer In ThisDrawing.Layers

   15         objLayer.LayerOn = True

   16     Next

   17 End Sub

   18 

Login

Sign up now and upload your code to the website.

Help us to continue.....
Statistics
Articles View Hits
2206818
Latest Articles