Topic: PDF Paths

[cmwade77]

Ok, I know I can change xRef paths with -xref path option. But how do I change the paths of PDFs without using anything that requires (vl-load-com)?

I need to do this through the ACCoreConsole, which is why I have this limitation.

[ronjonp]

This is untested but may give you ideas:

Code - Auto/Visual Lisp: [Select]

1. (defun _foo (pdfname newpath / d)
2.   (and (setq d (dictsearch (namedobjdict) "ACAD_PDFDEFINITIONS"))
3.        (setq d (dictsearch (cdr (assoc -1 d)) pdfname))
4.        (entmod (subst (cons 1 (strcat newpath pdfname ".pdf")) (assoc 1 d) d))
5.   )
6. )
7. ;; (_FOO "TEST" "C:\\DIR\\")

[cmwade77]

I am not sure what the (strcat newpath) or should the code be:

Code: [Select]

(defun _foo (pdfname newpath / d)
  (and (setq d (dictsearch (namedobjdict) "ACAD_PDFDEFINITIONS"))
       (setq d (dictsearch (cdr (assoc -1 d)) pdfname))
       (entmod (subst (cons 1 (strcat newpath pdfname ".pdf")) (assoc 1 d) d))
  )
)


[ronjonp]

Sorry .. Fixed above.

[ronjonp]

Did it work ?

[cmwade77]

Did it work ?

I am not sure yet, I haven't had time to test it......darn work keeps getting in the way of making lisp routines. 

[cmwade77]

I finally managed to test it and it is not working.

Edit: Ok, I see why, it's because I have multipage PDFs, which affect the PDF names in this code, so now I have to figure out how to handle this.