Routine lisp pour créer une légendes des objets dans un dessin

[Majaes]

Bonjour à tous,

J'aurai besoin d'aide sur un lisp. J'ai trouvé un lisp "block counter" d'un certain Lee-mac sur son site et il me permet de créer un tableau de tous les blocs présents dans un dessin et compte leur occurrence (nombre). Dans ce tableau une colonne est pour le symbole des blocs, une autre colonne pour le nom des blocs et une dernière pour le nombre, il est très bien fait.

Mon souci c'est que je voudrais avoir le nom du calque dans lequel se trouvent chaque bloc plutôt que le nom du bloc et pouvoir inclure les polylignes, les lignes, les splines et les hachures dans le tableau. Je ne veux pas compter ces objets (blocs, lignes, polylignes, splines, hachures) mais juste les identifier selon leur calque dans un tableau organisé comme dans le lisp de Lee-mac.

Je vous joins le lisp "CountV1-5" de Lee-mac, les images du résultat de son lisp dans un dessin (Image 1) et ce que je voudrais faire (Image 2).

Cordialement !

CountV1-5.lsp