Recherche lisp pour extraire tous les blocs d\'un fichier

[Morgul]

Bonjour,

 

Je recherche un lisp permettant d'extrair tous les blocs d'un fichier en plusieurs fichiers.

J'avais ce lisp, mais je ne le retrouve plus.

 

Merci à tous.

[Maximilien]

Principe, vite fait

 

 (defun table_entete (TB / TBLIST TBLIST TBNAME RES)
 (setq TBNLIST nil)
 (setq TBLIST (tblnext TB T))
 (while TBLIST
   (setq TBNAME (cdr (assoc 2 TBLIST)))
   (setq TBNLIST (append TBNLIST (list TBNAME)))
   (setq TBLIST (tblnext TB))
 )
 (setq RES TBNLIST)
)

(defun c:SuperWbloc ( / i liste)
(setq liste (table_entete "BLOCK"))
(foreach i liste
(command "-WBLOC" i ......))
)

[Morgul]

Merci beaucoup Maximilien,

 

Mais pour la suite : (command "-WBLOC" i ......)

 

Est-ce que quelqu'un peut m'aider ?

 

Merci encore.

 

 

[bonuscad]

Ce sujet peut être ...

[Morgul]

Ouai c'était bien ça !

 

Merci à vous deux vous m'avez sauvé la vie !

Je suis en déplacement et j'en avais besoin tout de suite.