Plot table search path

[okonforti]

Hi,

I'm looking to change the 'plot style table search path' without going into the Options menu.
My company have alot of ctb's and we are trying to use a diffrent folder for 4 new ctb's that will be used for all new dwg's. but we still need to plot old dwg's with old ctb's.
Is it possible to have a switch (lisp, vba, macro....) ?

thanks,

okonforti

[Mike.Perry]

Hi


Take a look at using Shortcuts instead, the following threads should give you a few ideas -

Multiple printer configuration file search paths (http://forums.augi.com/showthread.php?t=7057)

page setup (http://forums.augi.com/showthread.php?t=4773)

Have a good one, Mike

[okonforti]

Thanks Mike,
just wondering....is there a way to control the Options window (or change variables) from the command line or external windows command ?

thanks again , great info.

[Mike.Perry]

Hi

Can you please explain a little more as I don't fully understand what it is you're asking (sorry, I'm not the quickest....).

Have a good one, Mike

[richard.binning]

Thanks Mike,
just wondering....is there a way to control the Options window (or change variables) from the command line or external windows command ?

thanks again , great info.You might try visual lisp:



;;;****************[ I n i t i a l i z a t i o n ]****************
;Get current Profile User Support root folder location
;(setq THCPstylePath (strcat (vl-registry-read (strcat "HKEY_CURRENT_USER\\" (vlax-product-key)) "RoamableRootFolder") "Plot Styles"))
(setq THCPstylePath (strcat (getvar "roamablerootprefix") "Plot Styles"))
(setq tmpLine (parse THCPstylePath "\\"))
;Update Registry with New value
(setq THCPstylePathNew (vl-string-subst "All Users" (car (cddr tmpLine)) THCPstylePath))
;;; 9/02/2004 Must check for plotstyles folder and create if necessary.
;(if (/= (vl-file-systime (strcat THCPstylePathNew "\\monochrome.ctb (file:///monochrome.ctb)")) nil)
(if (/= (vl-file-directory-p THCPstylePathNew) nil)
(vlax-put-property (vlax-get (vlax-get (vlax-get-acad-object) "Preferences") "Files") "PrinterStyleSheetPath" THCPstylePathNew)
(progn
(prompt "\nPlot Styles Path not Found...")
(prompt "\nMust Create default Local Plot Style Path...")
(vl-mkdir THCPstylePathNew)
(vlax-put-property (vlax-get (vlax-get (vlax-get-acad-object) "Preferences") "Files") "PrinterStyleSheetPath" THCPstylePathNew)
);end progn
)
(PRINC)