Export Layers By Layer Group FIlter Autolisp

[survey01]

Hi everyone,

 

I'm trying to make a small program to export objects by their layer group filter name. (see attached lisp)

 

The code so far works; however, it is a bit slow. Is there a more efficient way to copy layers into a new dwg other than vla-CopyObjects?. I essential create a list of layer names that belong to a group filter and iterate over every object and check if it belongs to that layer and copy it to the new dwg if it does. 

 

There are also a couple of small errors I can't figure out:

1. table objects wont copy (not too much of a concern but i would like to know why?)

2. I sometimes run into this error in some drawings:  error: Automation Error. Object was erased (I use this in Civil 3D might have something to do with it)

Any help would be greatly appreciated. Thanks!

 

 

 

Layer Export Test.lsp

[BIGAL]

If you have only the layer filter layers on then use Wblock does this do what you want ? No code required. 

 

Option 2 same use layer filter Ctrl+c select all items, go to other dwg, use "Paste to original co-ordinates" used it most days 

Edited yesterday at 10:04 PM by BIGAL