;-----------------------------------------------------------------------------;
; Programm:     FREIGABE.LSP                                                  ;
;-----------------------------------------------------------------------------;
;                                                                             ;
; Beschreibung: Erzeugen eines PLT-Files fuer den Freigabeordner              ;
;


(defun c:freigabe (/ p1 p2 File dcl_id)
	(setq p1 (getpoint "\nUntere linke Ecke des Fensters angeben: "))
	(setq p2 (getpoint "\nObere rechte Ecke des Fensters angeben: \n"))
	(setq File (strcat "P:\\HA_Forschung-Entwicklung-Anwendungstechnik\\ACAD_Vorfreigabe\\Vorfreigabe\\" (WarDateiname "plt")))
	(WarDateiPlot2000 p1 p2 File)
	(princ (strcat "\nDatei " (strcase file) " erfolgreich gespeichert. "))
	(achtung dcl_id)
	(princ)
)


(defun WarDateiPlot2000 (p1 p2 File)
	(setvar "filedia" 0)
	(command "_.-plot")
	(command "_y")				; detailliert?
	(command "Model") 		; Layoutnamen eingeben
	(command "PLT-Datei.pc3") 	; Ausgabegerätname eingeben
	(command "ISO A4 (297.00 x 210.00 MM)") 				; Papierformat angeben
	(command "M") 				; Papiereinheiten angeben
	(command "Q") 				; 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_plt.ctb") 	; Potstiltabellenname angeben
	(command "_n") 				; Mit Linienstärken plotten?
	(command "_n") 				; Verdeckte Linien entfernen?
	(command "_y") 				; Plot in Datei ausgeben
	(command File)				; Die Plotdatei inc. Pfad
	(command "_n") 				; Änderungen an Register Modell speichern
	(command "_y") 				; Änderungen an Register Modell speichern
	(setvar "filedia" 1)
)

(defun achtung (dcl_id )
  (setq dcl_id (load_dialog "achtung.dcl")) 
  (if (not (new_dialog "achtung" dcl_id))
    (exit)
  )
  (setq ok (start_dialog))
  (unload_dialog dcl_id)
  (princ)
)