Automatic publish lisp needed

[cadd4la]

Hello everyone,

I'm looking for a lisp that will run the save and automatic publish to a PDF file only will I type in the command 'APS'.

Thanks,

Caddl4a

[BlackBox]

Why not just use the Autopublish mechanism?

[cadd4la]

Why not just use the Autopublish mechanism?

Sorry, what is the Autopublish mechanism? If you mean the autopublish setting under the plot and publish tab in the option setting, I don't want this to happen each time. Just on select files when needed.

Thanks,

Cadd4la

[BlackBox]

You and share the same mindset with regard to Autopublish - which is why I developed this, in order to allow me to specify which drawings or directories were 'allowed', and anything that didn't match would be 'vetoed'.

In any event, sounds like you'd be able to get away with a simple macro (or LISP) that employs SAVE and EXPORTPDF Commands.

Cheers

[cadd4la]

For want I can tell from the description of your program it's not going to meet my needs. I want to have the able to save to a pdf only for example, 1 out of 3 times, not every time that one file is saved.

Thanks,

[BlackBox]

Did you consider the latter part of my post, unrelated to the app?



Besides, I do not use Autopublish for everything either, and simply toggle it on/off as needed; the app simply makes it easier to work with when enabled.

http://forums.augi.com/showthread.ph...=1#post1294398

Cheers

[cadd4la]

Thanks, for the code.

Now, I got to figure out how to have your code run, then do a save and then run your code again to turn off Autopublish.

[BIG-AL]

Maybe this http://www.cadtutor.net/forum/showth...=Printing-LISP

[cadd4la]

Thanks,

I will look into the link.

[BlackBox]

Now, I got to figure out how to have your code run, then do a save and then run your code again to turn off Autopublish.

(defun c:SavePlot (/ *error* automaticpub)

  (defun *error* (msg)
    (if automaticpub
      (setvar 'automaticpub automaticpub)
    )
    (cond ((not msg))                                                   ; Normal exit
          ((member msg '("Function cancelled" "quit / exit abort")))    ; <esc> or (quit)
          ((princ (strcat "\n** Error: " msg " ** ")))                  ; Fatal error, display it
    )
    (princ)
  )

  (if
    (and
      (setq automaticpub (getvar 'automaticpub))
      (setvar 'automaticpub 1)
    )
     (command "._qsave")
  )

  (*error* nil)
)