;;;;imports adobe d SETUP TO THE ACTIVE LAYOUT AND SETS IT CURRENT
;;;;JUNE 2005

(defun c:ImpPageSetupPDF ()
  (setq cmdeko (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setq emode (getvar "EXPERT"))
  (setvar "EXPERT" 2)
  ;;;set up a template file with the page setups you want to import
  ;;;locate the file
  (setq	filepath "template.dwt")
  ;;;suppress the file dialog box
  (command "filedia" "0")
  ;;;set the page setup you want to import
  (setq	setups  "PDFD" )
  ;;import into the active drawing
  (command "-psetupin" filepath setups)
  ; get a list of the layouts
  (setq layout-tab-list (layoutlist))
  ;;;apply the plot setup to each layout tab, but do not plot - note the final "n" which cancels the plot command
  (foreach name layout-tab-list
      (command "-plot" "n" "" "PDFD2=" "" "n" "y" "n" )
  ); end foreach
  ;;;print a warm fuzzy on the command line so the user knows his layout has been set correctly
  (print "Printer setup completed.")
  (command "Expert" emode)
  (command "cmdecho" cmdeko)
  ;;;turn file dialogs back on
  (command "filedia" "1")
  ;;set imageframe variable to 2 so any logos are plotted without borders
  (command "imageframe" "2")
  ;;;zoom extents
  (command "zoom" "extents")
  (princ)
)