请问autolisp语言询问yes or no的语句是什么？

jathney

要做一个零件的参数化二次开发，要询问一下用户零件上是否含有键槽，应该怎么表达？
(steq answer(get??……这样对吗，对的话get后面应该加什么呢？
求指教~谢谢！


该贴已经同步到 jathney的微博

edata

Command: (initget 1 "Yes No")

nil

Command: (setq x (getkword "Are you sure? (Yes or No) "))

Are you sure? (Yes or No) yes

"Yes"

jathney

edata 发表于 2014-6-18 16:57
Command: (initget 1 "Yes No")

nil

可是我两个答案要执行不同的程序，这个往下该用什么语句呢？
用if语句吗？

edata

jathney 发表于 2014-6-21 16:25
可是我两个答案要执行不同的程序，这个往下该用什么语句呢？
用if语句吗？

1. (initget 1 "Yes No")
   
2. (setq x (getkword "Are you sure? (Yes or No) "))
   
3. (if(= x  "Yes")
   
4. (progn(princ "yes function"))
   
5. (progn(princ "no function")))

(initget 1 "Yes No")<br /> (setq x (getkword "Are you sure? (Yes or No) "))<br /> (if(= x  "Yes")<br /> (progn(princ "yes function"))<br /> (progn(princ "no function")))

jathney

edata 发表于 2014-6-21 16:55

灰常感谢~~~！！！