Style de texte introuvable

[Pako]

Slt la gang !

 

J'ai un dessin dans lequel je veux supprimer un style de texte. Malheureusement je n'arrive pas à trouver le texte qui utilise ce style. J'ai utilisé la commande _filter, mais rien trouvé. Je crois que ce style est donc utilisé dans un attribut. J'ai pensé d'utiliser les code DXF dans VBA par une sélection, mais connaissez vous une autre méthode pour y arriver.

 

Comment faire !

 

Merci !

[CDL]

Tu as exporté ton fichier au format DXF et fait une recherche dans le blocnote ?

(pour localiser l'entité)

Parfois je fait WBLOC, mais si ça marche, je perds d’autres infos !

Un DXF V12. (très destructeur)

Pas mieux !

 

[Patrick_35]

Salut

 

tu tapes directement sur ta ligne de commande

 

(setq sel (ssget "x" (list (cons 7 "STYLE DU TEXTE"))))
(command "_erase" sel "")

 

voilà, tout ce qui auront le style de texte seront supprimés

 

Maintenant, si tu veux localiser où se trouve celui qui utilise ce style (sans faire le _erase précédemment cité), tu fais toujours sur ta ligne de commande

 

(setq a (entget (ssname sel 0)))
(cdr (assoc 10 a)) --> donne les valeurs en absolues du scu de base en x,y et z

 

et pour le voir plus facilement dans ton dessin, tu dessines par exemple une ligne depuis le 0,0 vers le point d'insertion

 

(command "_line" "0,0" (cdr (assoc 10 a)) "")

 

et pour passer au suivant si tu en as d'autre

 

(setq a (entget (ssname sel 1)))

 

et si tu en as un gros paquet, autant faire un lisp avec une boucle

 

@+

[Pako]

Merci Patrick_35 !

 

Grace à toé, j'ai trouvé ! Hourra :D