Topic: Refreeze a list of layers!

[jmcshane]

Hi, having a brain freeze here at the minute!
If I Thaw a list of layers like so:

Code: [Select]

(vlax-for LayerName  LayerTable
    (if (= (vla-get-Freeze LayerName) :vlax-true)
      (progn
        (setq LayerFreezeList (acad_strlsort (cons (vla-get-name LayerName) LayerFreezeList)))
        (vla-put-Freeze LayerName :vlax-false)
        )
      )
    )What is the most elegant way of freezing that list of layers again?

Thanks in advance.

John

[BlackBox]

Using your symbols:

Code - Auto/Visual Lisp: [Select]

1. (vlax-for LayerName LayerTable
2.   (if (= (vla-get-Freeze LayerName) :vlax-true)
3.     (progn
4.       (setq LayerFreezeList (cons LayerName LayerFreezeList))
5.       (vla-put-Freeze LayerName :vlax-false)
6.     )
7.   )
8. )
9.  
10. ;; <-- do it
11.  
12. (foreach LayerName LayerFreezeList
13.   (vla-put-freeze LayerName :vlax-true)
14. )
15.  

[alanjt]

You will need the layer object, not the name. Don't create a list from vla-get-name, just create a list from each layer object.

[BlackBox]

You will need the layer object, not the name. Don't create a list from vla-get-name, just create a list from each layer object.

Good catch; I saw the usage of LayerName symbol while iterating LayerTable, and overlooked the OP's call to vla-Get-Name, when removing the unnecessary sort after each append.

Cheers

[jmcshane]

Thanks guys, but my head is melted here.
How do you mean get the layer object?

[ronjonp]

Thanks guys, but my head is melted here.
How do you mean get the layer object?

Here is a simple example:
(vlax-ename->vla-object (tblobjname "layer" "0"))

[alanjt]

Code: [Select]

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
  (if (eq (vla-get-freeze layer) :vlax-true)
    (progn (vla-put-freeze layer :vlax-false)
   (setq thawedLayers (cons layer thawedLayers))
    )
  )
)




(foreach layer thawedLayers (vla-put-freeze layer :vlax-true))

[jmcshane]

Sorry guys, the cleaner is kicking me out here. I have been staring at this computer for the last 10 hours.
I will have to come back to this tomorrow.
Thanks for taking the time to reply.

John

[BlackBox]

Thanks guys, but my head is melted here.
How do you mean get the layer object?

According to your code in the OP, you already have each LayerTableRecord Object, when you iterate the LayerTable via vlax-For... You just used the 'LayerName' symbol for same.

You were then conditionally storing the extracted layer name (string) from the LayerTableRecord Object to the 'LayerFreezeList' variable, and sorting, etc.

Instead, you should be conditionally storing the LayerTableRecord Object to your list, and then iterating that list using foreach, as shown above.

HTH

[jmcshane]

So I was nearly there!!!
Thanks a million for the advice guys and the examples!