dxhy 发表于 2007-10-30 07:50:00

[已解决]如何让CAD默认选择？

本帖最后由 作者 于 2007-11-2 7:43:42 编辑 <br /><br /> <p>我在程序里用了</p><p>i = ThisDrawing.Utility.GetInteger("选择地形图所在的文件夹:(1)当前打开图形所在的文件夹;(2)选择文件夹:&nbsp; &lt;1&gt;")</p><p>到这一步时，命令行显示&nbsp;&nbsp;&nbsp; 选择地形图所在的文件夹:(1)当前打开图形所在的文件夹;(2)选择文件夹:&nbsp; &lt;1&gt;</p><p>此时直接按回车键，如何让i=1？就是说默认选择第一项？</p>

dxhy 发表于 2007-11-1 07:25:00

<p><font color="#0000ff">终于弄明白怎么弄了！下面是源码，请大家参考！</font></p><p><font color="#0000ff">On</font>
                <font color="#0000ff">Error</font>
                <font color="#0000ff">GoTo</font> Err_Control<br/></p><p>Err_Control:<br/>&nbsp;&nbsp; <font color="#0000ff">Select Case</font> Err.Number<br/>&nbsp;&nbsp;&nbsp;&nbsp; <font color="#0000ff">Case</font> -2147352567<br/>&nbsp;&nbsp;&nbsp;&nbsp; <font color="#008000">'按了取消键或其它透明命令</font><br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Err.<font color="#0000ff">Clear</font><br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;E<font color="#0000ff">xit Sub</font></p><p>&nbsp;&nbsp;&nbsp;&nbsp; <font color="#0000ff">Case</font> -2147467259<br/>&nbsp;&nbsp;&nbsp;&nbsp; <font color="#008000">'右键单击或回车或空格</font><br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Err.<font color="#0000ff">Clear</font><br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">i=1</font></p><p>&nbsp; <font color="#0000ff">End <font color="#0000ff">Select</font></font></p>

dxhy 发表于 2007-11-5 17:33:00

Number值不大正确，大家自己验证吧！
页: [1]
查看完整版本: [已解决]如何让CAD默认选择？