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)
Code:
(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)
)