(initget "1 2 3")

544551616

(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无法实现。

e2002

仔细观察AutoCAD的内部命令的命令提示行写法，能总结处以下规则：

命令提示字符串的关键字分隔标准写法：

1. 关键字使用"[]"包括起来，每个关键字之间用 "/" 分隔。

2. 关键字默认为英语单词中的大写字符（一个，或者连续的两个...n个）。

3. "()"内的大写关键字符(串）优先级更高。
例如：Command:Specify a key char[Alpha(1)/Bravo(2)/Charlie(3)/Delta(4)]: <1>
这时 initget 中的关键字定义是 "1 2 3 4 ",而不是"Alpha Bravo Charlie Delta"。
这一点特别适用于使用中文提示字符串的情况。

我们在编写AutoLISP程序的时候，交互设计宜使用上面的规则。

544551616

解决了
(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
)

yinchuan99001

细心，严谨，多运行，每个“()”有值返。