Traduction auto de prompt d\'attributs

[Netik]

Bonjour,

je dispose d'une bibliotheque de symboles avec attributs assez volumineuse.

Actuellement, elle n'est disponible qu'en francais. J'aimerais traduire tous les textes d'invite des attributs dans d'autres langues, notamment en anglais.

Y-a-t'il une routine en lisp ou VBA qui existe pour réaliser ce travail sur tous les symboles ?

Il faut savoir que chaque symbole est un fichier séparé et qu'ils se trouvent tous dans le même répertoire (au total +/- 500 fichiers).

Merci pour vos réponses

Janos Netik

http://www.netik.name

 

[Tramber]

Les attributs sont donc bien libres (non enfermés dans un "sous-bloc") dans leurs fichiers respectifs.

 

Auquel cas, le programme ne sera pas difficile à élaborer.

Il faudra faire tourner ce prog une fois dans chaque fichier par l'intermédiaire d'un script, avec l'outil d'Eric, par exemple.

 

Mais, dois-tu procéder en 2 temps, à savoir :

1. dresser la liste des prompts dans un tableur

2. compléter le tableur et ré-injecter.

 

Question importante :

Les étiquettes portent-elles toujours le même nom ou pas du tout ?

Y-a-t-il un nombre stable d'attribut par fichier bloc ?

[Tramber]

Voici un code qui va modifier l'étiquette REF

(defun changetiq (nouveletiq / ss en ed);(setq nouveletiq "my translation")
(setq ss(ssget "_x" '((0 . "ATTDEF")(2 . "REF") )) )
 (if(=(sslength ss)1)
  (progn
    (setq en(ssname ss 0))
    (setq ed (entget en))
    (setq ed   (subst  (cons 3 nouveletiq)    (assoc 3 ed)   ed ) )
    (entmod ed)
    )
  )
 )

 

Il suffit de faire tourner un script en envoyant l'instruction

 

(changetiq "my translation")

 

dans chaque fichier

 

enregistrer ce lisp le "charger au démarrage" dans la commande _APPLOAD

 

et faire tourner le script (l'instruction) grâce au superautoscript d'Eric.

 

[Edité le 29/4/2006 par Tramber]

[Netik]

Les attributs sont libres (non enfermés dans un "sous-bloc") dans leurs fichiers respectifs.

 

 

Les étiquettes portent le même nom par famille de symboles et il doit y avoir a vue de nez environ une vingtaine de familles avec du texte récurrent dans toutes les familles.

Par contre, le nombre de tag par symboles est souvent de l'ordre de 10 mais peut aller jusqu'à 40 pour les symboles complexes

Mieux que des mots, voici un extrait d'un symbole représentatif :

Le symbole RELAIS.dwg

Tag Prompt

DESIGNATION Nom

LIEU Lieu

1 Bobine haut

2 Bobine bas

TYPE Type

FONCTION1 Texte fonction 1

FONCTION2 Texte fonction 2

...

FONCTION6 Texte fonction 6

[Netik]

Merci pour ta réponse, je vais la tester ce soir.

Bonne soirée

Janos

 

[Tramber]

Il faut alors changer le code.

 

(defun changetiq2(nom nouveletiq / ss en ed);(setq nouveletiq "my translation")
(setq ss(ssget "_x" '((0 . "ATTDEF")(2 . nom) )) )
 (if(=(sslength ss)1)
  (progn
    (setq en(ssname ss 0))
    (setq ed (entget en))
    (setq ed   (subst  (cons 3 nouveletiq)    (assoc 3 ed)   ed ) )
    (entmod ed)
    )
  )
 )

(changetiq2 "DEF" "my translation")

(changetiq2 "PROX" "24 dollars")

afin de pouvoir traiter plusieurs attribut.

 

Mais 2 façon de faire :

1. un lisp + évoluer pour parcourir la base

2. un script en 2 temps

 

Mais connais-tu les tableurs (Excel) à bon niveau et les scripts ?