Làm tròn số trong cad

(defun C:TAO (/ ss sslen n ma1 ma3 len2 m dtgcu somoi ma2)

(setvar "dimzin" 0)

(command ".undo" "begin")

(while (= ss nil)

(progn

(setq ss (ssget '((-4 . "<OR")(0 . "TEXT")(0 . "MTEXT")(0 . "DIMENSION")(-4 . "OR>"))))

))

(setq sslen (sslength ss))

(setq m (getint "Nhap vao so le sau dau thap phan: "))

(setq n 0)

(while (< n sslen)

(progn

(setq ma1 (cdr (assoc 1 (entget (ssname ss n)))))

(setq ma2 (atof ma1))

(if (numberp(read ma1))

(progn

(setq ma1 (rtos ma2 2 6))

(setq sn (fix ma2))

(setq len2 (strlen (rtos sn 2 0 )))

(setq ma3 (substr ma1 1 (+ len2 1 m)))

(setq dtgcu (entget (ssname ss n)))

(setq somoi (subst (cons 1 ma3) (assoc 1 dtgcu) dtgcu))

(entmod somoi)

(entupd (ssname ss n))

));if

(setq n (1+ n))

))

(command ".undo" "end")

(princ));defun close

Nguồn bài viết :
https://www.cadviet.com/forum/topic/23382-l%C3%A0m-tr%C3%B2n-s%E1%BB%91-trong-cad/