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?
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.
Scot-65
A gift of extraordinary Common Sense does not require an Acronym Suffix to be added to my given name.