(defun DATE_GETSTR ( / )
  (setq DATUM "30.04.2015")
  )


(defun UPDATE-Title-Block (INSERTNAME ATTRIBNAME ATTRIBWERT / AUSWAHL INDEX OBJEKTDATEN)
  (if (= (type INSERTNAME) 'STR)
    (setq AUSWAHL (ssget "_X" (list '((0 . "INSERT"))(cons 2 INSERTNAME))))
    )
 
(if(or AUSWAHL
       (setq AUSWAHL (ssget "_X" '((0 . "INSERT"))))
       )
  (progn
    (setq INDEX -1)
    (repeat (sslength AUSWAHL)
      (setq OBJEKTDATEN (entget (ssname AUSWAHL (setq INDEX (1+ INDEX)))))
      (if (assoc 66 OBJEKTDATEN)
        (while (/= (cdr (assoc 0 OBJEKTDATEN)) "SEQEND")
          (setq OBJEKTDATEN (entget (entnext (cdr (assoc -1 OBJEKTDATEN)))))
          (if (and(=(cdr (assoc 0 OBJEKTDATEN)) "ATTRIB")
                  (=(strcase (cdr(assoc 2 OBJEKTDATEN))) ATTRIBNAME)
                  )
            (progn
              (setq WERT (cdr(assoc 1 OBJEKTDATEN)))
              (entmod(subst(cons 1 ATTRIBWERT) (assoc 1 OBJEKTDATEN) OBJEKTDATEN))
              ) ;;progn
            )
          )
        )
      )
    )
  )
  )

(defun c:UPDATE-Title-Block ()
  (setq WERT "0")
  (UPDATE-Title-Block nil "GEN-TITLE-DAT" "30.04.2015")
  (command "_.regen")
  (alert WERT)
  (princ)
  )