Comment insérer un point dans plusieures chaines de caractères

[zemanel]

Bonjour,

J'ai des centaines de chaines de texte similaires sur un dessin, elles ont toutes une partie numérique différente.
J'aimerais insérer un point (ou un espace) sur toutes ces chaines entre le 6ème et le 7ème caractère.

EXEMPLE :
R=2141400020, devient R=2141.400020 ou alors R=2141 400020
Est’ il possible de faire ça avec la boite de dialogue rechercher/remplacer en utilisant des caractères génériques ?
Avez-vous d'autres suggestions ?
Dans l’attente de votre aide
Cordialement
zemanel

[Bruno.Valsecchi]

Bonjour,

Si tu as une version pleine (pas une LT), tu peux tenter ce code lisp. Il a été écrit rapidement et se base sur la strutucture décrite à savoir toujour le même nombre de décimales (ici 6)

(defun c:test ( / js n dxf_ent val_txt new_value)
	(setq js (ssget '((0 . "*TEXT"))))
	(cond
		(js
			(repeat (setq n (sslength js))
				(setq
					dxf_ent (entget (ssname js (setq n (1- n))))
					val_txt (cdr (assoc 1 dxf_ent))
					new_value (strcat (substr val_txt 1 (- (strlen val_txt) 6)) "." (substr val_txt (- (strlen val_txt) 5)))
				)
				(entmod (subst (cons 1 new_value ) (assoc 1 dxf_ent) dxf_ent))
			)
		)
	)
	(prin1)
)