liste des blocks

[capde06]

je n'arrive pas faire la difference entre les block et les references externe

 

voila ma creation de liste

 

(setq lb nil

lb (list)

sel nil

) ;_ Fin de setq

 

(setq lb (cons (cdr (assoc 2 (tblnext "BLOCK" T))) lb))

 

(while (setq X (cdr (assoc 2 (tblnext "BLOCK"))))

(progn

(if(/= (vl-string-search "*" x) 0)

(setq lb (cons X lb))

)

 

)

je filtre les blocks sans nom,

mais je narrive a creer une liste que de block ou que de xref

 

si vous avez la solution

davance merci

 

[(gile)]

Salut,

 

Tu peux t'inspirer de ce LISP, qui trie bloc et xrefs et renseigne sur leur état dans le dessin courant.

 

C'est le code de groupe DXF 1 qui te renseigne s'il s'agit d'une xref (son chemin), ce code n'existe pas pour les blocs.

 

Tu verras au début du LISP :

 

(if (assoc 1 bl) ;_xref

(setq xref T

x_lst (cons name x_lst)

)

(setq xref nil)

)

[Tramber]

C'est le code 70. comme tu le vois en tapant BLOC dans l'aide dans la rubrique Manuel DXF.

 

Ensuite faut faire un BIT_LST car le code 70 est complexe.

 

Facile non, d'abord (setq ent(tblnext "BLOCK")) pour faire un double test DXF 2 et DXF 70 ?

 

 

[capde06]

ok

je vous remerci tous

avec tout ca je devrais men sortir

bravo