Solicitar comando cad lisp

Bloqueo o desbloqueo de capa, el código es el siguiente.

; Bloqueo y desbloqueo de capas

(Derun?c:tes?(?/?ent?lay1)

(vl-load-com)

(¿Aunque?(¿También?(setq?ent?(entsel?" \nSeleccione la entidad para bloquear o desbloquear")?(setq?lay1?(cdr?(assoc?8?( entget? (车?ent))))))

(w1712251?lay1)

)

(princ)

)

(Derun?w1712251?(lay1?/?lay down?lay1)

(vlax-for?lay down?(vla-get-layers?(vla-get -active document(vlax- get-acad-object)))

(If?(=?(vla-get-name?lay)?lay1)

(Programa

( if?(=?(vla-get-lock?lay)?:vlax-true);si la capa está bloqueada

(vla-put-lock?lay?: vlax-false)?;

(vla-put-lock?: vlax-true)?;

)

)