Topic: Divide number in text by 25.4 (to metric)?

[Biscuits]

I have a large drawing, which contains dims that were exploded in the past by some highly intelligent life form. (management ?).
I have to convert this drawing from metric to inches with 3 decimal places. I’m looking for a routine that would let me:
1.   Select the text in these exploded dims
2.   Divide the current value by 25.4
3.   Replace the old value with the new
This does not have to be a global thing. I prefer single selection.
Any help would be greatly appreciated. Using ACAD2002 with Windows XP Professional

Many thanks

[Jürg Menzi]

Does this work for you?

Code: [Select]

(defun C:Dec2Inch ( / CurSet NewStr OldStr TxtObj)
 (vl-load-com)
 (if (setq CurSet (ssget "_:S:E:L" '((0 . "MTEXT"))))
  (progn
   (setq TxtObj (vlax-ename->vla-object (ssname CurSet 0))
         OldStr (vla-get-TextString TxtObj)
         NewStr (rtos (/ (atof OldStr) 25.4) 2 3)
   )
   (vla-put-TextString TxtObj NewStr)
  )
 )
 (princ)
)


[Andrea]

dimension same layer as text ?
same color as text ?
same size as text ?

you can use filter...

[Biscuits]

Jurg had the perfect routine.

Thank you very much (Swiss quality strikes again)