求助：(initget "1 2 3") 程序3无法实现？

游四方天地

(defun c:tq() (initget "1 2 3") (princ "\n选择点提取方式:") (setq key (getkword "\n1单点\\2多义线点\\3定数或定距等分线并提取\\<1>:")) (cond ((not key) (dz))    ;        ((= key "1") (dz))  ;        ((= key "2") (pl))  ;        ((= key "3") (xbr))  ;        );cond ) (defun xbr(/ os oe ss vss n d len e obj e) 1和2程序没放出来但是都可以实现，选择3的时候会出现：1单点\2多义线点\3定数或定距等分线并提取\<1>:3 nil      就是程序3无法实现。

游四方天地

解决了
(defun c:tq()
(initget "1 2 3")
(princ "\n选择点提取方式:")
(setq key (getkword "\n1单点\\2多义线点\\3定数或定距等分线\\<1>:"))
(cond ((not key) (dz))    ;
       ((= key "1") (dz))  ;
       ((= key "2") (pl))  ;
       (cond((= key "3") (xbr))  ;
)
       );cond
)