;;;===============================================================================================================
;;; ACAD/MDT-PlotScript 
;;;
;;; Zweck	: a l l e Layouts auf e i n m a l plotten
;;; 	 	: unabhängig von der Seiteneinrichtung 
;;; 	 	: auf beliebigen Plotter
;;; Benutzung	: z.B. Datei mit der Maus ins Zeichnungsfenster ziehen
;;;		: auf eigene Gefahr
;;; 
;;; 		
;;; 		konfigurierbar ist: Drucker/Papierformat/Plotstil/Zeichnungsausrichtung...
;;;		nutzt die Detaillierte Plotkonfiguration des plot-Kommandos
;;;================================================================================================================ 
;;
;;
;;==========Beschreibung der  Konfiguration des -plot Kommandos====================================================
;;
;; Beispielstring mit folgenden Optionen
;; (command "-plot" "J" "Layout1" "drucker.pc3" "" "M" "" "" "" "" "" "" "Z" "J" "" "" "" "J" "" "n" "" "J")
;; dieser String wird mit u.g. Variablen gefüllt.
;;
;; was im Plotstring in "" steht, ist eine Option des plot commandos
;; was im Plotstring ohne "" steht, ist eine nachfolgend def. Variable anstelle der Option des plot commandos
;; wird bei den nachfolgenden V a r i a b l e n zwischen "" leergelassen werden die Werte aus der Seiteneinrichtung 
;; übernommen
;; Variablen sind mit (Setq... definiert 
;;
;;==========Beschreibung der  Konfiguration des -plot Kommandos====================================================
;;
;;
;;
;; *********Beginn Konfiguration des -plot Strings********************
;;      *** Optionenbeschreibung in Befehlsreihenfolge ****
;;
;; hier zwischen den "" anstatt meinplotter.pc3 einen verfügbaren P l o t t e r einstellen
;; ohne .pc3 als Systemdrucker oder ein plotter.pc3, "" leergelassen nimmt den aus der Seiteneinrichtung
(Setq Plotter "meinplotter.pc3")
;;
;; unterstütztes P a p i e r f o r m a t des gewählten Plotters einstellen, ""= Vorgabe aus Seiteneinrichtung
(Setq Papierformat "")
;;
;; P a p i e r e i n h e i t e n angeben [Zoll/Millimeter] 
(Setq Papiereinheiten "M")
;;
;; A u s r i c h t u n g der Zeichnung angeben [Hochformat/Querformat] 
(Setq Ausrichtung "")
;; A u f  d e m  K o p f p l o t t e n ? [Ja/Nein] <Nein>: wird mit "" aus Seiteneinrichtung übernommen
(Setq aufdemKopf "")
;; 
;; P lo t b e r e i c h angeben [Anzeige/Grenzen/Layout/ANsicht/Fenster]
;; Optionen für Plotbereich, Achtung, die Optionenanzahl variieren
;; Anzeige = "A"
;; Grenzen = "G"
;; Layout = "L"
;; ANsicht = "AN" "Ansichtsname"
;; Fenster mit "F" "" ""
;; Untere linke Ecke des Fensters angeben <-23.512634,-145.027877>: oder mit "" übernehmen
;; Obere rechte Ecke des Fensters angeben <421.649732,323.941064>: oder mit "" übernehmen
;;(Setq Plotbereich "F" "" "") wenn Fenster gebraucht wird 
(Setq Plotbereich "G")
;;
;; P l o t m a ß s t a b wird mit "" aus seiteneinrichtung übernommen
;; Plotmaßstab angeben (geplottet Millimeter=Zeichnungseinheiten) oder [Anpassen]  <Anpassen>:
(Setq Plotmaßstab "")
;;
;; P l o t v e r s a t z angeben (x,y) oder [Zentrum] <Zentrum>:
;; Plotversatz wird im String mit "Z" im Plotstring auf Zentrieren gesetzt
;;
;; Mit P l o t s t i l e n plotten? [Ja/Nein]
(Setq mitPlotstil "J")
;;
;; P l o t s t i l t a b e l l e n n a m e angeben (. für keinen Namen)
(Setq Plotstilname "monochrome.ctb")
;;
;;Mit L i n i e n s t ä r k e n plotten? [Ja/Nein]: wird mit "" aus Seiteneinrichtung übernommen
;;Linienstärken mit Plotmaßstab s k a l i e r e n? [Ja/Nein]: wird mit "" aus Seiteneinrichtung übernommen
;;P a p i e r b e r e i c h  z u e r s t plotten? [Ja/Nein] <Nein>: wird mit "" aus Seiteneinrichtung übernommen
;;V e r d e c k t e Linien e n t f e r n e n? [Ja/Nein] <Nein>: wird mit "" aus Seiteneinrichtung übernommen
;;P l o t  i n  D a t e i ausgeben [Ja/Nein]: wird mit "N" auf Nein gesetzt
;;Ä n d e r u n g e n an Layout s p e i c h e r n [Ja/Nein]? wird mit "N" auf Nein gesetzt
;;Plotten f o r t s e t z e n [Ja/Nein]: wird mit "J" auf Ja gesetzt
;;
;;
;; *********Ende Konfiguration des -plot Strings********************
;;
;;
(setvar "filedia" 0)
(foreach LAYOUTx (layoutlist)
;; jetzt das eigentliche PLOT Commando als zusammengesetzter P l o t - S r i n g 
(command "-plot" "J" Layoutx Plotter Papierformat Papiereinheiten Ausrichtung aufdemKopf Plotbereich Plotmaßstab "Z" mitPlotstil Plotstilname "" "" "" "" "N" "N" "J")
) 
(setvar "filedia" 1)