"Unknown command" echo at comand line

I' using the code below to change layer. It executes perfectly but after it runs I get the echo "Unknown command "L*". Press F1 for help." at command line. This response makes me feel that something didn't go well.

How can I remove that message? Or what is wrong with the code below?

(DEFUN c:l1()
 (command "LAYER" "THAW" "D-1" "")
 (setvar "clayer" "D-1")
 (princ))

It works perfectly for me in ACAD versions 2006 and 2010, and with no errors.

Steve

Maybe this is a solution

http://www.cadtutor.net/forum/showthread.php?26726-Unknown-command-quot-SYNTAX-quot-.-Press-F1-for-help.....-why

correction :

- looks like it isn't so any other suggestion/s is welcome

It works perfectly for me in ACAD versions 2006 and 2010, and with no errors.

 

Steve

The only time i see an error message like that is when there are no such command, lisp or otherwise

Command: l*

Unknown command "L*". Press F1 for help.

Are you sure you're typing L1?

Try:

(defun c:l1 ( )
   (if (tblsearch "LAYER" "D-1")
       (progn
           (command "_.-layer" "_T" "D-1" "")
           (setvar "clayer" "D-1")
       )
       (command "_.-layer" "_M" "D-1" "")
   )
   (princ)
)

I thought of that Lee. but even without the test for Layers I can't seem to duplicate the error message. It makes me wonder if the lisp rouitne is even loaded at all.

BTW did you click on the link the OP posted?

 

BTW did you click on the link the OP posted?

That's recall a very old memories .

I thought of that Lee. but even without the test for Layers I can't seem to duplicate the error message. It makes me wonder if the lisp rouitne is even loaded at all.

It seems the OP has another routine loaded with the same syntax, or has perhaps modified this code and not reloaded it; in any case, I thought it best to add some error trapping.

BTW did you click on the link the OP posted?

lol we've all been there :wink:

lol we've all been there :wink:

Correcto Mundo!!! i remember one of my early posted thread. nobody even bothered to post a reply

Try:

 

(defun c:l1 ( )
   (if (tblsearch "LAYER" "D-1")
       (progn
           (command "_.-layer" "_T" "D-1" "")
           (setvar "clayer" "D-1")
       )
       (command "_.-layer" "_M" "D-1" "")
   )
   (princ)
)

Or maybe....

(defun c:l1 ( )
   (if (tblsearch "LAYER" "D-1")
     (command "_.-layer" "_T" "D-1" "_S" "D-1" "")
     (command "_.-layer" "_M" "D-1" "")
   )
   (princ)
)

Thanks Lee

Thanks rkmcswain

As usual your code works fine.

I tried it this way too but I get the same echo :

(DEFUN c:l1()
 
  (command "_.-layer" "_T" "D-1" "_S" "D-1" "")

  
 (princ))

Table search seems to solve the problem - which I didn't include in my code because I'm 100% sure that that layer exists:

.. (tblsearch "LAYER" "D-1") .. 

Thanks

This works fine too. Sorry for the above post.

(DEFUN c:l1()
           (command "_.-layer" "_T" "D-1" "_S" "D-1" "")
           (princ))

So it must be the way Layer is written.