topic Re: Autocad 2017 layer toolbar in AutoCAD Forum

Autocad 2017 layer toolbar

Mehmet_Demiryurek — Wed, 21 Dec 2016 11:05:25 GMT

I am changing the active layer using Lisp.
The active layer in the Ribbon menu changes but the active layer in the toolbar does not change.
Any command must be entered for the change.
It's not a big problem, but is there a solution?

Re: Autocad 2017 layer toolbar

TheCADnoob — Wed, 21 Dec 2016 13:16:27 GMT

changing the value of a control is not always the same thing as executing a command from the control. Im not familiar enough with the controls/lisp context to make a further distinction but it might be that you are updating the control and not sending the command.

You question may be better fielded in the customization forum https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/bd-p/130

Re: Autocad 2017 layer toolbar

Mehmet_Demiryurek — Wed, 21 Dec 2016 13:34:46 GMT

There is no problem in previous versions
Just got this issue in 2017

Re: Autocad 2017 layer toolbar

pendean — Wed, 21 Dec 2016 14:26:50 GMT

Are you by chance running a layer filter?
Show us your LISP otherwise, we all have 2017 and my lisp code seems to work just fine in doing what you say yours does.

Re: Autocad 2017 layer toolbar

Mehmet_Demiryurek — Wed, 21 Dec 2016 14:47:03 GMT

I do not apply any filters.
Simple lisp code. A lisp I have used since Autocad R12.
Habits do not change easily easily 🙂

Lisp code :

(defun c:CR (/ cl_sec cr_katman_ara cl_tek)
 (setvar "cmdecho" 0)
  (setq cr_katman (getvar "clayer"))
  (setq cl_tek nil)
  (while (= cl_tek nil)
    (setq cr_k cr_katman)
    (setq cr_kt(getstring (strcat "\nGüncel Katman Adı:<" cr_katman ">:")))
    (if	(/= cr_kt "")
      (setq cr_katman cr_kt))
    (setq cr_katman_ara (tblsearch "layer" cr_katman))
    (if	(= cr_katman_ara nil)
      (progn
	(alert (strcat "\nKatman tablonuzda [ " cr_katman " ] isimli bir katman yok..."))
	(setq cr_katman cr_k)
	(setq cl_tek nil))
      (progn
	(setq cl_tek "1")
	(if (= cr_kt "")
	  (progn
	    (setq cl_ent (entsel "\nReferans nesneyi seçiniz:"))
	    (if	(= cl_ent nil)
	      (progn)
	      (progn
		(setq cr_katman (cdr (assoc 8 (entget (car cl_ent)))))
	      ))))
	(setq cr_kt cr_katman)
	(setq cr_katman cr_kt)
	(setq cr_kt cr_katman)
      )))
  (setvar "clayer" cr_katman)
  (princ)
)

Re: Autocad 2017 layer toolbar

ВeekeeCZ — Wed, 21 Dec 2016 14:55:59 GMT

You can try

(command "_.layer" "_set" cr_katman "")

instead of the last (setvar "clayer" cr_katman).

Re: Autocad 2017 layer toolbar

Mehmet_Demiryurek — Wed, 21 Dec 2016 15:04:56 GMT

Thank you for the suggestion.
Lisp is no problem.