Seem to be getting a CLayer Nil return on this very simple Lisp code. Any ideas?

[nj1105nj]

This is just a lisp to draw a 6' circle on our no plot layer, set the line weight, and change the color to magenta, and finally change back all the set variables

(princ)
(defun C:mrs
    (progn
      (setvar "clayer" nplt)
      (setvar "celweight" -2)
      (setvar "cecolor" magenta)
      (command "circle" "6")
      (setvar "clayer" 0)
      (setvar "cecolor" bylayer)
      (setvar "celweight" bylayer)
  )
  (princ)
)

[Tharwat]

You set the current layer with nil variable but if that is the name of the layer then you need to wrap it with two strings all around. eg: "nplt"

[nj1105nj]

31 minutes ago, Tharwat said:

You set the current layer with nil variable but if that is the name of the layer then you need to wrap it with two strings all around. eg: "nplt"

so it should be like this? It's still saying the Clayer Nil was a rejected variable

 

(defun C:mrs
    (progn
      (setvar "clayer" "nplt")
      (setvar "celweight" -2)
      (setvar "cecolor" magenta)
      (command "circle" "6")
      (setvar "clayer" "0")
      (setvar "cecolor" bylayer)
      (setvar "celweight" bylayer)
  )
  (princ)
)

[Tharwat]

Is this what you are after?

(defun c:mrs nil
  (if (tblsearch "LAYER" "nplt")
    (progn
      (setvar "clayer" "nplt")
      (setvar "celweight" -2)
      (setvar "cecolor" "6")
      (command "circle" "6" "\\")
      (setvar "clayer" "0")
      (setvar "cecolor" "bylayer")
      (setvar "celweight" -1)
    )
    (alert "Layer name <nplt> was not found <!>")
  )
  (princ)
)

 

[nj1105nj]

21 minutes ago, Tharwat said:

Is this what you are after?

(defun c:mrs nil
  (if (tblsearch "LAYER" "nplt")
    (progn
      (setvar "clayer" "nplt")
      (setvar "celweight" -2)
      (setvar "cecolor" "6")
      (command "circle" "6" "\\")
      (setvar "clayer" "0")
      (setvar "cecolor" "bylayer")
      (setvar "celweight" -1)
    )
    (alert "Layer name <nplt> was not found <!>")
  )
  (princ)
)

 

That seems to have done the trick, thank you!

[Tharwat]

You need to disable the OSNAP system variable to ensure is that the center point of the circle would be positioned in the right destination as follows.

 (command "circle" "_none" "6" "\\")

 

[Roy_043]

Hmm, have the prompts of the circle command really been changed around in AutoCAD?

Edited February 12, 2020 by Roy_043
Typo.

[BIGAL]

Note also (setvar "cecolor" magenta) magenta would be expected to be a lisp value called Magenta, hence Tharwat's code using a string number.

Edited February 12, 2020 by BIGAL