Layer VPFreeze off - VBA

[neophyte]

Hi

 

I want to know what is the code for have all my layer VPFreeze "on"

 

I know for lock , on, freeze, but I'm stuck:x with the VP freeze

 

Dim objLayer As AcadLayer
On Error Resume Next
   For Each objLayer In ThisDrawing.Layers
       objLayer.LayerOn = True
       objLayer.Freeze = True
       objLayer.????? = True      
   Next
   ThisDrawing.Regen (acActiveViewport)

[SEANT]

A layers VP frozen state is actually determined by XData associated with a particular Viewport. While it is possible for a VBA routine to “VPfreeze” a layer, I don’t believe a way to “VPthaw” a layer had ever been demonstrated.

[neophyte]

To bad, I'm going to find a another way to solve my problem

 

Thanks any way

[Patrick_35]

Hi

 

I do that

 

@+

Gef.zip

[SEANT]

Not exactly a “Layer VPFreeze off – VBA” method, but potentially useful to the neophyte nonetheless.

[Patrick_35]

Not exactly a “Layer VPFreeze off – VBA” method, but potentially useful to the neophyte nonetheless.

Yes, but you can't with vba, lisp and vlisp (write xdata in viewport)

Only with arx, dll or vplayer's command.

 

@+