convertir TEXTE en ATTRIBUT

[rebcao]

Bonjour à Toutes et à Tous,

 

Je n'en publie que très rarement... Voici un LISP que j'ai dû écrire rapidement pour remplacer un TEXTE par un ATTRIBUT....

 

J'avais fait une recherche dans les FORUMS mais je n'avais rien trouvé.

 

Ce programme permet de sélectionner un texte simple et de le remplacer par un ATTRIBUT... à adapter et perfectionner éventuellement...

 

 

Christian

 

 

[Edité le 20/12/2010 par rebcao]

[lili2006]

Bonjour à toutes et tous,

 

Salut Christian,

 

J'utilise de tps à autre ce lisp modifié par lovecraft me semble t-il,...

 

 ; c. 2006 Jeff Rayhorn & LukewarmCoffee.com
;routine adaptée par L.barraud le 29 10 2008


(defun C:T2A
( /
txtent ; "TEXT" entity name
txtlst ; Entity list for "txtent"
attlst ; Entity list for "ATTDEF"
)
(setq txtent nil)
(while (not txtent)
(setq txtent
(car (entsel "\n Pick TEXT to convert:"))
);end setq
(if txtent (setq txtlst (entget txtent)))
);end while

(if
(/= "TEXT" (cdr (assoc 0 txtlst))) ;test if "TEXT"
(alert "Only TEXT entities can be converted.")
(progn
(entdel txtent)
(setq txt (cdr(assoc 1 txtlst)));valeur du texte
(setq attlst
(list
'(0 . "ATTDEF")
'(100 . "AcDbEntity")
(assoc 8 txtlst)
'(100 . "AcDbText")
(assoc 10 txtlst)
(assoc 40 txtlst)
'(1 . "")
(assoc 50 txtlst)
(assoc 41 txtlst)
(assoc 51 txtlst)
(assoc 7 txtlst)
(assoc 71 txtlst)
(assoc 72 txtlst)
(assoc 11 txtlst)
(assoc 210 txtlst)
'(100 . "AcDbAttributeDefinition")
'(3 . "Prompt")
(cons 2 txt)
'(70 . 8)
);end list
);end setq
(entmake attlst)
);end progn
);end if
(princ)
);end defun

[rebcao]

Bonjour Lilian,

 

Merci pour ce source...

 

Christian

[lili2006]

Re,

 

Salut Christian,

 

Avec plaisir, ;)

[didier]

coucou

 

au risque de passer pour un mauvais coucheur,

tant pis, je pose ma question.

 

quel est l'intérêt de ce lisp ?

 

amicalement

[rebcao]

Bonjour,

 

EH ben quand tu tombes sur un ZOZO qui ne sait pas ce que c'est un BLOC et avec ATTRIBUT en plus !!!!

 

ça évite de créer de toute pièce chaque attribut...

 

 

Christian

 

 

[Edité le 22/12/2010 par rebcao]

[x_all]

Je déterre ce sujet...

parfois, j'ai l'impression qu'autocad c'est un Ephone... vous avez un besoin?

Il y a une application pour ça !

 

merci à vous deux :)