;Auto-update PDF plot/publish path to DWG folder
; for AutoCAD 2019,2020,2021,2022,2023,2024.1.2 and up, plus LT 2024
;(C)2024, ARKANCE - www.cadforum.cz

(defun autoPathPDFcb (reactor cmdlist)
 (if (member (strcase (car cmdlist)) '("PLOT" "PUBLISH" "EXPORTPDF" "AUTOPUBLISH"))(progn
  (vl-registry-delete (strcat "HKEY_CURRENT_USER\\" (vlax-product-key) "\\Profiles\\" (getvar "cprofile") "\\Dialogs\\AcPublishDlg") "Location") ; no overrides
  (princ "\n>AutoPathPDF: plot path set to ")(princ (setvar "PlotToFilePath" (getvar "DWGPREFIX")))
 ))
)

(defun C:AutoPathPDF ( / ) ; toggle ON/OFF
 (if autoPathPDFReactor
  (progn (vlr-remove autoPathPDFReactor)(setq autoPathPDFReactor nil)(setvar "PlotToFilePath" (getvar "MYDOCUMENTSPREFIX"))(princ "\n>AutoPathPDF: OFF"))
  (progn (setq autoPathPDFReactor (VLR-Command-Reactor nil '((:VLR-commandWillStart . autoPathPDFcb))))(princ "\n>AutoPathPDF: ON"))
 )
 (princ)
)

(setq autoPathPDFReactor nil)
(C:AutoPathPDF) ; initially ON
(princ "\n>AutoPathPDF: plot path set to ")(princ (setvar "PlotToFilePath" (getvar "DWGPREFIX")))
(princ)