[Nhờ chỉnh sửa] Điền thông số có 2 chữ số sau dấu phẩy (Lisp tính diện tích)

[bach1212 4]

Nhờ các bạn chỉ giúp mình cách làm cho kết quả điền ra luôn là số có 2 chữ số sau dấu phẩy

Hiện tại, nếu kết quả mà chẵn: VD: 90.00 thì chỉ nhận được: 90

(defun c:edt()
  (if (= tl nil) (progn
    (setq tl (getreal "\nDrawing scale<1/> : "))
    (setq ntl tl)
    (setq tl2 (* ntl ntl))
    )
  )
  (setq dtl 0)
  (setq ss (ssadd))
  (setq oslast (getvar "OSMODE"))
  (command "osnap" "")
  (print)
  (print)
  (setq pt1 (getpoint "\nChon mot diem trong vung dien tich can tinh: "))
  (while (/= pt1 nil)
    (command "-boundary" pt1 "")
    (setq et (entlast))
    (ssadd et ss)
    (command "area" "e" "last")
    (setq vsize ( /(getvar "VIEWSIZE") 3 ))
    (command "hatch" "ANSI31" vsize "0" "last" "")
    (setq et (entlast))
    (ssadd et ss)
    (setq dtcon (getvar "AREA"))
    (setq dtl (+ dtcon dtl))
    (print)
    (print)
    (setq pt1 (getpoint "\nChon mot diem trong vung dien tich tiep theo : "))
  )
  (command "setvar" "OSMODE" oslast)
  (command "erase" ss "")
  (setq ss nil)
  (command "redraw" )
  (setq dtl (* dtl tl2))
  (print dtl)
  (setq elst (entget (car (entsel "Thay cho so: "))))
  (setq elst (subst (cons 1 (rtos dtl 2 2)) (assoc 1 elst) elst))
  (entmod elst)
(command "setvar" "OSMODE" 15359)

http://www.cadviet.com/upfiles/3/40304_edt.lsp

[Doan Van Ha 3.200]

Thêm dòng này vào đầu lisp:

(setvar "DIMZIN" 0)