(DEFUN C:ttt()
(setq kt -100)
(while (< kt 0)
(setq en nil)
(setq st1 (car (entsel "\nChon so: "))) ;;Lay ma doi tuong
(setq st1 (entget st1)) ;;hien thi record doi tuong
(setq st (cdr (assoc 1 st1))) ;;Lay noi dung text:ma DXF=1
(setq a1 (atof st))
(print a1)
(SETQ KQ (* 0.3 (+ a1 0.4)))
(PRINT KQ)
(setq dtl KQ)
(setq en (car (entsel "Thay cho: ")))
(setq elst (entget en))
(setq elst (subst (cons 1 (strcat (rtos dtl 2 2))) (assoc 1 elst) elst))
(setq elst (append elst '((62 . 3))))
(print elst)
(entmod elst)
)
)