yuangw1234 发表于 2006-4-21 11:25:00

簡單問題望管理員幫助

<P>我这有个简单问题，但是困扰我很久，因为以前觉得无所谓，现在发现不问不行，请管理员帮忙。就是用 get string 的方法怎么可以设定空格键表示我输入完成（默认为ENTER键），目前敲空格键光标一直向后移，而不是表示我输入完成。</P>
<P>因为我现在有输入30多次的可能，如果用空格键代表我输入完成会比回车键快得多</P>
<P>程式如下，请帮忙修红色程式处(我想是这里有问题），谢谢!</P>
<P>Public Sub zk()&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '手动输入只要开的图层<BR>On Error Resume Next<BR>Dim tuteng As String<BR><FONT color=#ee6911>tuteng = ThisDrawing.Utility.GetString(True, "Please input the layer you want&nbsp;it on&nbsp; :")<BR></FONT>Dim i1 As Integer<BR>For i1 = 0 To ThisDrawing.Layers.Count - 1<BR>Dim Alllayer As AcadLayer<BR>&nbsp;&nbsp; Set Alllayer = ThisDrawing.Layers.Item(i1)<BR>&nbsp;&nbsp; Alllayer.LayerOn = False<BR>&nbsp;&nbsp; Alllayer.Freeze = True<BR>Next<BR>Dim zk As AcadLayer<BR>Set zk = ThisDrawing.Layers(tuteng)<BR>zk.LayerOn = True<BR>zk.Freeze = False<BR>ThisDrawing.Regen True<BR>End Sub<BR></P>

mccad 发表于 2006-4-21 11:31:00

/object/acad2004/idh_getstring.htm

yuangw1234 发表于 2006-4-21 12:35:00

<P>谢谢管理员，我的AUTOCAD2005是中文版的，打开帮助时，大标题是中文，可是到了一些解释又是英文，管理员有没有办法，象你弄上来的全是中文一看就明白</P>
页: [1]
查看完整版本: 簡單問題望管理員幫助