baizhan 发表于 2008-12-19 10:13:00

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

<p>让程序有多个模式可以选择:</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 例如CAD的倒圆角,输入命令后有个 "" 这样的的选项</p><p>请问这样的程序要怎么写的?</p><p>谢过.</p>

caoyin 发表于 2008-12-19 10:42:00

<p>(initget "Set SElect eXit")</p><p>(setq p (getpoint "\n指定点或 [设置(S)/选择(SE)/退出(X)]: "))</p><p>(cond</p><p>&nbsp; ((vl-consp p)(alert "你拾取了一个点。"))</p><p>&nbsp; ((= p "Set")(alert "你选择了“设置”选项。"))</p><p>&nbsp; ((= p "SElect")(alert "你选择了“选择”选项。"))</p><p>&nbsp; ((= p "eXit")(alert "你选择了“退出”选项。"))</p><p>)</p>
页: [1]
查看完整版本: 让程序有多个模式可以选择