Toggle layer freeze/thaw

Hello

How can i code autolisp script to toggle freeze/thaw specific layer?

If x layer is frozen thaw it and vise versa

Thanks

Here is a simple example:

(defun c:ftog ( / layer l )
   (setq layer "0") ;; Layer to Freeze/Thaw
   (cond
       (   (= (strcase (getvar 'clayer)) (strcase layer))
           (princ "\nCannot freeze the current layer.")
       )
       (   (setq l (tblobjname "LAYER" layer))
           (setq l (vlax-ename->vla-object l))
           (vlax-put l 'freeze (~ (vlax-get l 'freeze)))
       )
       (   (princ (strcat "\nLayer " layer " does not exist.")))
   )
   (princ)
)
(vl-load-com) (princ)

Awesome

lee can u please explain (I'm a new dummy)

Awesome

lee can u please explain (I'm a new dummy)

You're welcome.

Which part of the code are you unsure of?

and Lee...

i excecute your code..

when trying to toggle on i have to regen so the objects re-appear

how can i regenerate in the code?

all those starting with vlax

The vlax-ename->vla-object function converts the LAYER entity to a VLA-Object which may then be manipulated using its ActiveX Properties & Methods, rather than manipulating the DXF Group codes of the LAYER entity.

I am then manipulating the Freeze property of the VLA Layer Object using the undocumented vlax-get / vlax-put functions, since these functions return native AutoLISP data types, rather than the Visual LISP :vlax-true / :vlax-false symbols as returned by vlax-get-property or vla-get-freeze.

As for the toggle itself, consider:

_$ (~ 0)
-1
_$ (~ -1)
0

Thanks Lee

I'm totally lst with your last paragraph

The vlax-ename->vla-object function converts the LAYER entity to a VLA-Object which may then be manipulated using its ActiveX Properties & Methods, rather than manipulating the DXF Group codes of the LAYER entity.

 

 

As for the toggle itself, consider:

_$ (~ 0)
-1
_$ (~ -1)
0

 

what did you mean by that Lee ?

Please see my explanation here.

Lee