Aller au contenu

Transformer une Définition d'Attribut en texte


barbichette

Messages recommandés

Bonjour,

 

J'ai dans le dessin que j'ai récupéré, des définitions d'attribut.

J'aimerai bien transformer ces définitions en Texte simple (le texte prenant la valeur de l'étiquette)

 

J'ai testé les différentes option du menu Express Tools en rapport avec le texte, mais aucune ne semble fonctionner..

en ce sens que la définition d'attribut reste une définition d'attribut

 

Merci pour votre aide.

***********************

Rien ne sert de courrir, il faut partir à point.

Lien vers le commentaire
Partager sur d’autres sites

Quels noms ont tes blocs ?

 

Je pense à des blocs "anonymes" ou sans nom, style "$AC28...".

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites

Hello

 

OUI je suis deja TOMBE (de haut) sur des DWGs ou les gens avaient utilise des ATTDEFs

pour ecrire des textes simples !! ... Si si ca existe !!

 

Donc il te faut un Lisp pour transformer un ATTDEF en Texte simple

sous entendu , l'etiquette du ATTDEF = le futur texte simple !

 

Je farfouille car je crois avoir ce qu'il faut !?

 

Bye, lecrabe

Autodesk Expert Elite Team

Lien vers le commentaire
Partager sur d’autres sites

Bonjour,

 

Un lisp écrit à la volé à tester (juste pour me prouver si je pouvais l'écrire plus vite que le temps de recherche de lecrabe ;) )

 

(defun c:barbichette (/ ss i e )
 (if (setq ss (ssget "_X" '((0 . "ATTDEF"))))
   (repeat (setq i (sslength ss))
     (setq e (entget (ssname ss (setq i (1- i)))))
     (entmake (list '(0 . "TEXT")
                    '(100 . "AcDbEntity")
                    (assoc 67 e)
                    (assoc 410 e)
                    (assoc 8 e)
                    '(100 . "AcDbText")
                    (assoc 10 e)
                    (assoc 40 e)
                    (cons 1 (cdr (assoc 2 e)))
                    (assoc 50 e)
                    (assoc 41 e)
                    (assoc 51 e)
                    (assoc 7 e)
                    (assoc 71 e)
                    (assoc 72 e)
                    (assoc 11 e)
                    (assoc 210 e)
                    '(100 . "AcDbText")
                    (assoc 73 e)
              )
     )
     (entdel (cdr (assoc -1 e)))
   )
 )
 (princ)
)

 

Edit: !!!!!!!!!!!!!!!!!! Perdu !!!!!!!!!!!!!!!!!!!! :angry: :angry: :angry: (à 2 mn près grrr..)

 

A+

Modifié par VDH-Bruno

Apprendre => Prendre => Rendre

Lien vers le commentaire
Partager sur d’autres sites

Salut,

 

Essaye en collant ça en ligne de commande :

 

((lambda (/ ss i e l)
  (if (setq ss (ssget "_X" '((0 . "ATTDEF"))))
    (repeat (setq i (sslength ss))
      (setq e (ssname ss (setq i (1- i)))
     l (entget e)
      )
      (entmake
 (cons
   '(0 . "TEXT")
   (cons
     (cons 1 (cdr (assoc 2 l)))
     (vl-remove-if-not
       '(lambda	(p)
	  (member (car p) '(67 41 8 10 40 50 41 51 7 71 72 11 210))
	)
       l
     )
   )
 )
      )
      (entdel e)
    )
  )
  (princ)
)
)

Gilles Chanteau - gileCAD - GitHub
Développements sur mesure pour AutoCAD

Lien vers le commentaire
Partager sur d’autres sites

  • 3 semaines après...

Bonsoir à tous...

 

Petite demande au Décapode... Quels sont tes fameux sites préférés ?

 

Qu'on en profite un peu...

 

Denis...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites

  • 8 ans après...
Invité Musardier

Merci les z'amis,

Confronté depuis plusieurs semaines sur ce sujet, "transformer etiquette attribut en texte", car la valeur de l'étiquette est invisible lorque l'on attache ce fichier en xref.

Le fichier Att2text.lsp et Defatt2txt.lsp ne fonctionnant pas sous autocad 2022-24 je ne sais pourquoi.

Le copier / coller de gile et le lisp de barbichette nickel, juste à recentrer ensuite à la volée le texte en rotation et popint insertion

merci pour ces lignes

Lien vers le commentaire
Partager sur d’autres sites

Invité
Répondre à ce sujet…

×   Collé en tant que texte enrichi.   Coller en tant que texte brut à la place

  Seulement 75 émoticônes maximum sont autorisées.

×   Votre lien a été automatiquement intégré.   Afficher plutôt comme un lien

×   Votre contenu précédent a été rétabli.   Vider l’éditeur

×   Vous ne pouvez pas directement coller des images. Envoyez-les depuis votre ordinateur ou insérez-les depuis une URL.

×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité