关于initget的菜鸟问题，请指点！

EPISODE

(defun C:GETKEY (/ key ent)
  (initget 128 "G T B")
  (while (setq key (getkword "\nG/T/B:"))
  )
  (princ)
)
执行时，第1次没问题，随后就出现“无效的选项关键字”错误，到底错在哪儿了？[em00]

lockmyeye

大写大写，否则没意义！！！

EPISODE

lockmyeye说的没错！
可是，即便那样也不行！
原因是，对initget的机制没了解透！
帮助文件原文这样写：The control bits and keywords established by initget apply only to the next user-input function call. They are discarded after that call. The application doesn't have to call initget a second time to clear special conditions.
但是康X编著的《AutoCAD 2002/2000 Visual LISP》却漏了一句话：“They are discarded after that call.”而且后续的翻译也不完整，误死人！害死人！
现在，我弄懂了：
(defun C:GETKEY (/ key)
  (initget 1 "A B C")
  (while (setq key (getkword "\nA or B or C:"))
    (initget 1 "A B C")
  )
  (princ)
)

龙龙仔

;;這樣就可以了!
(defun C:GETKEY        (/ KEY)
  (initget 1 "A B C")
  (setq KEY (getkword "\nA or B or C:"))
  (princ)
)

EPISODE

大虾便是大虾，喜欢把复杂问题简单化！

meflying

EPISODE发表于2003-11-11 19:25:00大虾便是大虾，喜欢把复杂问题简单化！

是你自己把简单问题复杂化了，龙版主只是给指正了而已。