Use this to allow your users to easily find the location of their plot styles tables.
Code:
;;; FILENAME:ShowPStyles.lsp
;;;====================================================================
;;; AUTHOR: Richard Binning
;;; DATE: 03/02/2005
;;; DEVNOTE: Initial Build for AUGI Forums ()
;;; MASTER: Posted to Besidethecursor ()
;;; DEVNOTE: Initial Mods for 2005 Products
;;;
;;; DISCLAIMER:
;;; Permission to use, copy, modify, and distribute this software
;;; for any purpose and without fee is hereby granted, provided
;;; that the above copyright notice appears in all copies and that
;;; both that copyright notice and this permission notice appear in
;;; all supporting documentation.
;;;
;;; THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED
;;; WARRANTY. ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR
;;; PURPOSE AND OF MERCHANTABILITY ARE HEREBY DISCLAIMED.
;;;
;;;====================================================================
;;; DESCRIPTION: ShowPStyles.lsp - Macro to retrieve the defined AutoCAD PlotStyleTable Search path
;;; Uses standard Visual Lisp methods to retrieve data
;;; Launches default explorer window to selected folder
;;;
;;; USAGE: 1.) Load this file
;;; PREREQ: Requires (vl-load-com) for visual lisp functions
;;;====================================================================
(defun RLB:ShowPStyles ()
(vl-load-com)
(prompt "\nLaunching expected Plot Table folder window - By Richard Binning")
(setq PStyles (vlax-get (vlax-get (vlax-get (vlax-get-acad-object)
"Preferences") "Files") "PrinterStyleSheetPath"))
(startapp "explorer" (strcat "/n,/e," PStyles "\\" ))
(princ)
)
(RLB:showPStyles)