Hướng dẩn viết lisp bài 10:

Bạn nên theo dỏi theo tên bài viết tăng từ nhỏ tới lớn thì mới đúng trình tự!
*Đáp án bài trước đây:

(defun c:doanthang ()
(setq a (getpoint "\nChon diem: "))
(setq b (getpoint a"\nChon diem: "))
(setq dt (getstring "\nDo lon:"))
(setq nd (distance a b))
(command "-style" "tlkt" "VNI-HELVE" "0" "1" "0" "n" "n")
(command ".TEXT" "m" b dt 0 nd)
(princ)
)

-Bạn chạy thử sẽ thấy 1 vấn đề to đùng thế này: Cái dòng text khoảng cách này sau dấu phẩy là 1 lô xích sông rất nhiều số lẻ nhưng mình lại không thích thế chỉ mún sau dấy phẩy là 3 số lẻ thôi thì làm nào ??????

(defun c:doanthang ()
(setq a (getpoint "\nChon diem: "))
(setq b (getpoint a"\nChon diem: "))
(setq dt (getstring "\nDo lon:"))
(setq nd (distance a b))
(setq ndlc (rtos nd 2 3))
(command "-style" "tlkt" "VNI-HELVE" "0" "1" "0" "n" "n")
(command ".TEXT" "m" b dt 0 ndlc)
(princ)
)

-Giới thiệu bạn 1 hàm quyết định số lẻ sau dấu phẩy nhé: Hàm rtos cú pháp như sau.
(setq ndlc (rtos nd 2 3))
Trong đó số 3 là số lẻ sau dấu phẩy.
-Thêm dòng này vào là kết quả ưng ý ngay: