Topic: printerconfigpath automation error

[dubb]

Code: [Select]

(vl-load-com)
(setq PreferenceFiles (vla-get-files (vla-get-preferences (vlax-get-acad-object))))
;print/plotter settings
(setq AddPrintPath (strcat "n:\\cad_support\\plotter"))
(setq CurrentPrintPath (strcat (vla-get-PrinterConfigPath PreferenceFiles)))
(setq NewPrintPath (strcat AddPrintPath";"CurrentPrintPath))
(vla-put-printerconfigpath PreferenceFiles NewPrintPath)
I get an error

Automation Error. Invalid Argument

What am I doing wrong?

[Lee Mac]

I don't see anything wrong with your code - perhaps there is a bug with the ActiveX printerconfigpath property.

Try the following alternative method, changing the registry value directly:

Code - Auto/Visual Lisp: [Select]

1. (setq new "n:\\cad_support\\plotter"
2.       cur (getenv "PrinterConfigDir")
3. )
4. (if (not (vl-string-search (strcase new) (strcase cur)))
5.     (setenv "PrinterConfigDir" (strcat new ";" cur))
6. )

[dubb]

This works Thanks Lee.

I don't see anything wrong with your code - perhaps there is a bug with the ActiveX printerconfigpath property.

Try the following alternative method, changing the registry value directly:

Code - Auto/Visual Lisp: [Select]

1. (setq new "n:\\cad_support\\plotter"
2.       cur (getenv "PrinterConfigDir")
3. )
4. (if (not (vl-string-search (strcase new) (strcase cur)))
5.     (setenv "PrinterConfigDir" (strcat new ";" cur))
6. )

[ChrisCarlson]

I'm not sure what you are even trying to do ? All you really need to do is

Code - Auto/Visual Lisp: [Select]

1. (vla-put-PrinterConfigPath  (vla-get-files (vla-get-preferences (vlax-get-acad-object))) "n:\\cad_support\\plotter")

Not sure why you are pulling the old config path?

[Lee Mac]

Not sure why you are pulling the old config path?

The OP is adding a new path to the existing set of paths.

[ChrisCarlson]

His snippet seems to works on Vanilla 2016. He just needs to add a check to prevent duplicate line items.

Is there an advantage to writing to the registry directly vs ActiveX?