簡單問題望管理員幫助

yuangw1234

我这有个简单问题，但是困扰我很久，因为以前觉得无所谓，现在发现不问不行，请管理员帮忙。就是用 get string 的方法怎么可以设定空格键表示我输入完成（默认为ENTER键），目前敲空格键光标一直向后移，而不是表示我输入完成。

因为我现在有输入30多次的可能，如果用空格键代表我输入完成会比回车键快得多

程式如下，请帮忙修红色程式处(我想是这里有问题），谢谢!

Public Sub zk()                        '手动输入只要开的图层
On Error Resume Next
Dim tuteng As String
tuteng = ThisDrawing.Utility.GetString(True, "Please input the layer you want it on  :")
Dim i1 As Integer
For i1 = 0 To ThisDrawing.Layers.Count - 1
Dim Alllayer As AcadLayer
   Set Alllayer = ThisDrawing.Layers.Item(i1)
   Alllayer.LayerOn = False
   Alllayer.Freeze = True
Next
Dim zk As AcadLayer
Set zk = ThisDrawing.Layers(tuteng)
zk.LayerOn = True
zk.Freeze = False
ThisDrawing.Regen True
End Sub

mccad

[WEB]/object/acad2004/idh_getstring.htm[/WEB]

yuangw1234

谢谢管理员，我的AUTOCAD2005是中文版的，打开帮助时，大标题是中文，可是到了一些解释又是英文，管理员有没有办法，象你弄上来的全是中文一看就明白