[编程交流] 保存PDF的LISP函数

(setq pdfname (strcat (getvar "dwgprefix") "pdf\" dwgname "-" (getvar "ctab"))) ; sub directory pdf
(setq pdfname (strcat (getvar "dwgprefix")  dwgname "-" (getvar "ctab"))) ; no pdf directory saved same as dwg

;; Prints All Layout Tabs and names the new PDFs with the name of the
;; drawing followed by the layout tab name.
;;
;; Adjust the paper size and .ctb file as needed.
;;
;; The PDFs will be placed in the folder where the drawing resides
;;
(defun c:PA ()
(foreach lay (layoutlist)
 (setvar 'CTab lay)
 (COMMAND         "-PLOT"
        "Y"
        ""
        "DWG To PDF.pc3"
        "ANSI full bleed A (8.50 x 11.00 Inches)"
        "Inches"
        "PORTRAIT"
        "N"
        "E"
        "f"
        "C"
        "Y"
        "monochrome.ctb"
        "Y"
        "N"
        "N"
        "N"
        ""; Name of file
        "N"
        "y"      )
   )
)

;MergePdfs
;Merges multiple pdf (or eps) files into one
;
; make a batch file ?
;gs -sDEVICE=pdfwrite \
;    -dNOPAUSE -dBATCH -dSAFER \
;    -sOutputFile=combined.pdf \
;    first.pdf \
;    second.pdf \
;    third.pdf [...]
;Ghostscript (http://www.ghostscript.com/) can be used to combine PDFs.
; Something like this should work: by Roy_043
(defun KGA_String_Join (strLst delim)
(if strLst
(apply
'strcat
(cons
(car strLst)
(mapcar '(lambda (a) (strcat delim a)) (cdr strLst))
)
)
""
)
)
; (CombinePdf 
 (setq gsexe "C:\\Program Files\\gs\\gs9.19\\bin\\gswin64c.exe")
; (setq srcFilelst  '("D:\\Tmp\\A.pdf" "D:\\Tmp\\B.pdf"))
; (setq trgfile "C:\\Acadtemp\\Total.pdf")
; )
; Note: Existing trgFile will be overwritten.
(defun CombinePdf (gsExe srcFileLst trgFile)
(startapp 
(strcat
gsExe " "
"-sDEVICE=pdfwrite -dBATCH -dNOPAUSE -dQUIET  "
"-sOutputFile="" trgFile "" "
""" (KGA_String_Join srcFileLst "" "") """
)
)
)

;Plots layouts by range
; By Alan H Feb 2014
(defun AH:pltlays ( / lay numlay numend)
(SETVAR "PDMODE" 0)
(setvar "fillmode" 1)
(setvar "textfill" 1)
(if (not AH:getval2) (load "getvals"))
(ah:getval2 "Enter start tab number" 6 4 "Enter end tab number" 6 4)
(setq numlay (ATOI val1))
(setq numend (ATOI val2))
(setq len (+ (- numend numlay) 1))
(setq dwgname (GETVAR "dwgname"))
(setq lendwg (strlen dwgname))
(setq dwgname (substr dwgname 1 (- lendwg 4)))
(repeat len
(vlax-for lay (vla-get-Layouts (vla-get-activedocument (vlax-get-acad-object)))
(if (= numlay (vla-get-taborder lay))
 (setvar "ctab" (vla-get-name lay))
) ; if
(setq pdfname (strcat (getvar "dwgprefix")  dwgname "-" (getvar "ctab"))) ; no pdf directory saved same as dwg
) ; for
(setq lay nil)
(setvar "textfill" 1)
(setvar "fillmode" 1)
   (COMMAND "-PLOT"  "Y"  "" "adobe pdf"
       "A3" "m" "LANDSCAPE"  "N"   "W"  "-6,-6" "807,560" "1=2"  "C"
       "y" "EP Full Mono - NEW.ctb" "Y"        "n" "n" "n" pdfName "N" "y"
   )
   
(setq numlay (+ numlay 1))
) ; end repeat
) ; defun
(AH:pltlays)