Toggle layer freeze/thaw

[samifox]

Hello

 

 

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

 

If x layer is frozen thaw it and vise versa

 

Thanks

[Lee Mac]

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)

[samifox]

Awesome

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

[Lee Mac]

Awesome

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

 

You're welcome.

Which part of the code are you unsure of?

[samifox]

all those starting with vlax

[samifox]

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?

[Lee Mac]

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

[samifox]

Thanks Lee

 

I'm totally lst with your last paragraph

[samifox]

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 ?

[Lee Mac]

Please see my explanation here.

 

Lee