[求助]：[求助]：[求助]：[求助]：[求助]：[求助]：LISP中选择对象时如何实现设置功能

fish710605

LISP中选择对象时如何实现设置功能？
===================================================================================
比如倒角时的命令行提示为“选择第一条直线或 [多段线(P)/距离(D)/角度(A)/修剪(T)/方式(M)/多个(U)]:”，不需要设置时用默认值，设置时输入相应的字母，设置完后返回该提示。困惑中，请各路高手相助！不胜感激！！！
===================================================================================

zxq0220

用INITGET函数实现。
例：
......
(INITGET 9 Pline Distance Angle Trim)
(SETQ PT (GETPOINT "\n选择第一条直线或 [多段线(P)/距离(D)/角度(A)/修剪(T)]:"))
(COND
((= PT "Pline")
......
)
((= PT "Distance")
......
)
.....
)
......

fish710605

谢谢二楼的大哥！我研究一下啦~~~~