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

[TRUNGNGAMY 91]

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)

)

[Tue_NV 3.912]

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

[thiep 365]

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

[Thaistreetz 539]

Tuyệt quá! đúng là những gì em đang cần. cảm ơn mọi người :bigsmile:

[thiep 365]

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ì?