valeur texte

[jpeg]

bonjour,

je cherche un moyen de recupere la valeur des textes d'un calque de type

"0_lot surface" pour en faire un fichier de type blocnotes, word ou le top sur excel

je ne trouve pas de routine pour l'instant dans le forum mais je ""foirefouille""!!!!

merci pour les reponses

[lecrabe]

 

Hello

 

Une routine de (gile) & Christian REB qui me semble correspondre ...

 

 

;; http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=8760#pid33095

;; CADXP from rebcao & (gile)

 

(defun c:txt2txt(/ ss file ent cnt separ str X Y CALQ HAUT STYL)

 

(Prompt "\n\nSélectionner les Textes à extraire ... ")

 

(setq ss (ssget '((0 . "TEXT,MTEXT"))))

 

(if ss

(if

(setq file (open (getfiled "Créez ou Sélectionnez un fichier " "" "txt" 1) "w" ) )

 

(progn

(setq cnt 0

str ""

SEPAR ","

)

 

(while (setq ent (ssname ss cnt))

 

(setq str (cdr (assoc 1 (entget ent) ) )

X (rtos (nth 1 (assoc 10 (entget ent) ) ) 2 8 )

Y (rtos (nth 2 (assoc 10 (entget ent) ) ) 2 8 )

CALQ (cdr (assoc 8 (entget ent) ) )

HAUT (rtos (cdr (assoc 40 (entget ent) ) ) 2 4)

STYL (cdr (assoc 7 (entget ent) ) )

cnt (1+ cnt)

);setq

 

(write-line (strcat str separ X separ Y separ CALQ separ HAUT separ STYL ) file )

 

);while

 

(close file)

 

); progn

 

(alert "Le fichier n a pas été créé ")

 

); if FILE

 

(alert "Le dessin ne contient ni Texte ni Textmult " )

 

) ; if SS

 

(princ)

 

);defun

 

;;; ******************************************************************

 

(prompt "\nTaper TXT2TXT pour exporter les TEXTES dans un fichier TXT")

 

(princ)

 

Le Decapode

 

[Tramber]

Mais non, tout bête, tape -CALQUE puis ?

 

Copie-colle dans un fichier texte, EXcel le décomposera en colonne à l'ouverture.

[bonuscad]

Ou ceci, pour pouvoir définir le calque a récupérer plus surement sans oublier une entité.

 

Il faut juste définir l' écriture dans un fichier, ou faire un copier coller de l'écran texte d'autocad.

((lambda ( / js dxf_ent n)
(princ "\nPointer un Texte/MultiTexte/Définition d'attribut.")
(while (null (setq js (ssget "_+.:E:S" '((0 . "*TEXT,ATTDEF"))))))
(setq js
	(ssget "_X"
		(list
			(assoc 0 (setq dxf_ent (entget (ssname js 0))))
			(assoc 8 dxf_ent)
			(cons 67 (if (eq (getvar "CVPORT") 2) 0 1))
			(cons 410 (if (eq (getvar "CVPORT") 2) "Model" (getvar "CTAB")))
		)
	)
)
(princ "\nEntitées ") (princ (cdr (assoc 0 dxf_ent))) (princ " sélectionnées.")
(princ "\n** Toutes action, clavier/souris, pour continuer! **")
(grread)
(repeat (setq n (sslength js))
	(setq dxf_ent (entget (ssname js (setq n (1- n)))))
	(princ "\nValeur du texte : ") (princ (cdr (assoc 1 dxf_ent)))
)
(prin1)
))

[jpeg]

je vous remercie pour vos reponses collectives

on peut compter sur vous malgre les vacances

merci a+

[Tramber]

Sauf qu'apparemment, j'avais rien compris à la question.

 

Pas en vacances :cool:

[rebcao]

pas en vacances le Tramber ? c'est pour bientôt ?

 

Mais le Tramber a pas compris comme toujours !!!!! ;) ;) ;)

 

Christian

[lecrabe]

 

Bon Matin

 

Oh Oh ça cartonne en Alsace !!!

 

C''est le front de libération de Colmar qui attaque fort !

 

Le Decapode "qui regarde passer"

 

 

 

[Tramber]

Je vais au Danemark au mois d'Aout, ca me rafraichira les neurones....

 

(inutile de vous [re]dire que je vais à Legoland).