Help fixing almost perfect auto publish lisp

[Anonymous]

Hi,

I was searching for some time after the ultimate auto-publish lisp for my C++ project.

I needed something simple with minimum input and I finally found it but it has 2 problems

the output file is XPS (I need PDF), and I have no control over multi-sheet file or single sheet files...

can some one please help me fix it ? 

(vl-load-com)

(defun Autopublish:StartReactor	()
  (or *AutopublishReactor*
      (setq *AutopublishReactor*
	     (vlr-docmanager-reactor
	       nil
	       '(
		 (:vlr-documentbecamecurrent . Autopublish:DocumentBecameCurrent)
		)
	     )
      )
  )
  (princ)
)

(defun Autopublish:DocumentBecameCurrent (rea doc)
  (if (and *AutopublishReactor* (= 1 (getvar 'automaticpub)))
    (prompt (strcat "\n[BlackBox] : AUTOMATICPUB = "
		    (itoa (setvar 'automaticpub 0))
	    )
    )
  )
  (princ)
)

(Autopublish:StartReactor)

[maratovich]

If you use C ++, then why use Lisp? Write the printing process in C ++.

[Nick_Hall]

Hi

You need to configure your AutoPublish options

See here (from AutoCAD 2018 help) http://help.autodesk.com/view/ACD/2018/ENU/?guid=GUID-0A0DDEBA-5FF8-4ACF-A58F-589456535A53

To get to the dialog box, type OPTIONS, select the Plot and Publish tab, and clicking the Automatic Publish Settings button

Nick