Problème caractère

[sechanbask]

Bonjour,

 

Je suis face à des plans réaliser sous MacOS (avec je ne sais quel logiciel).

 

[imgl]http://www.cijoint.fr/cjlink.php?file=cj201004/ciji9U4BrZ.jpg[/imgl]

 

voir le fichier .dwg et l'image .png

 

http://www.cijoint.fr/cjlink.php?file=cj201004/cijmBAQIBd.zip

 

Je voudrais faire une macro sous VBA pour corriger ce type de caractère, mais je en trouve pas la méthode si une personne pouvez le faire en lisp, je pourrais comprendre la méthode.

 

j'arrive bien à accéder à la chaine de caractrère, le debug.print me donne :

 

"Placards haut & bas avec Žtagres", mais si j'essaie :

 

j'ai tenté pour Ž

 

VBA.Replace(strTexte, "Ž", "é")

 

mais ça ne marche pas.

 

 

 

J'ai tenté pour

StrConv(strTexte, vbUnicode) ça me donne %%143

 

donc j'ai tenté

 

VBA.Replace(strTexte, "%%143", "è") ça ne marche pas non plus

 

 

 

P.S. C'est pour l'intégrer dans le futur nettoyeur.dvb

 

Merci d'avance[Edité le 1/4/2010 par sechanbask]

 

[Edité le 1/4/2010 par sechanbask]

[Patrick_35]

Salut

 

(vl-string-translate source-set dest-set str)

 

Par exemple

(vl-string-translate "abcdef" "123456" "azerty") --> "1z5rty"

 

@+

[sechanbask]

j'ai bien compris le remplacement de caractère mais le problème c'est que le programme autocad ne le reconnait pas lui même.

 

essaie par exemple de remplacer ces lettres avec la commande "rechercher et remplacer"

 

autocad ne trouve pas dans les textes le caractère : Ž

 

alors je fais comment ?

[Patrick_35]

Pour avoir la liste des codes ascii d'un texte

 

(vl-string->list (vla-get-textstring (vlax-ename->vla-object (car (entsel)))))

 

@+

[sechanbask]

ma méthode était bonne mais mal inséré dans la trop longue macro qu'est le nettoyeur...

[NanCatuun]

Bonjour,

 

j'ai exactement le même problème.

 

Des caractères "Žƒ•ˆ‰" seraient à remplacer par "éÉïêàèâ".

 

Par contre, pour moi, la commande rechercher/remplacer fonctionne, mais comme j'ai plusieurs plans avec ce problème à traiter, c'est assez fastidieux, et le problème est récurrent.

 

Auriez-vous une méthode simple ou un lisp à éditer pour remplacer automatiquement ces caractères, svp ? j'ai fait plusieurs essais, tous non concluants...

 

[Edité le 15/4/2010 par StrongBow]

[sechanbask]

je suis en train de le mettre au point dans mon nettoyeur, malheureusement ça ne ser a pas disponible avant 2 ou 3 semaines

[NanCatuun]

Je continuerai à regarder régulièrement, dans ce cas.

Merci et bon courage.

 

PS : les â sont remplacés par des ‰, au passage.

 

 

[sechanbask]

Je suis en train de faire la mise à jour de mon nettoyeur, tu pourrais lister les caractères à modifier sous forme d'un mini tableau ?

 

carcatère à remplacer par

Ž é

ƒ É

 

 

etc...

 

c'est pour que je ne fasse pas d'erreurs

 

 

Pourrais-tu également m'envoyer un plan avec tous ces caractères afin que je fasses des tests avant de valider mes modifications ?

 

merci à bientôt

[NanCatuun]

Bonjour,

 

Voilà la liste des caractères :

 

‰ â

Ž é

ƒ É

• ï

ˆ à

ê

è

™ ô

ç

¡ °

æ Ê

¿ Ø

*

 

Il en manque certainement, (caractères majuscules avec accent par exemple) mais je n'ai pas d'exemple sur mes plans.

 

Voilà le fichier avec les éléments concernés (y a des text et des textmult)

A noter que si ton nettoyeur fonctionne sur les textes à l'intérieur des blocs, ça peut être intéressant, vu que les conversions de MacOS vers dwg engendrent des blocs.

 

http://www.cijoint.fr/cjlink.php?file=cj201004/cijFmFSrJu.zip

 

En tout cas merci pour l'aide que ça pourrait m'apporter. :exclam: