Chuyển đến nội dung
Diễn đàn CADViet
ssg

Nghệ thuật lập trình Lisp

Các bài được khuyến nghị

Em thấy trong Cad hay sử dụng một loại option điều kiện [Yes/No] để xem xét việc có thực hiện một bước nào đó trong quá trình thao tác lệnh hay không. hiện em đang muốn dùng loại option điều kiện này nhưng viết mãi không được đoạn code ấy.

hic! em nhức đầu với nó quá! mọi người giúp em với, em chịu thua với nó rồi. :bigsmile:

(defun c:yn()

(initget "Y N")

(if (= (getkword "Y/N") "Y") T nil)

)

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Em thấy trong Cad hay sử dụng một loại option điều kiện [Yes/No] để xem xét việc có thực hiện một bước nào đó trong quá trình thao tác lệnh hay không. hiện em đang muốn dùng loại option điều kiện này nhưng viết mãi không được đoạn code ấy.

hic! em nhức đầu với nó quá! mọi người giúp em với, em chịu thua với nó rồi. :bigsmile:

Bạn có thể xem thêm ở đây :

Lisp offset liên tục - Bài viết số 8

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Em thấy trong Cad hay sử dụng một loại option điều kiện [Yes/No] để xem xét việc có thực hiện một bước nào đó trong quá trình thao tác lệnh hay không. hiện em đang muốn dùng loại option điều kiện này nhưng viết mãi không được đoạn code ấy.

hic! em nhức đầu với nó quá! mọi người giúp em với, em chịu thua với nó rồi. :bigsmile:

Đoạn lisp này rất hay:

(defun c:yes-no ()
 (setq	bit (cond (bit)
	  ("Yes")
    )
 )
 (initget "Yes No")
 (setq	Tmp (strcat "\nAnother Quension? [Yes/No] <" bit ">: ")
bit    (cond ((getkword Tmp))
	     (bit)
       )
 )
 (if (eq bit "Yes")
   (Print "I am Thiep")
   (Print "You are Thaistreetz")
 )
 (princ)
)

Chỉ cần đánh Y hay N

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Tuyệt quá! đúng là những gì em đang cần. cảm ơn mọi người :bigsmile:

Cũng chưa tuyệt quá đâu Thaistreetz ạ. Có 1 mã trong Express còn hay hơn.

Thiep dành mã này để đố các bạn trong CADVIET đó là mã gì?

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay

×