LISP Routine for Merging Layers after importing a PDF File...
This seems to do that, in minimal testing:
(defun C:PDFLM ; = PDF Layer Merge
(/ lay layname newname)
(while (setq lay (tblnext "layer" (not lay)))
(setq layname (cdr (assoc 2 lay)))
(if (wcmatch layname "PDF*")
(if (tblsearch "layer" (setq newname (substr layname (+ (vl-string-search "_" layname) 2))))
(command "_.laymrg" "_name" layname "" "_name" newname "_yes"); then
(command "_.rename" "_layer" layname newname); else
); if
); if
); while
(princ)
); defun
I don't know enough about what Mac AutoCAD can do with AutoLisp. It worked for me on my PC, but I can't test it Mac-wise. It may be that it can't handle the (vl-string-search) function [apparently Visual Lisp isn't supported, yet Help for that function claims it can be used under Mac OS]. If that's the issue, there may be some other way to find the portion of the Layer name after the underscore.
I also found an exchange that asks whether a Mac user used RTF format in saving it to a .lsp file -- if you've done that, at least try a truly plain-text format.
Syntax error was from wrong format text file - Solved that! Thanks!
Now when i run it i get this...
Thanks so much for your help!!!
Here is the issues as best as I can tell...
and I can confirm that
(vl-string-search "_" "Abc_def")
returns 3....
Thanks again for all your help!!
@mrjackgill wrote:
....
Now when i run it i get this...
The top line of the command history in the image suggests that the file didn't load, because if it loaded successfully, the command name should be recognized. Were there any messages on APPLOADing it? But then, the unknown command being "name" suggests it got as far as that option in the LAYMRG command. That suggests that maybe LAYMRG operates a little differently in the Mac version, perhaps? If, for example, it allows only one Layer to be merged into another at a time, then there's no telling it you're done specifying Layers to merge, so maybe the Enter "" ends the command, and then it doesn't know NAME as a command, and then "TEXT" is your newname variable, and there's the "_yes" that the Text command doesn't like. If that's the problem, try removing that "". If that doesn't do it, do the LAYMRG thing manually and note exactly what the prompts are and the sequence of inputs to Merge by specifying names rather than picking objects.
@mrjackgill wrote:
(vl-string-search "_" "Abc_def")returns 3....
Really now? And me all this time thinking VL does not work with Mac version of AutoCAD, perhaps i does on 2021 version of Mac/VSCode?
@pbejse wrote:
@mrjackgill wrote:
(vl-string-search "_" "Abc_def")returns 3....
... And me all this time thinking VL does not work with Mac version ....
I ran across something that made me think that maybe (vl-... functions can be used, but not (vla-... functions. [I don't recall its mentioning (vlax-... functions.]
Another thought.... @mrjackgill , can you get it to fail again, but show more command history than in the image in Message 6? I'm thinking it looks like it's the second "_name" option in my LAYMRG command that's not accepted as a command name, and that would mean something killed it before that point. I think LAYMRG was once an Express Tool, not a native command, and if that's still the case in Mac Acad, it could explain it. What happens before it gets to the first thing shown in your first image?
@ronjonp wrote:
....
.... (if (setq s (ssget "_X" '((8 . "PDF#_*,PDF##_*")))) ....
That needs to also account for the first PDF brought in, which will not have a number:
(if (setq s (ssget "_X" '((8 . "PDF_,PDF#_*,PDF##_*"))))
with corresponding adjustment for the position to start the extraction of the Layer name without the PDF-related prefix part.
I'm sorry.....I feel like a total DOPE....
I have loaded the code and run it but nothing happens....very confused. Thanks for all of you collective help!!
I don't get any errors when i run it...I renamed it PDFLM2.....
THANK YOU!!!
