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

dxhy

我在程序里用了

i = ThisDrawing.Utility.GetInteger("选择地形图所在的文件夹1)当前打开图形所在的文件夹;(2)选择文件夹:  <1>")

到这一步时，命令行显示    选择地形图所在的文件夹1)当前打开图形所在的文件夹;(2)选择文件夹:  <1>

此时直接按回车键，如何让i=1？就是说默认选择第一项？

dxhy

终于弄明白怎么弄了！下面是源码，请大家参考！

On Error GoTo Err_Control

Err_Control:
   Select Case Err.Number
     Case -2147352567
     '按了取消键或其它透明命令
         Err.Clear
         Exit Sub

     Case -2147467259
     '右键单击或回车或空格
       Err.Clear
       i=1

  End Select

dxhy

Number值不大正确，大家自己验证吧！