Problème de police

[FRAXA]

Bonjour à tous,

J'ai un petit souci de police avec de vieux plans autocad.

Les caractères suivant : °, é, à, sont remplacés respectivement par : Ý, Ú, Ó.

Pourriez-vous me dire comment remettre à jour tous les champs de texte?

Merci d'avance

[Oli553]

selectionne tous ton texte/multitexte et met les dans un nouveau style (arial, times new roman...)

[lecrabe]

 

Bonjour

 

Je pense plutôt qu'il s'agit de vieux DWGs provenant

des plate-formes MS-DOS ou UNIX d'AutoCAD ! :o

 

Pour lesquels la page code Ascii des caractères spéciaux (Accents par exemple) n'a rien à voir avec la page code choisie depuis longtemps par Microsoft pour Windows ... :(

 

Il y avait (A l'époque) une manipulation de changement de page code par un programme ARX qui permettait de retrouver avec AutoCAD Windows les caractères accentués des textes saisis dans un bon vieux AutoCAD MS-DOS.

 

Sniff, sniff, je n'ai pas sous la main mes archives préhistoriques, mais je vois bien un dinosaure comme Didier nous resortir le truc par coeur !!! :P

 

Le Decapode "oubliant"

 

[FRAXA]

J'ai bien essayé de changer le style de texte mais rien ne se passe. Si il existe un programme pour remettre à jour la page de code, je suis preneur.

 

[lecrabe]

 

ReBonjour

 

Ca y est, j'ai retrouvé mon bon vieux OOPS Magazine du 1er Trimestre 1995 qui parlait en long et en large d'AutoCAD R13 DOS 386 et Windows (Win 95 &Win NT 3.51/4.0 à l'époque) !

 

La commande que l'on tapait (En ces temps reculés) pour convertir les textes des dessins MS-DOS en textes Windows était:

 

(xload "dbtrans") pour charger l'ARX nommé "DBTRANS", si nécessaire ...

DBTRANS

DOS850

ISO8859-1

 

Le problème, c que cet ARX n'existe plus aujour'hui sur les AutoCAD modernes !

 

J'ai un DBTRANS.ARX (+ fichiers d'accompagnement) de niveau ARX 2000, donc pour AutoCAD 2000, 2000i, 2002 mais pas pour AutoCAD 2004 ou plus ... :casstet:

 

A propos qui se souvient de "mon bébé" OOPS Magazine ?!

 

Le Decapode "nostalgique"

 

 

 

[Oli553]

J'ai bien essayé de changer le style de texte mais rien ne se passe. Si il existe un programme pour remettre à jour la page de code, je suis preneur.

 

Il s'agit peut etre de "texte multiple", essaye via les propriétée... :casstet:

[rebcao]

AH ! ce bon vieux DBTRANS... ça marchait très bien...

 

Peux-tu m'envoyer un de tes fichiers à l'adresse en pied de page ? J'y jette un oeil !

 

Merci

 

Christian

[(gile)]

Salut,

 

Je te propose d'essayer avec un petit LISP, je ne suis pas sûr du résultat si les codes "ascii" ont changé.

 

Donc, dans un premier temps, copie/colle le LISP suivant sur la ligne de commande et fait "ENTER" puis sélectionne un texte incriminé.

 

((lambda (/ ent e_lst)
  (command "_.undo" "_begin")
  (setq ent   (car (entsel))
 e_lst (entget ent)
 c_lst (vl-string->list (cdr (assoc 1 e_lst)))
  )
  (foreach pair '((224 211) (233 218) (176 221))
    (setq c_lst (subst (car pair) (cadr pair) c_lst))
  )
  (setq e_lst (subst (cons 1 (vl-list->string c_lst)) (assoc 1 e_lst) e_lst))	 
  (entmod e_lst)
  (command "_.undo" "_end")
  (princ)
)
) 

 

Si le résultat n'est pas celui espéré, tu peux faire "Annuler", sinon tu peux refaire la même opération avec le code suivant pour modifier en une seule fois tous les textes sur les calque non-vérouillés.

 

((lambda (/ ss ent e_lst)
  (command "_.undo" "_begin")
  (setq ss (ssget "_X" '((0 . "*TEXT"))))
  (repeat (setq n (sslength ss))
    (setq ent	 (ssname ss (setq n (1- n)))
   e_lst (entget ent)
   c_lst (vl-string->list (cdr (assoc 1 e_lst)))
    )
    (foreach pair '((224 211) (233 218) (176 221))
      (setq c_lst (subst (car pair) (cadr pair) c_lst))
    )
    (setq e_lst (subst	(cons 1 (vl-list->string c_lst))
		(assoc 1 e_lst)
		e_lst
	 )
    )
    (entmod e_lst)
  )
  (command "_.undo" "_end")
  (princ)
)
) 

 

PS: les LISP ci dessus ne corrigent que Ý, Ú et Ó, si ça marche et que tu as d'autres caractères à modifier signale moi les.

[didier]

coucou,

 

je profite de l'absence des gardiens de JurassicPark,

pour venir répondre, hihihihi

 

effectivement le DBTRANS est la panacée,

 

en son absence, je crois avoir déjà testé la command "FIND"

il suffit de copiercoller le caractère qui va pas,

de lancer FIND et le remplacement sera effectué...

s'il existe une police se terminant par le chiffre 8,

c'est une vieille version retravaillée pour les accents,

pas les accents marseillais ou alsacien,

même si c'est aigu ce n'est pas grave...

 

amicalement

 

[bonuscad]

Peut être une solution ICI ?

 

Jamais eu l'occasion de l'utiliser ! Quand j'ai besoin j'utilise DBTRANS sous une 2002.

[FRAXA]

Merci à tous mais dans l'urgence j'ai modifié tous les textes, un par un.

Je garde sous la main les lisp et dès que je retrouve de " vieux plans" je les essaierai et je vous ferai par de mes commentaires.