Plot Stamp....
Plot Stamp....
(OP)
Is there some trick to using the "plotstamp" function. I've changed all the setting to what I want and I have turned "on" the plot stamp within the print dialog box. I am confused on why I can't get this to work? Does anyone have any imput? Thanks





RE: Plot Stamp....
It should put your desired text on any output (paper, pdf, etc)
RE: Plot Stamp....
RE: Plot Stamp....
"Whether you think that you can, or that you can't, you are usually right "
.. Henry Ford
RE: Plot Stamp....
Hope this helps,
Don
;;; ***** DDTS.LSP *****
;;;
;;; Places Drawing name, Date and Time Stamp at lower left corner of drawing
;;;
(defun c:DDTS (/ CE AP CL DP DN CD MX HR MN LM LX DX TH DS MO YR TS TM UN TX OSM)
(setq OSM (getvar "OSMODE"))
(setvar "OSMODE" 0)
(setq CE (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(setq TS (getvar "TEXTSIZE"))
(setq AP "AM"
CL (getvar "CLAYER")
DP (getvar "DWGPREFIX")
DN (getvar "DWGNAME")
UN (GETENV "U")
CD (rtos (getvar "CDATE") 2 4)
MX (atoi (substr CD 5 2))
HR (atoi (substr CD 10 2))
MN (substr CD 12 2)
LM (getvar "LIMMIN")
LX (getvar "LIMMAX")
DX (distance LM LX)
TH (/ DX 552)
DS (polar LM (/ pi 5) (/ DX 60))
;;;DS (polar LM (/ pi 6) (/ DX 100)) [orig]
MO (nth MX '(nil "JAN" "FEB" "MAR" "APR" "MAY" "JUN"
"JUL" "AUG" "SEP" "OCT" "NOV" "DEC"))
)
(if (>= HR 12) (setq AP "PM"))
(if (>= HR 13) (setq HR (itoa (- HR 12))) (setq HR (itoa HR)))
(setq YR (strcat "DATE: " MO " " (substr CD 7 2) ", " (substr CD 1 4)))
(setq TM (strcat "DWG. NAME: " DP "" DN " " YR " TIME: " HR ":" MN " " AP))
(command ".LAYER" "T" "DATESTAMP" "")
(command ".LAYER" "N" "DATESTAMP" "C" "7" "DATESTAMP" "S" "DATESTAMP" "")
(setq TX (ssget "X" (list (cons 8 "DATESTAMP"))))
(command ".ERASE" TX ""
".STYLE" "STANDARD" "" "0" "1" "0" "N" "N" "N"
".TEXT" DS TH "0" TM
".LAYER" "S" CL ""
)
(setvar "CMDECHO" CE)
(setvar "TEXTSIZE" TS)
(print)
(print TM)
(setvar "OSMODE" OSM)
(command "qsave")
(princ)
)
RE: Plot Stamp....
think about RTEXT from rhe Expresstools V 1-9 on Your ACAD-CD...
Lothar
ADT 2004
ACAD 2002
RE: Plot Stamp....
I have used rtext in the past but I wanted something that would update automatically everytime I plotted. I'm not sure, is there away that I can set up rtext to update everytime the drawing is saved or plotted? Thank ya'll for your input.
RE: Plot Stamp....
RE: Plot Stamp....
Another way to do this is as follows:
If you are using a template as your drawing sheet, type something at the location of your choice on the template. Let's say lower left corner.
Pick the text and go to Modify, Properties to get the properties dialog box.
Under Text, Contents, you'll see the text you entered on the template. Right click to edit.
Mine says:
Drawing Name and File Location - $(getvar,"dwgprefix")$(getvar,"dwgname")- Tab Name = $(getvar,"CTAB")- Plotted by - $(getvar,"loginname") on $(getvar,0, MONTH DD"," YYYY -
H:MM am/pm)
The output is:
Drawing Location, Drawing No. Layout Tab Name,Plotted by haggis on June 11, 2004 - 2:00 pm
Save your template and this will update any time you open or plot a drawing.
RE: Plot Stamp....
how can i get just the date to be shown in my Rtext window. I tried CDate and realized i dont need that much info. And i tried it similar to haggis's line and RText did not recongnize the command.
RE: Plot Stamp....
RTEXT
<Diesel>
paste into text box
$(edtime, 0, MON DD"," YYYY - H:MMam/pm)
Hope this helps
RE: Plot Stamp....
http://www.autocadeverything.com/phpBB/ftopic223.php
Lothar
ADT 2004
ACAD 2002
RE: Plot Stamp....
Haggis
RE: Plot Stamp....
RE: Plot Stamp....
RE: Plot Stamp....
Maybe some users just like to practice a little lisp and find other ways to do things....and maybe some day be as good as you!