Changing Default Plot Stamp

[AQucsaiJr]

Right now I have a few lines in the ACADDOC.lsp file to set up the plot stamp for all users. I would like to just turn on the plot stamp and auto load a custom .pss file that I have set up. Is this possible? How To?

[scot-65]

I tried to write to regristry to turn on the plot stamp but security

reasons would not allow me to do so on non-administrator

privledged work stations, especially w7.  😞

Next step: Investigate command -PLOTSTAMP.

For R2007 one cannot load from this command, it is only available in the dialog equivalent.

Running a script (or LISP) to adjust the settings I have found out overrides the loaded

pss file. I stopped investigating at this point. Here is what I have.

;;---------------------------- PLOT STAMP ON --------------------------------
;; This section checks for the correct plot stamp file and if not current,
;; will set as current. This section also turns on the plot stamp.
;; Scot Harris  1-10-2012
;(if (and (findfile "PWAstamp.pss")
;         (not (wcmatch (vl-registry-read (strcat
;          "HKEY_CURRENT_USER\\" (vlax-product-key) "\\Profiles\\"
;          (getvar "CPROFILE") "\\Dialogs\\Plot Stamp") "PSPFilename")
;          "*PWAstamp.pss")) );and
; (vl-registry-write (strcat "HKEY_CURRENT_USER\\" (vlax-product-key)
;  "\\Profiles\\" (getvar "CPROFILE") "\\Dialogs\\Plot Stamp")
;  "PSPFilename" (findfile "PWAstamp.pss"))
;);if
;(if (wcmatch (vl-registry-read (strcat
;     "HKEY_CURRENT_USER\\" (vlax-product-key) "\\Profiles\\"
;     (getvar "CPROFILE") "\\Dialogs\\Plot Stamp") "PSPFilename")
;     "*PWAstamp.pss")
; (vl-registry-write (strcat "HKEY_CURRENT_USER\\" (vlax-product-key)
;  "\\Profiles\\" (getvar "CPROFILE") "\\Dialogs\\Plot Stamp") "PlotStamp" 1)
;);if

;(if (not (wcmatch (vl-registry-read (strcat "HKEY_CURRENT_USER\\"
;     (vlax-product-key) "\\Profiles\\" (getvar "CPROFILE")
;     "\\Dialogs\\Plot Stamp") "PSPFilename") "*PWAstamp.pss"))
; (command ".PLOTSTAMP"
;  "Fields" "Yes" "No" "Yes" "Yes" "No" "No" "Yes"
;  "User" "" ""
;  "Log" "No" ""
;  "LOCation" "BL" "Vertical" "No" "0.1875,0.25" "Border"
;  "Text" "Tahoma" 0.078125 "Yes"
;  "UNits" "Inches"
;  "")
; );if

;(command ".PLOTSTAMP" "On" "")

Good Luck.