topic Re: Select new layer by changning part of selected layer name. in Visual LISP, AutoLISP and General Customization Forum

Select new layer by changning part of selected layer name.

jeroen.koedijk1 — Fri, 17 Feb 2023 10:05:47 GMT

Hi,

I'm looking for a lisp to change the status of my selected object(s). We have the status represented in the layer name. So our layer names are something like:

- "GM-SP-N-XX-example" (for new)

- "GM-SP-E-XX-example" (for existing)

- "GM-SP-RS-XX-example" (reuse source)

So I want to select a layer. Get its layer name. Change the part between the second "-" and third "-". Look for a layer in my drawing with the new layer name and change selected object(s) to said layer. If the new layer not in the drawing give a error.

Can anyone help me ?

(My programming skills don't surpass "hello world" and I tried ChatGPT but it has trouble with AutoDesk Lisp I guess)

Re: Select new layer by changning part of selected layer name.

ВeekeeCZ — Fri, 17 Feb 2023 10:27:44 GMT

Don't you rather want to create a new layer if does not exist? And possibly notify that it was created.

Error is also possible, but what if you select two objects, different layers, one targeting layer exists, the second not?

Here's the example for existing target layer.

(defun c:SLE ( / s i d l)

  (if (setq s (ssget "_:L" '((8 . "*-N-*,*-E-*,*-RS-*"))))
    (repeat (setq i (sslength s))
      (setq d (entget (ssname s (setq i (1- i))))
	    l (cdr (assoc 8 d))
	    l (vl-string-subst "-E-" "-N-" l)
	    l (vl-string-subst "-E-" "-RS-" l))
      (or (tblsearch "LAYER" l)
	  (princ (strcat "\n>> Created layer: " l)))
      (entmod (append d (list (cons 8 l))))))
  (princ)
  )

Re: Select new layer by changning part of selected layer name.

jeroen.koedijk1 — Tue, 21 Feb 2023 09:03:10 GMT

Thank you for your solution @ВeekeeCZ ! At first I thought a new layer would make it a lot more complicated. But as I see now this works well.

回复： Select new layer by changning part of selected layer name.

WeTanks — Mon, 06 Mar 2023 13:45:42 GMT

Hello.
I'm new to your method of building layer names.
Can you tell me, what kind of occasion is it used in?