Topic: Code Request

[Matersammichman]

I need code that will evaluate what layers are OFF or FROZEN in MS, and then FREEZE them in ALL VIEWPORTS in ALL LAYOUTS.

Anyone got something at least close to this?
 :ugly:

[Jeff_M]

This does it, but uses SendCommand.....

Code: [Select]

Sub freezeall()
Dim oLay As AcadLayer
Dim lSpace As Long
Dim iEcho As Integer

ThisDrawing.StartUndoMark
lSpace = ThisDrawing.ActiveSpace
iEcho = ThisDrawing.GetVariable("nomutt")
ThisDrawing.SetVariable "nomutt", 1
ThisDrawing.ActiveSpace = acPaperSpace
For Each oLay In ThisDrawing.Layers
    If oLay.Freeze = True Or oLay.LayerOn = False Then
        ThisDrawing.SendCommand "vplayer f " & oLay.Name & vbCr & "a" & vbCr & vbCr
    End If
Next
ThisDrawing.ActiveSpace = lSpace
ThisDrawing.SetVariable "nomutt", iEcho
ThisDrawing.EndUndoMark
End Sub


[David Hall]

so vplayer isnt exposed to VBA?  seems odd that you can manipulate layers every other way

[Bryco]

It's available. You have to change the xdata stored in the viewport (1002, 1003)
Frank Z or O made a nice  "sub VpLayerOff", it googles ok

[David Hall]

thanks, Ill have a look on monday