(defun c:sv()

(command "BEREINIG" "BL" "" "N")
;; Rahmen/Schriftkopf/Stempel auf AM_BOR
;;Stückliste auf AM_5
;;Zeichnungsblöcke auf 0
(command "_zoom" "_e")
(command "LIMMIN" "0.0000,0.0000")
(command "Griddisplay" "2")
(command "Gridmode" "1")
(command "LWDISPLAY" "EIN")
;;abfrage
(initget "Ja Nein")
(setq Abfrage (getkword "Sind Grenzen,Limiten und Linienstärke ok? [Ja/Nein] <Nein>:"))
(if (not Abfrage) (setq Abfrage "Nein")
	) ;;if
	(if (= Abfrage "Nein") ;;bei nein abbrechen und ausschrift
	  (command "Gridmode" "0")
	  (command "cancel")
	  ;(prompt"\nNacharbeiten --->LISP neu starten mit sv")(princ)
	 ) ;;if

(command "Gridmode" "0")


(command "BEREINIG" "AL" "" "N")

(command "_qsave")
(command "_close" "n")

) ;;defun