Copy and Rename Layer LISP Causes "*Warning* Multiply owned object"

[Anonymous]

I wrote this LISP for Land Desktop 2005 and since moved on to a new company using C3D 2021.  The program still works, but it generates multiple object handle warnings - lots of them! Any suggestions to fix the LISP would be appreciated.

[dbroad]

Did you check if layers with the new names already existed?

[Anonymous]

That's always a good thing to check! I didn't do that in this one, but the errors still happen regardless.  I tested the LISP in a brand new dwg, so none of the new layers created already existed. Yet I got the same errors, just fewer (35 vs 86).

[CADaSchtroumpf]

Try to remove the pointed pair (5 . "XXX...") from the list before use (entmake).

[Kent1Cooper]

---

@CADaSchtroumpf wrote:

Try to remove the pointed pair (5 . "XXX...") from the list before use (entmake).

---

I don't think that can be the problem.  From Help for (entmake):

If the elist contains an entity handle, entmake ignores that....

[CADaSchtroumpf]

@Kent1Cooper : You are right!

Then I suggest to identify the problem with the log prompt and try (entget (handent "D13"))

With this we can see the entitie or object non graphical (dictionnary or other) who can interfer

[Anonymous · Accepted solution]

I found another way to do this, thanks to dlanorh over at CADTutor. I used his code for mapping existing layer properties to new layer names, then customized it to allow the user to search and replace part of an existing layer name with a new prefix. See attached. No more errors!