;  modibem.lsp
;  Ändern des Wertes von Bemaßungsueberschreibung, Praefix nach wahl
;  erstellt 01/06 
;
;
(defun c:modibem()
;
;
  (princ "MODIBEM  -  Modifizierung von Bemaßungsüberschreibungen")
  (print )
  (initget 1)     ; keine Leereingaben
  (setq praefix (getstring "Präfix "))
  (setq mingrenz (getreal "unterer Grenzwert "))
  (setq maxgrenz (getreal "oberer Grenzwert "))
  (setq tl (ssget '((0 . "DIMENSION"))))
  (setq anz (sslength tl))
  (setq x 0)
  (while (< x anz)
    (setq ct (ssname tl x))
    (setq ctl (entget ct))
;
;   alten wert holen
    (setq altwert_txt (cdr (assoc 1 ctl)))

;   umwandeln in Zahl, Bereich pruefen und ggf. Praefix vorsetzen
    (setq altwert (atof altwert_txt))


    (if (and (<= mingrenz altwert) (>= maxgrenz altwert))
;
; 	  textinhalt setzen auf neuwert_txt
	  (setq ctl (subst (cons 1 (strcat praefix altwert_txt)) (assoc 1 ctl) ctl))
      	
    )

    (entmod ctl)
    (entupd ct)
    (setq x (1+ x))

  )  

)