; fügt einen Bodenblock ein, holt sich die Größe von der Bodenpolylinie.
;
;
;
(princ "\nLade c:bb ")
;
;
;
(defun  c:bb   ( / vcmde vosmode olderr )
;
   (defun err (st)                     ; Wenn ein Fehler (z.B. CTRL-C)
                                       ; während der Befehlsausführung
                                       ; auftritt...
      (if (and (/= st "Function cancelled") (/= st "quit / exit abort"))
         (princ (strcat "\nFehler: " st))
      )
      (setvar "CMDECHO" vcmde)            ; Modi zurücksetzen
      (setvar "OSMODE" vosmode)
      (setq *error* olderr)               ; Fehlerbehandlung zurücksetzen
      (princ)
   )

   (setq vcmde (getvar "CMDECHO"))
   (setvar "CMDECHO" 0)
   (setq vosmode (getvar "OSMODE"))
   (setq vluprec (getvar "LUPREC"))
   (setq vclayer (getvar "CLAYER"))
   (setq vltscale (getvar "LTSCALE"))
   (setq vattdia (getvar "ATTDIA"))
   (setq olderr *error*
         *error* err)



   (setq bpl (getpoint "\nBitte die Bodenpolylinie anklicken "))
   (command "_AREA" "_o" bpl)
;
   (setq raumbuchnummer ( ))
	(setq topnummer ( ))
   (if (= nummer nil)
      (setq nummer 1)
      (setq nummer (+ nummer 1))
   )
	(setq nn (getint (strcat "\n? Raumnummer <" (rtos nummer 2 2) "> ")))
		(if (= nn nil)
			(setq nummer nummer)
			(setq nummer nn)
		)
   (if (= zimmer nil)
      (setq zimmer "Zimmer")
   )
	(setq xx (getstring (strcat "\n? Widmung des Raumes <" zimmer "> ")))
		(if (= xx "")
			(setq zimmer zimmer)
			(setq zimmer xx)
		)
   (if (= boden nil)
      (setq boden "PVC")
   )
	(setq yy (getstring (strcat "\n? Bodenbelag des Raumes <" boden "> ")))
		(if (= yy "")
			(setq boden boden)
			(setq boden yy)
		)
   (if (= rh nil)
      (setq rh 2.50)
   )
	(setq zz (getreal (strcat "\n? Raumhöhe des Raumes <" (rtos rh 2 2) "> ")))
		(if (= zz nil)
			(setq rh rh)
			(setq rh zz)
		)
   (setq fla (getvar "area"))
	(setq fl (/ fla 1))
   (setq umf (getvar "perimeter"))
	(setq um (/ umf 1))
   (setq rv (* fl rh))
;
   (setq bblock "c:/bodenblock/bodenblo98.dwg")
	(setvar "attdia" 0)
	(setvar "luprec" 0)
   (command "_layer"  "_m" "b_227z" "_c" "4" "" ""
	    "_insert" bblock PAUSE "0.35" "0.35" "0" "" ""
;	     raumbuchnummer
;	     topnummer
	     nummer	
	     zimmer
	     boden
	     (strcat (rtos fl 2 2) " M2")
	     (strcat (rtos um 2 2) " M1")
	     (strcat (rtos rh 2 2) " M")
	     (strcat (rtos rv 2 2) " M3")
	     ""
   )


   (setvar "CMDECHO" vcmde)
   (setvar "OSMODE" vosmode)
   (setvar "LUPREC" 4)
   (setvar "ATTDIA" vattdia)
   (setvar "LTSCALE" vltscale)
   (setvar "CLAYER" vclayer)
   (setq *error* olderr)                 ; Fehlerbehandlung zurücksetzen
   (princ)
)
(princ)


