Para proteger toda la rutina, se inserta el siguiente código en el pimer renglón:
(while (not (equal (getstring "\nIngrese contraseña: ") "palabrasecreta")))
Para proteger una función específica, se inserta la línea anterior debajo de Defun
Defun C:NOMBRE_DE_FUNCION ()
(while (not (equal (getstring "\nIngrese contraseña: ") "palabrasecreta")))
....
Contenido de la función
....
)
Abre el archivo lsp con algún editor de texto como Notepad, busca la primera línea, elimínala, guarda y vuelve a ejecutar.