Plot fonction in lisp

[Chip Harper]

I currently working on a Lisp project involving plotting. Here is the
portion directly pertaining to your question. This example has variables
hardcoded with specifics for my sample drawing, but it gives you a starting
point.

(defun c:lispPlot ()
(setq CMDE (getvar "cmdecho")) ; Get
cmdecho variable
(setvar "cmdecho" 0)
(command "-plot"
; Start Plot Command
"y"
; Run "Detailed Plot Configuration
"M-2"
; Layout name
"HP DesignJet 500 42_HPGL2 Card.pc3" ; Output Device
Name
"Custom 4: 42 x 30 in. (landscape)" ;
Papersize
"Inches"
; Paper units
"Landscape" ; Drawing Orientation
"Y" ; Plot upside down
"Layout" ; Plot Area
"1:1" ; Plot Scale
'(0 0) ; Plot Offset
"Yes" ; Plot with Plotstyles
"BI_Color.ctb" ; Plot Style Table
"Yes" ; Plot with Lineweights
"No" ; Scale Lineweights with
plot scale
"No" ; Plot paper space first
"No" ; Remove Hidden Lines
"No" ; Write the plot to file
"Yes" ; Save Changes to layout
"No" ; Proceed with plot
) ; End Plot Command
(setvar "cmdecho" CMDE) ; Reset cmdecho variable
(princ)
)