Community
You could install MS Powertoys and use Power Rename for this.
You can also add a prefix to multiple files like so without installing anything:
You could install MS Powertoys and use Power Rename for this.
You can also add a prefix to multiple files like so without installing anything:
Accepted solution
@daniel.orourkeUWE7W wrote:
1. Run the publish command
2. Allow me to select drawings to publish
3. Rename all to something I type in (i.e. a job number shared by each file)
4. Keep the Layout tab as a suffix (like normal)
What you're saying is by skipping item # 3 the result is just a pdf with the layout names YES?
E0.01
E1.01
E1.02
..
You can piggy-back a lisp with publish, however it may require a bit of setup on your end.
As an alternative, You can run a program to rename the resulting pdfs from publish similar to @ronjonp contribution and as originally suggested.
(defun c:AddprefixToPDF ( / prefix path pdfs)
(if (and
(setq prefix (getstring "\nEnter prefix: "))
(setq path (strcat (acet-ui-pickdir "Select Folder" (getvar 'dwgprefix))))
(setq pdfs (vl-directory-files path "*.pdf" 1))
(setq path (strcat path "\\"))
)
(foreach itm pdfs
(cond
((vl-string-search prefix itm) );<-- to avoid accidentally doubling up
((vl-file-rename (strcat path itm)
(strcat path prefix " - " itm))
)
)
)
)
(princ)
)
I'm pretty sure you are aware of the options in publish command
Otherwise use @ronjonp code to "correct" the existing pdfs.
HTH
@daniel.orourkeUWE7W wrote:
1. Run the publish command
2. Allow me to select drawings to publish
3. Rename all to something I type in (i.e. a job number shared by each file)
4. Keep the Layout tab as a suffix (like normal)
What you're saying is by skipping item # 3 the result is just a pdf with the layout names YES?
E0.01
E1.01
E1.02
..
You can piggy-back a lisp with publish, however it may require a bit of setup on your end.
As an alternative, You can run a program to rename the resulting pdfs from publish similar to @ronjonp contribution and as originally suggested.
(defun c:AddprefixToPDF ( / prefix path pdfs)
(if (and
(setq prefix (getstring "\nEnter prefix: "))
(setq path (strcat (acet-ui-pickdir "Select Folder" (getvar 'dwgprefix))))
(setq pdfs (vl-directory-files path "*.pdf" 1))
(setq path (strcat path "\\"))
)
(foreach itm pdfs
(cond
((vl-string-search prefix itm) );<-- to avoid accidentally doubling up
((vl-file-rename (strcat path itm)
(strcat path prefix " - " itm))
)
)
)
)
(princ)
)
I'm pretty sure you are aware of the options in publish command
Otherwise use @ronjonp code to "correct" the existing pdfs.
HTH
@daniel.orourkeUWE7W wrote:
From what I understand, this bulk renaming feature will only work to remove or add similar text across several files, is that correct?
I need something that can take this list:
21.0005.00 - E0.01 - E0.01
21.0005.00 - E1.01 - E1.01
21.0005.00 - E2.01A-B - E2.01A
21.0005.00 - E2.01A-B - E2.01B
21.0005.00 - E2.02 - E2.02
Into this list:
21.0005.00 - E0.01
21.0005.00 - E1.01
21.0005.00 - E2.01A
21.0005.00 - E2.01B
21.0005.00 - E2.02
It wouldn't be an issue, but sometimes the list is 100 files long lol.
Easy peasy.
Total/Windows Commander HERE. Total must-have.
@daniel.orourkeUWE7W wrote:
From what I understand, this bulk renaming feature will only work to remove or add similar text across several files, is that correct?
I need something that can take this list:
21.0005.00 - E0.01 - E0.01
21.0005.00 - E1.01 - E1.01
21.0005.00 - E2.01A-B - E2.01A
21.0005.00 - E2.01A-B - E2.01B
21.0005.00 - E2.02 - E2.02
Into this list:
21.0005.00 - E0.01
21.0005.00 - E1.01
21.0005.00 - E2.01A
21.0005.00 - E2.01B
21.0005.00 - E2.02
It wouldn't be an issue, but sometimes the list is 100 files long lol.
Easy peasy.
Total/Windows Commander HERE. Total must-have.
This comes incredibly close to what I'm looking for! Here are my results from running the script:
Original Files:
Renamed Files:
As you can see, an extra character is being generated at the end of the job number.
For this example, I need the list to read as shown here:
This comes incredibly close to what I'm looking for! Here are my results from running the script:
Original Files:
Renamed Files:
As you can see, an extra character is being generated at the end of the job number.
For this example, I need the list to read as shown here:
@daniel.orourkeUWE7W wrote:
This comes incredibly close to what I'm looking for! Here are my results from running the script:
Original Files:
Renamed Files:
As you can see, an extra character is being generated at the end of the job number.
For this example, I need the list to read as shown here:
Try my code above again. All I changed was:
;; This
(strcat pf n)
;; to this
(strcat pf (+ 2 n))
;; Test example
(SETQ STR "22.0001.00 - E0.1-E0.1.pdf")
(strcat "22.0001.000 - " (substr STR (+ 2 (vl-string-position (ascii "-") STR 0 t))))
;; "22.0001.000 - E0.1.pdf"
@daniel.orourkeUWE7W wrote:
This comes incredibly close to what I'm looking for! Here are my results from running the script:
Original Files:
Renamed Files:
As you can see, an extra character is being generated at the end of the job number.
For this example, I need the list to read as shown here:
Try my code above again. All I changed was:
;; This
(strcat pf n)
;; to this
(strcat pf (+ 2 n))
;; Test example
(SETQ STR "22.0001.00 - E0.1-E0.1.pdf")
(strcat "22.0001.000 - " (substr STR (+ 2 (vl-string-position (ascii "-") STR 0 t))))
;; "22.0001.000 - E0.1.pdf"
Forums Links
Can't find what you're looking for? Ask the community or share your knowledge.
Post to forums
