VP Freeze a Xref layer in a specific layout...

[Dubweisertm]

Hi everybody !

Im very new to VBA for autocad, I searched on this site but no corresponding subject.

I want to VP Freeze a Xref layer in a specific layout with a VBA Macro...

Layer name: 88888 - Module A|Details
Layout name: Production (3 viewports within)

Is someone could help me ?

Thanks in advance !

[christian.montagnac]

Hi,

What do you mean "VP" freeze?

To freeze or unfreeze a Layer "sLayerName" in the current active document just try the following sub, no matter the layout name is.

Sub SetLayerFreeze(sLayerName As String, bFreeze As Boolean)
    On Error GoTo ErrorHandler
    ActiveDocument.Layers(sLayerName).Freeze = bFreeze
    Exit Sub
ErrorHandler:
    MsgBox ("Layer " & sLayerName & " does not exist in current active document")
End Sub

[Dubweisertm]

VP Freeze: Used to freeze layer only in a specific viewport...

Please check the printscreen attached !

[Opie]

How many viewports are in the desired layout? If more than one, do you want it frozen in all or just a select few?

[Dubweisertm]

How many viewports are in the desired layout? If more than one, do you want it frozen in all or just a select few?

I want to do that in all viewports whitin the layout...

[Dubweisertm]

After searching on many sites, I think it will be better to do that in LISP !

I want to vpfreeze layer in all viewports whitin a specific layout via model space...

I dont want to have to select the viewport.

Is someone could help me ?

Thanks again !

[jwanstaett]

look here http://forums.augi.com/showthread.php?t=79882

I

[Dubweisertm]

As I said, Im trying to do that in LISP, I will ask my question on the good sub-forum

I saw on many site that VBA will "die" after Autocad 2011

Thank you anaway

[fixo]

As I said, Im trying to do that in LISP, I will ask my question on the good sub-forum

I saw on many site that VBA will "die" after Autocad 2011

Thank you anaway

Give this a shot

 
(vl-load-com)
(defun C:demo(/ adoc layername layout layoutname layouts)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object))
 layouts (vla-get-layouts adoc)
 layoutname "Production" ;<-- layout name
 layername "88888 - Module AllDetails" ;<-- layer name
 )
  (setq layout (vla-item layouts layoutname))
  (vla-put-activelayout adoc layout)
  (vl-cmdf "._vplayer" "_f" layername "_a" "") ; <-- freeze in all viewports
  (princ)
  )

~'J'~

[Opie]

fixo, doesn't that freeze it in all viewports within the drawing and not just the ones on the current layout?