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

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ự!
**Bây giờ áp dụng dòng nhập chuổi đế nhập độ lớn và nội dung dòng text nhé:

(setq dl (getstring "\nDo lon:"))
(setq nd (getstring 5"\nNoi dung:"))

Bạn để ý nhé:
+Dòng hỏi độ lớn không có số 5 vì độ lớn không cần nhập khoảng cách.
+Dòng hỏi nội dung có số 5 vì nội dung có thể có chứa khoảng cách.

(defun c:doanthang ()
(setq a (getpoint "\nChon diem: "))
(setq b (getpoint a"\nChon diem: "))
(command ".line" a b "")
(setq dt (getstring "\nDo lon:"))
(setq nd (getstring 5"\nNoi dung:"))
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))
(command "-style" "tlkt" "VNI-HELVE" "0" "1" "0" "n" "n")
(command ".TEXT" "m" c dt 0 nd)
(princ)
)

Tới bây giờ nếu đã nắm được hết những điều mình đã viết trên thì bạn có thể viết được khối thứ rồi đấy. Cứ ngồi suy nghĩ và thử viết vài đoạn xem. Khi mà chạy cái lisp do chính mình viết thì cảm giác sướng ghê lắm cứ thử xem!

*Mình ra cái đề bài để chủ nhật bạn viết thử nhé, thứ 2 mình sẽ có đáp án:
-Đề: hỏi chọn 2 điểm, hỏi độ lớn, viết ra tại điểm thứ 2 dòng text có độ lớn vừa nhập, nội dung là giá trị khoảng cách hai điểm.
-Gợi ý:
+Dùng hàm distance để lấy khoảng cách giữa 2 điểm.