attributs des blocs

;; Affiche la somme des attributs B des insertions du bloc A
(defun attsum (/ sset sum i l name entDef)
  (setq
    sset (ssget "X" '((2 . "A")))	; Sélectionne toutes les insertions du bloc A
    sum	 0
  )
  (if sset
    (progn
      (setq
	i 0
	l (sslength sset)
      )
      (while (< i l)
	(setq name (ssname sset i)
	      loop T
	)
	;; Boucle sur les attributs
	(while loop
	  (setq	name   (entnext name)
		entDef (entget name)
	  )
	  (if (and (= (cdr (assoc 0 entDef)) "ATTRIB")
		   (= (cdr (assoc 2 entDef)) "B")
	      )
	    ;; On a trouvé l'attribut B
	    (setq sum  (+ sum (atof (cdr (assoc 1 entDef))))
		  loop nil
	    )
	  )
	  (if (= (cdr (assoc 0 entDef)) "SEQEND")
	    (setq loop nil)
	  )				; Fin de séquence, on termine la boucle
	)
	;; Passe à l'insertion de bloc suivante
	(setq i (1+ i))
      )
      (alert (strcat "Somme : " (rtos sum)))
    )
    (alert "Pas d'insertion du bloc A dans le dessin.")
  )
  (princ)
)