让程序有多个模式可以选择
 

让程序有多个模式可以选择
www.dimcax.com
让程序有多个模式可以选择
让程序有多个模式可以选择:
例如cad的倒圆角,输入命令后有个 "[r:半径]" 这样的的选项
请问这样的程序要怎么写的?
谢过.
d
(initget "set select exit")
(setq p (getpoint "\n指定点或 [设置(s)/选择(se)/退出(x)]: "))
(cond
((vl-consp p)(alert "你拾取了一个点。"))
((= p "set")(alert "你选择了“设置”选项。"))
((= p "select")(alert "你选择了“选择”选项。"))
((= p "exit")(alert "你选择了“退出”选项。"))
)
d