I can open a PDF with layers but it creates hundreds of them.
Instead of having ten layers there are hundreds of them with small groups of objects in those same layer names over and over.
The only way I can think to fix it is to make 10 different PDFs with each of the 10 layers and bring them in one at a time.
???
Don't see a file upload. But here is a print screen link:
The import works but why are all the layers broken up into many layers of the same name? Some have just one or two lines/objects in them. ???
Without a PDF file to try, I have no way to try importing the file myself to see if I get the same result.
If the file isn't too big, you can insert it into your post. - Insert>Insert image/video/file. You might need to put it into a ZIP archive in order to upload it; I don't know if the system will allow PDF files.
Or, you could provide a link to where you have shared the file on-line (e.g., Google Drive).
TEST.zip
Here is a small part of the PDF. In Acrobat there are 3 layers. One I merged to delete stuff and even though there is nothing in it CorelDraw adds many layers for it and the other 2 also turn into many layers.
I tried importing it into CorelDRAW 2018.
The result:
6 layers named "AI-SV16-1F-ARCH|A-BLDG-FIXT" with objects in them
3 layers named "AI-SV16-1F-ARCH|A-BLDG-STRS" with objects in them
587 layers named ZZ_DeletedLayers with no objects in them.
Good to have the old DeleteEmptyLayers macro.
The PDF was made with Autocad, so it's normal. You can merge layers before to import to CorelDRAW
Try this:
https://we.tl/D3caqDMkKX
I didn't already have one, but it didn't take me too long to write one. That's how I knew it was 587 layers!
Do you have a "merge all layers that have the same name" macro?
No, don't have one to do that but seems easy enough huh?
I can get rid of all the layers easily enough by saving as Acrobat V5 but I do want the layers in CorelDraw. Just not hundreds of them. It’s almost like not having any. :(
For you guys maybe.
Used this to delete the empty layers and it seems to work. Not sure how to merge though.
Dim pg As PageDim lyr As LayerDim sr As ShapeRange
Private Sub DelEmptyLayer()
For Each pg In ActiveDocument.Pages For Each lyr In pg.Layers If Not lyr.IsSpecialLayer Then Set sr = lyr.Shapes.All If sr.Count = 0 Then lyr.Delete End If End If NextNext
End Sub