Advanced in Publish
First i need to add a printer setup name "acad2" as shown in the first image
this acad2 change the color yellow to black on the pdf as shown in the second image
and i need the exported pdf in the same location with the dwg file and have the same name but add "acad" in the last of the name of the pdf file as shown in the third image
and thanks in advance about that
Create named page setups and print them to pdf using this lisp
(defun c:batch_plot_pdf( /)
(setvar 'cmdecho 0)
(vlax-for item (vla-get-plotconfigurations (vla-get-ActiveDocument (vlax-get-acad-object)))
(cond
((not(wcmatch (vla-get-name item) "*Model*"))
(vl-cmdf
"_.-plot"
"No"
"Model"
(vla-get-Name item)
(vla-get-ConfigName item)
(strcat (getvar 'dwgprefix) (vla-get-Name item) ".pdf")
"No"
"Yes"
)
(princ (strcat "\nPrinting: " (strcat (getvar 'dwgprefix) (vla-get-Name item) ".pdf")))
)
)
)
(setvar 'cmdecho 1)
(princ)
)
Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
i have mage the setup page called "12"
and then there is an error about it
this message appeared and gives error
"Cannot use paper space setup in model space."
To plot create your setups in model space. This code is for it.
If you need to plot from layouts modify -plot command sequence and change "Model" according to what is needed.
Follow command -plot options.
PDF is saved to same directory as dwg file and its name equals plot setup name. Change last line accordingly. I hope you know some lisp so you can modify if yourself.
(vl-cmdf
"_.-plot"
"No"
"Model"
(vla-get-Name item)
(vla-get-ConfigName item)
(strcat (getvar 'dwgprefix) (vla-get-Name item) ".pdf")
"No"
"Yes"
)
Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
Run the program setup once:
1. Plot style table - select "New".
2. Create a new one - name "NEWacad.ctb"
3. When creating - "Print Style Table Editor"
4. Specify for yellow - black.
5. Set the checkbox - "Use table for new and previously created"
6. Press the "Finish" button.
7. The new style will appear in the table list.
photo 1
8. Restart AutoCAD. Open your files (20-112-EGY-ANOPIC-UNIT 1A01).
9. Start Revers.
10. Open the Template tab.
11. Click the "Update printers" button to get a new "NEWacad.ctb"
12. Fill in the template table.
photo 2
Set filename :
13. Open the Settings tab.
14. Select Publish to PDF
15. In field 30-"user text" enter "(ACAD)"
16. In the "file name" field, enter "10-30" this will be the file name and user text
17. In the field insert between - enter " " a space.
18. Specify the location to save the file - next to the file.
photo 3
18. Save settings.
Seal :
19. In the main window, click Revers - Find all formats
photo 4
20. Press the button - Publich to PDF.
Ready.
@S_S_SS wrote:
thanks sir
but i need it to print all the lay outs they have different names and their name and count is variable
and i need the file pdf have the name of the dwg and with the name of the printer page setup
thanks sir for your effort
@S_S_SS You are regular to this forum with your requests. Did you try to learn some basics of autolisp (visual lisp), at least what basic commands do. You have been provided general solution and you should be able to make modifications according to your own needs. Code is simple and intermediate cad user is suppose to be able to make basic code modifications. IMO learning autolisp is a must for any user who knows basics of cad and learning has to start parallel with learning drafting in cad.
@maratovich Is it really necessary to have separate application to perform batch printing? I know you want to sell your software, no mater that your price is symbolic. Try to answer OP request with simple code snippet and not just providing link to your site.
Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
