How to modify layer name with prefix ?
@tencome wrote:
I want to use lisp to automatic run this command, better not select in this window.
Why not?
Anway, would you want that to run with be multiple patterns? or just one particular name?
--> ("BBB_" "AAA_")("WALL_" "FLOOR_")
Or you want the user to type-in the old and new prefix? which is incidentally the same as using the rename dialog
@tencome wrote:
No one particular name, any layer with prefix "BBB" need change to "AAA".
(defun c:BtoA (/ a oldname newname)
(while (setq a (tblnext "LAYER" (null a)))
(and
(wcmatch (setq oldname (cdr (assoc 2 a))) "BBB*")
(not
(tblsearch "LAYER"
(setq newname (vl-string-subst "AAA" "BBB" oldname))
)
)
(vla-put-name
(vlax-ename->vla-object (tblobjname "layer" oldname))
newname
)
)
)(princ)
)
@tencome wrote:
Thank you very much.
This seemed much more difficult than I thought.
Anytime @tencome , Glad it helps
Not that much difficult really, it is written in such a way we can modify it later to accept multiple patterns, using "command" invites a lot of issues depending on the AutoCAD version but that's just me 🙂
It would be more complex if we include an action if the new name already exists then we may need to merge the old with the new.
