texte autocad vers excel

[david59]

j'ai chercher dans le forum mais j'ai pas trouve alors je vous expose mon probleme

 

-je dois exporter beaucoup detexte autocad sous excel et qu il soit modifiable sous excel bien entendu et en 1 fois si possible l'exportation

 

-j'ai essaye le copier coller mais il veut a tout prit inserer une image

[didier]

bonjour,

bienvenue,

est il possible d'en savoir plus ?

chaque texte doit aller dans une cellule ?

est ce du texte "simple" ou du "Mtexte" ?

la sélection se fait par calque ?

par type de texte ?

sont ce des attributs ?

--------------------

une solution simple en lisp,

créer un fichier avec séparateur point-virgule,

ensuite importer ce fichier dans Excel, ça se fait tout seul.

si tu veux plus complex, faudra passer par le VBA,

mais c'est parfaitement possible.

tiens nous au courant de ce que tu souhaites.

amicalement

 

 

[Invité Patrick]

Ce gratuiciel de Xanadu sert à exporter le texte d'un dessin, puis à le réimporter après traduction ou correction par exemple. Il pourra sans doute t'aider.

[david59]

Salut

 

-chaque texte dans une cellule

-texte simple

-pour 1 calque

-pas des attribut ca j'y arrive avec une macro

-type de texte pas d importance

-j'utilise autocad 14.01 et excel 200

 

-par contre pour le petit fichier de patrick c est un fichier vlx qu est que je fait avec ca

 

faut m'excuser je suis nul en vba,lisp et en anglais

on allez loin avec ca hein

 

[didier]

bien le bonjour à David59

le petit prog qui suit

va te créer un fichier .CSV

avec la sélection des textes,

tu peux sélectionner par capture/fenêtre/ou Objet par Objet

le fichier .CSV sera dans le répertoire du dessin

c'est un fichier avec un texte par ligne

donc Excel l'ouvrira en faisant une colonne,

à toi de trier,

je te laisse découvrir les joies du Lisp.

si tu veux t'y mettre, sinon on t'aidera.

 

(setq nom_fic(getvar"dwgname"))

(setq lon_nom_fic(strlen nom_fic))

(setq nom_fic (substr nom_fic 1 (- lon_nom_fic 4)))

(setq reper (getvar "dwgprefix"))

(setq fichier (strcat reper nom_fic ".csv"))

(setq f (open fichier "w"))

(setq jeu (ssget '((0 . "TEXT"))))

(setq lonjeu (sslength jeu))

(setq n 0)

(repeat lonjeu

(write-line(cdr(assoc 1(entget (ssname jeu n)))) f)

(setq n ( + 1 n))

)

(close f)

amicalement

 

[david59]

Merci didier

 

je vais essayer

 

salut a tous