récupération de texte, comment faire ???

[TitOoN]

Bonjour, est ce que quelqu'un sais comment on récupère en LISP le contenu texte d'un texte ligne sous AutoCAD ? Pour pouvoir le copier/coller en attribut de bloc .

 

De plus j'ai programmé en lisp une partie qui créé des attributs de bloc permettant de retourner l'aire et le périmètre d'une polyligne. Mais lors de l'extraction vers excel, celui-ci reprend les chiffres telle qu'ils sont notés sous AutoCAD, c'est à dire qu'un nombre comme 2.5 sous AutoCAD reste 2.5 sous excel. Excel ne le prend pas pour un nombre. je voudrais avoir 2,5 sous excel..comment faire ? est ce qu'un rtos peut fonctionner ?

 

cordialement..

 

TitOoN :P

[Bred]

Salut....

pour récupérer une valeur de texte : (code dxf 1)

 

 (setq ent (entsel "/n selectioner 1 texte :"))
(setq txt (cdr (assoc 1 (entget (car obj)))))

 

.... tu peux aussi réaliser des filtres de selections.... je te laisse chercher ;)

 

pour la virgule, je cherche ...

 

 

 

 

[fabcad]

Bonjour TitOoN,

J'avais fait ce lisp il y a fort longtemps :

 

(defun c:att ( / obj-txt chn obj-att att-tag att-val obj-blc blc-val)

(setq obj-txt (nentsel "\n Choisir le texte de reference : "))

(setq chn (cdr (assoc 1 (entget (car obj-txt)))))

 

(setq obj-att (nentsel "\n Choisir l'attribut à modifier : "))

(setq att-tag (cdr (assoc 2 (entget (car obj-att)))))

(setq att-val (cdr (assoc 1 (entget (car obj-att)))))

 

(alert (strcat "\nEtiquette de l'attribut : " att-tag ".\n"

"Valeur de " att-tag " : " att-val ".\n"

"Nouvelle valeur de " att-tag " : " chn "."))

 

(command "_attedit" "oui" "" att-tag att-val (car obj-att) "v" "r" chn "")

 

(entdel (car obj-txt))

)

 

Bonne Utilisation...

[(gile)]

Salut,

 

Pour la virgule, le plus simple me semble être de paramétrer Excel pour que ce soit le point le séparateur décimal. Je ne me souviens plus si on fait ça depuis Excel ou directement depuis Windows, mais cette méthode a l'avantage de pouvoir utiliser dans Excel le pavé numérique.

 

Sinon, regarde du côté de la fonction LISP vl-string-subst.

[TitOoN]

Re:

 

Merci bcp... j'ai encore une fois trouvé mon bonheur..

je ferai part du programme final.. il me reste quelque finition à apporter, notamment au niveau de l'echelle des hachures et des blocs .

 

A bientot..

 

TitOoN :)