Search This Blog

Wednesday, March 02, 2005

Where are my Pen Tables? - a Visual Lisp Code Solution.

Are you missing some plot style tables?

Ever launch the plot dialog box only to find that your pen tables have taken a vacation? Does your selection window look like this graphic?



Are you sure that your pen tables are available? An easy solution to this should avoid typo-graphic errors. Can't remember where they should be? No need to memorize that long 16 folder deep plot table location! Just let AutoCAD show you where it thinks your pen tables are located.

Drag the following lisp routine to on top of your AutoCAD window.


;;; FILENAME:ShowPStyles.lsp
;;;==============================================================
;;; AUTHOR: Richard Binning
;;; DATE: 03/02/2005
;;; DEVNOTE: Initial Build for AUGI Forums (http://www.augi.com)
;;; MASTER: Posted to Besidethecursor
;;; (http://www.integr-8.com/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 RLB")
(setq PStyles (vlax-get (vlax-get (vlax-get (vlax-get-acad-object)
"Preferences") "Files") "PrinterStyleSheetPath"))
(startapp "explorer" (strcat "/n,/e," PStyles "\\" ))
(princ)
)
(RLB:showPStyles)





When the explorer window opens, look for your pen tables. If you don't see them (as shown above), you can:

  • Use the options dialog box to select a new location.
  • Or drag the plot style table files (ctb or stb files) to the open explorer window.
  • Or create a link to the correct folder in the current open explorer window.

Hope that helps,

RLB