[baaba]

Скажите, есть какой то способ, с помощью регулярных выражений или какой-нибудь lisp, что бы отконвертировать значения текстовых примитивов из миллиметров в метры. У меня была съёмка в метрах. Значения высот были записаны вот так: 7.310 а я коммандой _FIND в режиме замены убрал точку. Как сделать обратно? Отсечь три разряда?

[AMDen]

https://dwg.ru/cse?q=%D1%82%D0%B5%D0...B8%D1%82%D1%8C

[baaba]

Написал такой код из своих заготовок. Вроде работает. Спасибо всем ответившим!

Код:

[Выделить все]

 ;Пересчёт значений текстовых полей из мм в метры
(defun rescaletometres (ss / val inent cnt)
	(setq cnt 0)
	(while (setq inent (entget (ssname ss cnt)))
		(progn
			(entmod (subst (cons 1 (rtos (/ (atof (cdr (setq val (assoc 1 inent)))) 1000.0) 2 3)) val inent))
			(setq cnt (1+ cnt))		
		)
	)
	(princ)
)

(defun c:txtrecalctometres () (rescaletometres (ssget)))