Thứ Ba, 6 tháng 4, 2010

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

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ự!

Dòm lại cái lisp bài trên bạn sẽ thấy đoạn lặp đi lặp lại 10 lần là quá dài cần có giải pháp thích hợp hơn. Giới thiệu với bạn 1 vòng lặp đơn giản nhất: Vòng lặp Rpeat cú pháp như sau:

(repeat solan
Nội dung cần lặp lại
)
Như vậy đoạn lisp sẽ sửa lại như sau.

(defun c:tlkt ()
(setq a (getpoint "\nChon diem viet: "))
(setq b (getpoint a"\nChon diem den: "))
(setq dolon (getvar "viewsize"))
(setq dolonchu (/ dolon 30))
(setq daiab (distance a b))
(setq dodai (/ daiab 10))
(setq gocab (angle a b))
(setq c (polar a gocab dodai))
(command "-style" "tlkt" "VNI-HELVE" "0" "1" "0" "n" "n")
(command ".TEXT" "m" a dolonchu 0 "tailieukythuat.com")
(repeat 10
(command "DELAY" "5000" "")
(command ".MOVE" "last" "" a c)
)
(command "DELAY" "5000" "")
(command ".ERASE" "last" "")
(princ)
)

1 nhận xét:

  1. Chào anh Duy !
    Anh cho em hỏi xíu : ôn lại bài cũ tí xíu hi hi bài này khi chạy sao Chữ nó không hiện rõ được vậy .nó cứ mờ như đang ở chế độ select vậy , em muốn tạo 1 dòng chữ chạy suốt trên màn hình cad giống như dòng :
    " 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ự! " .
    Anh giúp em với.

    Trả lờiXóa

Khi viết nhận xét mong bạn không đứng vai trò nặc danh! Bạn có thể chọn Name/Url trong đó Url là http://duy782006.blogspot.com/ như vậy hay hơn nặc danh bạn nhé.