im anschluss habe ich versucht das auf meine beduerfnisse umzuschreiben, indem ganz am anfang geprueft wird ob attribute da sind und die wiederum gleich als attributdefinitionen in der foreach schleife erzeugt werden und später die dazugehörigen attributeinträge werden am ende angehangen.
wenn ich ein attribut nun hinzufuegen will, geb ich die bezeichnung ein die attributdefinition wird erzeugt die attributbezeichnung wird erzeugt aber kein block.
darf man so ueberhaupt bei blockerzeugung vorgehen

Code:

---

; pruef routine nach attributen in einem block

(defun Gather_Attribs (
       EN  ;;entity name of INSERT object
       /
       EN2 ;;temporary entity name
       EL  ;;entity list
       )
   ;; Get first attrib entity.
   (setq EN2 (entnext EN)
         EL (entget EN2)
         ATTS nil  ;;note that ATTS is global!
   )
   ;; So long as there are attributes...
   (while (= (cdr (assoc 0 EL)) "ATTRIB")
     ;;build ATTS data list containing tag name
     ;;and attribute value.
     (setq ATTS (cons
                   (list (cdr (assoc 2 EL))
                         (cdr (assoc 1 EL))
                   )
                   ATTS)
           EN2 (entnext EN2)
           EL (entget EN2)
     )
     ATTS
   )
)

; hauptprogramm

(defun c:add (/ i bn blk attlist bez bpt)
(setq i -1) ; zähler fuer y-position des AttDef
  (if (= "INSERT" (cdr (assoc 0 (setq bn (entget (setq blk (car (entsel "\nwähle einen block "))))))))
    (progn
      (setq bpt (cdr (assoc 10 (entget blk))))
     
      (entmake (list (cons 0 "BLOCK")(list 10 0 0 0)(assoc 2 bn)(cons 70 2)))

      (entmake (list (cons 0 "CIRCLE") (cons 8 "0") (assoc 10 bn) (cons 40 1)))

        (if (= (cdr (assoc 66 bn)) 1) ; wenn der gewählte block bereits attribute hat
          (progn
            (setq attList (Gather_Attribs blk))
            (foreach N attList
              (entmake (list (cons 0 "ATTDEF")
                 (cons 8 "0")
                 (cons 10 (list 0 (1+ i) 0))
                 (cons 11 '(0 0 0))
                 (cons 40 1)
                 (cons 1 (cadar N)) ; soll den Attr bezeichnung abfragen ???
                 (cons 3 "TOP")
                 (cons 2 (caar N)) ; soll den tag name abfragen
                 (cons 70 0)
                 (cons 73 0)
                 (cons 50 0)
                 (cons 41 1)
                 (cons 51 0)
                 (cons 7 "STANDARD")
                 (cons 71 0)
                 (cons 72 0)
                 (cons 210 (list 0 0 1))
                 (cons 74 0)
                 (cons 62 256)
                 (cons 39 0)
                 (cons 6 "BYLAYER")))
              (setq i (1+ i))
              )
           
            )
          (princ "\nkeine Attribute vorhanden ")
          )
        (if (setq bez (getstring "\nneue Attribut bezeichnung: ")) ; um neue attribute hinzuzufuegen
          (entmake (list (cons 0 "ATTDEF")
                 (cons 8 "0")
                 (cons 10 (list 0 (1+ i) 0))
                 (cons 11 '(0 0 0))
                 (cons 40 1)
                 (cons 1 "NEU")
                 (cons 3 "TOP")
                 (cons 2 bez)
                 (cons 70 0)
                 (cons 73 0)
                 (cons 50 0)
                 (cons 41 1)
                 (cons 51 0)
                 (cons 7 "STANDARD")
                 (cons 71 0)
                 (cons 72 0)
                 (cons 210 (list 0 0 1))
                 (cons 74 0)
                 (cons 62 256)
                 (cons 39 0)
                 (cons 6 "BYLAYER")))
          )
      (entmake (list (cons 0 "ENDBLK")(cons 8 "0")))

      (entmake (list (cons 0 "INSERT")(cons 2 "blockname")(cons 10 '(0 0 0))(cons 66 1)
                 (cons 62 256)
                 (cons 39 0)
                 (cons 6 "BYLAYER")))

      (if (/= attList nil)
        (foreach N attList
          (entmake (list (cons 0 "ATTRIB")
                 (cons 8 "0")
                 (cons 10 '(1 1 0))
                 (cons 11 '(1 1 0))
                 (cons 40 1)
                 (cons 1 (cadar N))
                 (cons 2 (caar N))
                 (cons 70 0)
                 (cons 73 0)
                 (cons 50 0)
                 (cons 41 1)
                 (cons 51 0)
                 (cons 7 "STANDARD")
                 (cons 71 0)
                 (cons 72 0)
                 (cons 210 (list 0 0 1))
                 (cons 73 0)
                 (cons 62 256)
                 (cons 39 0)
                 (cons 6 "BYLAYER")))
          )
        )
        (entmake (list (cons 0 "ATTRIB")
                 (cons 8 "0")
                 (cons 10 (list (+ 1 i (car bpt)) (+ 1 i (cadr bpt)) 0))
                 (cons 11 '(1 1 0))
                 (cons 40 1)
                 (cons 1 bez)
                 (cons 2 "NEU")
                 (cons 70 0)
                 (cons 73 0)
                 (cons 50 0)
                 (cons 41 1)
                 (cons 51 0)
                 (cons 7 "STANDARD")
                 (cons 71 0)
                 (cons 72 0)
                 (cons 210 (list 0 0 1))
                 (cons 73 0)
                 (cons 62 256)
                 (cons 39 0)
                 (cons 6 "BYLAYER")))
      )
    (entmake (list (cons 0 "SEQEND")(cons 8 "0")))
    )
  (princ "\nkeinen Block gewählt !!!")(princ)
 
  )

---