copy layers'name (NOT GEOMETRIES) from multiple .dwg to ONE .dwg

[sabysaby]

Hi all!
I need to create ONE dwg (called "structure.dwg") containing ALL, AND ONLY!, the layers'names (NOT THEIR GEOMETRIES!) coming from other 1000 dwg.

Does exist a lisp rountine that can automate that?

Thanks in advance!

Saby

[Lee_Mac · Accepted solution]

You could automate my Steal program to perform this task.

[sabysaby]

WOW!
It's great!

Thanks very much for now, but....I've got another little question:

How can I select more than one dwg to import their layers once in the same time?

The "select drawing to steal from" window doesn't allow me to make a mutiple dwg selection......

Have I to use "STEALALL" one dwg by one?

Instead, using STEALTEMPLATES, I can select multiple .dwt files.

Is there an alternative methods of saving all my dwg in a dwt format?

Thanks in advance for everything!!
Saby

[Lee_Mac · Accepted solution]

Hi Saby,

Thank you, I'm glad you like the program

For multiple drawings, load my Steal program and also load this program, and then run the following code:

(defun c:stealdwgs nil
    (foreach dwg (LM:getfiles "Select Drawings to Steal from" nil "dwg")
        (Steal dwg
           '(
                ;; Items to Steal:
                ;;--------------------------------
                ;("Blocks"                  ("*"))
                 ("Layers"                  ("*"))
                ;("Linetypes"               ("*"))
                ;("Text Styles"             ("*"))
                ;("Dimension Styles"        ("*"))
                ;("Layouts"                 ("*"))
                ;("Views"                   ("*"))
                ;("Materials"               ("*"))
                ;("Viewports"               ("*"))
                ;("Page Setups"             ("*"))
                ;("User Coordinate Systems" ("*"))
                ;("Groups"                  ("*"))
                ;("Drawing Properties"      ("*"))
                ;("Custom Properties"       ("*"))
                ;("Multileader Styles"      ("*"))
                ;("Multiline Styles"        ("*"))
                ;("Table Styles"            ("*"))
                ;("Scales"                  ("*"))
                ;("Layer States"            ("*"))
            )
        )
    )
    (princ)
)

The above is currently set to import only LAYERS - you can uncomment (remove the semi-colon) to control which collections are imported.

Lee

[sabysaby]

WOW!!Great!!!!

You are a genius!!
You made my day!!

You solved me a great problem, that's why I've just made you a donation to thank you!!
Saby

ps

I'm going to post a new "little" problem called "check elevation/Z geometries errors"... maybe you could help me again!

🙂

[Lee_Mac]

That's incredibly kind of you Saby, thank you very much indeed

[Anonymous]

I have downloaded the Steal file but it only copied the layer name. I need to copy the content of the layer.

Also I need copy the layers from 3600 .dwg to a single dwg.

Please can you assist with this?