topic layer rename in Visual LISP, AutoLISP and General Customization Forum

layer rename

Anonymous — Thu, 14 Feb 2019 10:39:20 GMT

hello. this is layer rename lsp that is only a partial change.

I want to remove that input texts.

for example. if there are layer names. aaabx1. aaavv2. aaaxy3. aaazz4... etc.

input "aaa"

bx1

vv2

xy3

zz4... etc

always thank you all for help.

(defun c:lann (/ old new doc)
(vl-load-com)
(and
(setq old (getstring T "\nold\w string: "))
(or
(snvalid old 1)
(prompt " Invalid string.")
)
(setq new (getstring T "\nnew string: "))
(or
(snvalid new 1)
(prompt " Invalid string.")
)
(or
(/= new old)
(prompt " Same string.")
)
(vlax-for layer
(vla-get-layers
(vla-get-activedocument
(vlax-get-acad-object)
)
)
(vla-put-name
layer
(vl-string-subst
new
old
(vla-get-name layer)
)
)
)
)
(princ)
)

Re: layer rename

ВeekeeCZ — Thu, 14 Feb 2019 11:19:03 GMT

Use the Rename command.

Old name *

New name: aaa*

Re: layer rename

dbhunia — Thu, 14 Feb 2019 12:02:56 GMT

Try this.....

(defun c:lann (/ old new doc)
(vl-load-com)
(and (setq old (getstring T "\nold string: "))
      (or (snvalid old 1) (prompt "\nInvalid string."))
)
(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
        (vla-put-name layer (vl-string-subst "" old (vla-get-name layer)))
)
(princ)
)

Re: layer rename

Anonymous — Sat, 16 Feb 2019 02:18:12 GMT

thank you...