DWF Lisp

[BCrouse]

Is there a lisp routine out there that can do a DWFOUT that it refernces your .pc3 file?

Thank you,

Brad

[mohobrien]

With (command "-plot " etcetera you can choose a pc3 you've set up for dwf output.
The prompt sequence for choosing your pc3 is below.

(defun c:crouseout ()
  (command "-plot"   "y"	   ""  "DWF ePlot.pc3"	 ""
	"Inches"  ""		"No"  ""	"Fit"	 ""
	"No"	  ""		"No"  ""	"BCrouse-Out.dwf"
	""	  "y"	   ""
   )
  (princ)
)

Command: -plot
Detailed plot configuration? [Yes/No] <No>: y
Enter a layout name or [?] <Model>: ?

Layout(s) in drawing:
Layout1
Layout2
Model

Enter a layout name or [?] <Model>:
Enter an output device name or [?] <DesignJet 700 C4706B2.pc3>: ?

Available plot devices.
"PDF-XChange 3.0"
"HP DesignJet 700 (E/A0) by HP"
"HP DesignJet 2500CP by HP"
"401061P - HP LaserJet 4050 Series PCL6"
"401060P - HP Color Inkjet CP1700"
"AcroPlot.pc3"
"DesignJet 700 C4706B2.pc3"
"DesignJet2500C.pc3"
"DWF Classic.pc3"
"DWF ePlot.pc3"
"DWF ePlota.pc3"
"DWF_1Mil_ePlota.pc3"
"Laronge Laserjet 4050.pc3"
"PLT_File.pc3"
"PublishToWeb DWF.pc3"
"PublishToWeb JPG.pc3"
Enter an output device name or [?] <DesignJet 700 C4706B2.pc3>:
Enter paper size or [?] <250S (36.00 x 27.50 Inches)>: ?

Available media sizes.
"Ghislain(36.00 x 61.00 Inches)"
"50S (914.00 x 862.00 MM)"
"User 1 (914.00 x 1180.00 MM)"
"250S (36.00 x 27.50 Inches)"
"50 (36.00 x 31.00 Inches)"
"250W (36.00 x 26.50 Inches)"
"250 (36.00 x 25.00 Inches)"
"250SW (914.00 x 723.00 MM)"
"Andrew2and3(520.00 x 520.00 MM)"
"ISO expand A0 (841.00 x 1189.00 MM)"
"ISO A0 (841.00 x 1189.00 MM)"
"ISO expand A1 (594.00 x 841.00 MM)"
"ISO expand A1 (841.00 x 594.00 MM)"
"ISO A1 (841.00 x 594.00 MM)"
"ISO A1 (594.00 x 841.00 MM)"
"ISO expand A2 (594.00 x 420.00 MM)"
"ISO expand A2 (420.00 x 594.00 MM)"
"ISO A2 (594.00 x 420.00 MM)"
"ISO A2 (420.00 x 594.00 MM)"
"ISO expand A3 (420.00 x 297.00 MM)"
"ISO expand A3 (297.00 x 420.00 MM)"
"ISO A3 (420.00 x 297.00 MM)"
"ISO A3 (297.00 x 420.00 MM)"
"ISO expand A4 (297.00 x 210.00 MM)"
"ISO expand A4 (210.00 x 297.00 MM)"
"ISO A4 (297.00 x 210.00 MM)"
"ISO A4 (210.00 x 297.00 MM)"
"ARCH expand E1 (30.00 x 42.00 Inches)"
"ARCH E1 (30.00 x 42.00 Inches)"
"ARCH expand E (36.00 x 48.00 Inches)"
"ARCH E (36.00 x 48.00 Inches)"
"ARCH expand D (36.00 x 24.00 Inches)"
"ARCH expand D (24.00 x 36.00 Inches)"
"ARCH D (36.00 x 24.00 Inches)"
"ARCH D (24.00 x 36.00 Inches)"
"ARCH expand C (24.00 x 18.00 Inches)"
"ARCH expand C (18.00 x 24.00 Inches)"
"ARCH C (24.00 x 18.00 Inches)"
"ARCH C (18.00 x 24.00 Inches)"
"ANSI expand E (34.00 x 44.00 Inches)"
"ANSI E (34.00 x 44.00 Inches)"
"ANSI expand D (34.00 x 22.00 Inches)"
"ANSI expand D (22.00 x 34.00 Inches)"
"ANSI D (34.00 x 22.00 Inches)"
"ANSI D (22.00 x 34.00 Inches)"
"ANSI expand C (22.00 x 17.00 Inches)"
"ANSI expand C (17.00 x 22.00 Inches)"
"ANSI C (22.00 x 17.00 Inches)"
"ANSI C (17.00 x 22.00 Inches)"
"ANSI expand B (17.00 x 11.00 Inches)"
"ANSI expand B (11.00 x 17.00 Inches)"
"ANSI B (17.00 x 11.00 Inches)"
"ANSI B (11.00 x 17.00 Inches)"
"ANSI expand A (11.00 x 8.50 Inches)"
"ANSI expand A (8.50 x 11.00 Inches)"
"ANSI A (11.00 x 8.50 Inches)"
"ANSI A (8.50 x 11.00 Inches)"

Enter paper size or [?] <250S (36.00 x 27.50 Inches)>:
Enter paper units [Inches/Millimeters] <Inches>:
Enter drawing orientation [Portrait/Landscape] <Portrait>:
Plot upside down? [Yes/No] <No>:
Enter plot area [Display/Extents/Limits/View/Window] <Display>:
Enter plot scale (Plotted Inches=Drawing Units) or [Fit] <Fit>:
Enter plot offset (x,y) or [Center] <0.00,0.00>:
Plot with plot styles? [Yes/No] <Yes>: n
Enter plot style table name or [?] (enter . for none) <>: ?

Available plot style tables.
"acad.ctb"
"Fill Patterns.ctb"
"Grayscale.ctb"
"monochrome.ctb"
"Screening 100%.ctb"
"Screening 25%.ctb"
"Screening 50%.ctb"
"Screening 75%.ctb"

Enter plot style table name or [?] (enter . for none) <>:
Plot with lineweights? [Yes/No] <Yes>:
Remove hidden lines? [Yes/No] <No>:
Write the plot to a file [Yes/No] <N>: n
Save changes to model tab [Yes/No]? <N>
Proceed with plot [Yes/No] <Y>: n