[Hỏi] Cách sử dụng Initget và Getkword

[Danh Cong 422]

Mình có đoạn code như sau:

(defun c:ABC ()  (or name (setq name "Con meo"))
  (initget 128 "Con meo/Con chuot")
  (setq name (cond ((getkword (strcat "\nBan thich con nao : [Con meo/Con chuot] <" name ">")))(name)))
  (princ))

Mình nhận thấy thấy hàm "Initget" không chấp nhận với "Con meo" , do nó có chứa dấu cách.

Tức là phải thay "Con meo" = "CON-MEO" , "Con chuot" = "CON_CHUOT" thì lisp mới chạy được.

Vậy các bác cho hỏi có cách nào sử dụng dấu cách,  sử dụng chữ thường với trường hợp ở trên không ạ. Em xin cảm ơn :)))

 

[Biet ve CAD 258]

Hỏi khó vãi ^^

[Bee 154]

4 giờ trước, Danh Cong đã nói:

Mình có đoạn code như sau:

(defun c:ABC ()  (or name (setq name "Con meo"))
  (initget 128 "Con meo/Con chuot")
  (setq name (cond ((getkword (strcat "\nBan thich con nao : [Con meo/Con chuot] <" name ">")))(name)))
  (princ))

Mình nhận thấy thấy hàm "Initget" không chấp nhận với "Con meo" , do nó có chứa dấu cách.

Tức là phải thay "Con meo" = "CON-MEO" , "Con chuot" = "CON_CHUOT" thì lisp mới chạy được.

Vậy các bác cho hỏi có cách nào sử dụng dấu cách,  sử dụng chữ thường với trường hợp ở trên không ạ. Em xin cảm ơn :)))

 

He he

Trường hợp này cho chọn chữ cái đầu thôi: M hoặc C

không phải gõ dài dòng con mèo với con chuột.

^_^

[Doan Van Ha 3.202]

Help của Initget nói rất đầy đủ rồi Danh Cong, trong phần "Keyword Specifications" còn giải thích về ký tự trống.