lisp liste blocs erreur sur A19

[gilles]

Bonjour, en cherchant un lisp capable de créer une liste des blocs pour chaque calque d'un dessin, j'ai retrouvé un message du 4/11/09 avec une proposition de code. Après plusieurs essais sur A19, ce lisp ne fonctionne pas. Aussi je vous demande de l'aide pour corriger ce code car je ne sais pas si c'est A19 ou le code qui sont responsables de l'erreur.

 (defun c:totob(/)
 (setq fil(open "c:\\liste.txt" "w"))
 (setq tousblocs(ssget "_x" '((0 . "INSERT"))))
 (setq compt 0)
 (repeat(sslength tousblocs)
   (write-line(strcat (cdr(assoc 2(entget(ssname tousblocs compt))))";"(cdr(assoc 8(entget(ssname tousblocs compt)))))fil)
   (setq compt(1+ compt))
   )
 (close fil)
 )

 

Merci par avance,

[Turtle76]

Bonjour,

tu peux passer via la commande TABLEAU, et dans la fenetre : les options d'insertion > A partir des données d'objet du dessin. tu crée une nouvelle extraction de données et dans les parametres de choix ,   tes blocs et les infos des claques.

 

[gilles]

Merci turtle76, excellent