(defun WarDateiPlot2000 (/ p1 p2 File Ausrichtung)
(initget "Hoch Quer")
(if(=(getkword "\nBlattausrichtung [Hoch/Quer]<Hoch>: ")"Quer")
(setq Ausrichtung "Q")
(setq Ausrichtung "H")
)
(command "_.-plot")
(command "_y") ; detailliert?
(command "Model") ; Layoutnamen eingeben
(command "FreePDF XP") ; Ausgabegerätname eingeben
(command "A4") ; Papierformat angeben
(command "M") ; Papiereinheiten angeben
(command Ausrichtung) ; Ausrichtung der Zeichnung angeben
(command "_n") ; Auf dem Kopf plotten?
(command "_w") ; Plotbereich angeben [Anzeige/Grenzen/Limiten/ANsicht/Fenster]
(command p1) ; Untere linke Ecke des Fensters angeben
(command p2) ; Obere rechte Ecke des Fensters angeben
(command "A") ; Millimeter=Zeichnungseinheiten)
(command "0.00,0.00") ; Plotversatz angeben (x,y) oder [Zentrum]
(command "_y") ; Mit Plotstilen plotten?
(command "warema_normal.ctb") ; Potstiltabellenname angeben
(command "_n") ; Mit Linienstärken plotten?
(command "_n") ; Verdeckte Linien entfernen?
(command "_n") ; Plot in Datei ausgeben
(command "_y") ; Änderungen an Register Modell speichern
(command "_y") ; Änderungen an Register Modell speichern
)
------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP