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

baizhan

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

       例如CAD的倒圆角,输入命令后有个 "[R:半径]" 这样的的选项

请问这样的程序要怎么写的?

谢过.

caoyin

(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 "你选择了“退出”选项。"))

)