(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               
                (entmod(subst(cons 1 ATTRIBWERT)
                            (assoc 1 OBJEKTDATEN)
                            OBJEKTDATEN
                      )
                )
              ) 
            )
          )           
        ) 
      )               
    )
  )
)
(defun c:UPDATE-Title-Block ()
  (UPDATE-Title-Block "*" "PLANNR-INDEX"  "A")
  (UPDATE-Title-Block "*" "IND-1"  "A")
  (UPDATE-Title-Block "*" "DAT-IND-1"  "--.--.--")
  (UPDATE-Title-Block "*" "NAME-IND-1"  "--. / --.")
  (UPDATE-Title-Block "*" "ÄNDERUNG-IND-1"  "Anpassungen und Ergänzungen")
  (command "_.regenall")
)
(C:UPDATE-Title-Block)