(Command "IncludePlotStamp" "0") not working in lisp routine

MDunn

Cannot seem to get the (Command "IncludePlotStamp" "0") to work in this lisp routine.
The PDF is created, but w/ a PlotStamp.
When invoking (Command "IncludePlotStamp" "0") prior to the lisp routine to return a PDF w/out the PlotStamp.
Why isn’t the (Command "IncludePlotStamp" "0") functioning prior to the plot command?
Thanks, Mike

;DWG to PDF BricsCAD 10:18 AM 6/11/2019
;Saves to C:\Users\mdunn\Documents (not sure how to change this)
;B Size, PS, Extents, Color, PDF, NO STAMP
(Command "IncludePlotStamp" "0") ;Plot Stamp Off
(defun c:PDF-NoStamp-Brics () ;starts lisp routine
(Command "-Plot" ;Command Line Plot Command
"YES" ;Detailed plot configuration?
"" ;Enter a layout name, Keeps ext'g name (Layout1)
"Brics PDF 8-23-2018.pc3" ;Enter an output device name
"Ledger" ;Enter paper size
"Inches" ;Enter paper units
"Landscape" ;Enter drawing orientation
"NO" ;Plot upside down?
"Extents" ;Enter plot area
"FIT" ;Enter plot scale
"Center" ;Enter plot offset
"YES" ;Plot with plot styles?
"acad.ctb" ;Enter plot style table name
"YES" ;Plot with lineweights?
"NO" ;Scale lineweights with plot scale?
"YES" ;Plot paper space last?
"NO" ;Remove hidden lines in paper space?
"No" ;Write the plot to a file?
"NO" ;Save changes to page setup
"Yes") ;Proceed with plot
;(Command "IncludePlotStamp" "1") ;Plot Stamp On
(princ "\n\t PDF no Plot Stamp to C:/Users/mdunn/Documents ") ;Comment @ routine completion
(princ) ;No Nil returned
) ;Ends PDF-Brics lisp routine

Jason Bourhill

It's probably not working because you're setting it outside of your command function. It is also a environment variable, not a command, so it's more efficient to use setvar/getvar calls. The plot output folder is governed by another variable "PlotOutputPath". Change this to direct where you want your prints to go to.

Try the attached

;DWG to PDF BricsCAD    10:18 AM 6/11/2019
;Saves to C:\Users\mdunn\Documents   (not sure how to change this)
;B Size, PS, Extents, Color, PDF, NO STAMP


(defun C:PDF-NoStamp-Brics ( )  ;starts lisp routine
    ; Save & set environment variables
    (acet-sysvar-set
        (list
            (
                "CMDECHO" 0
                "IncludePlotStamp" 0 ;Plot Stamp Off
                "PlotOutputPath" "C:/Users/mdunn/Documents" ;Plot file location. Change to your preferred folder
            )
        )
     )

        (Command "._-Plot"  ;Command Line Plot Command 
            "YES"       ;Detailed plot configuration? 
            ""      ;Enter a layout name, Keeps ext'g name (Layout1) 
            "Brics PDF 8-23-2018.pc3"   ;Enter an output device name 
            "Ledger"    ;Enter paper size 
            "Inches"    ;Enter paper units 
            "Landscape" ;Enter drawing orientation 
            "NO"        ;Plot upside down? 
            "Extents"   ;Enter plot area 
            "FIT"       ;Enter plot scale 
            "Center"    ;Enter plot offset 
            "YES"       ;Plot with plot styles? 
            "acad.ctb"  ;Enter plot style table name 
            "YES"       ;Plot with lineweights? 
            "NO"        ;Scale lineweights with plot scale? 
            "YES"       ;Plot paper space last? 
            "NO"        ;Remove hidden lines in paper space? 
            "No"        ;Write the plot to a file? 
            "NO"        ;Save changes to page setup 
            "Yes"       ;Proceed with plot 
        )
    (princ (stcrat "\n\t     PDF no Plot Stamp to " (getvar 'PlotOutputPath)))  ;Comment @ routine completion
    (acet-sysvar-restore) ; Reset environment variables
    (princ)     ;No Nil returned
)   ;Ends PDF-Brics lisp routine

Regards,
Jason Bourhill
BricsCAD V19 Ultimate
Quickly create HELP links on your forum posts

CAD Concepts