; BRICSCAD	PRINTING @ HOME:	5:09 PM 11/2/2020
; 11-2-2020 HP-Color-LazerJet-CP5225n-B.pc3
;BPEC-H = B size, PS, Extents, Color  
;E:\BricsCAD\PLOTCFG\Lisp\BricsCAD
(defun c:BBH ()	;BBH @ command line launches routine
(Command "Undo" "Mark")	;Sets Undo Mark Spot
(command "-Layer" "T" "MV" "")	;Thaw MV Layer 
(Command "IncludePlotStamp" "1")	;Plot Stamp On (,,$DwgName     $DateTime)
(command "-Layer" "C" "2" "TEXT" "")	;Layer TEXT color 2
;(Command "LAYOUT" "R" "" "Layout1" "") ;Renames Layout to = Layout1
(Command "-Plot" 
"Yes"		;Detailed plot configuration?
""		;Enter a layout name, Returns ext'g Tab Name 
"HP-Color-LazerJet-CP5225n-B.pc3"	;Enter an output device name 
"11x17"		;Enter paper size 
	;;"Enter paper size or ? <11×17>:11x17Paper '11x17' not found"
	;;Crashed here, returned above text (in quotes)
	;;Had to add next line for the lisp to run.  WHY?!!!
""        	;Returns ext'g; Why is this needed!
"Inches"	;Enter paper units 
"Landscape"	;Enter drawing orientation 
"NO"		;Plot upside down?
"Extents" 	;Enter plot area 
"Fit"		;Enter plot scale 
"Center"	;Enter plot offset (x,y) (OLD = 0.0,0.2) 
"Yes"		;Plot with plot styles? 
"acad.ctb" 	;Enter plot style table name 
"Yes" 		;Plot with lineweights? 
"Yes"		;Scale lineweights with plot scale? 
"Yes"		;Plot paper space last? 
"No"		;Remove hidden lines in paper space? 
"No"		;Write the plot to a file? 
"Yes"		;Save changes to layout? 
"Yes")		;Proceed with plot?
;(command "-Layer" "F" "MV" "")	;Freeze MV Layer 
;(command "-Layer" "C" "7" "TEXT" "")	;Layer TEXT color 7
(Command "Undo" "Back")	;Undo Back to Mark  
;(Command "IncludePlotStamp" "0")	;Plot Stamp OFF (,,$DwgName     $DateTime)
(princ "\n\t    HOME-HP-Color-LazerJet-CP5225n-B")	;Comment @ routine completion
(princ)	;No Nil returned
;(Command ".Quit" "YES") ;Quit AutoCAD session ;Really want to discard all changes?	
;To Batch Plot Remove Previous Line's Semi-Colons	
)	;Ends BPEC-H