do loop 怎么利用按键退出啊！

hatechange

do
set text=thisdrawing.modelspace.addtext(1,1,1)
if  按esc键 then
exit do
end if
loop
大虾救命啊!!!!!!!!!!!!!!!!!!!!!!

egua

貌似不可以~

wyj7485

用API就可以

2. Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
3. Private Const VK_ESCAPE = &H1B
4. If GetAsyncKeyState(VK_ESCAPE) Then
5. Exit do
6. End If

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer Private Const VK_ESCAPE = &H1B If GetAsyncKeyState(VK_ESCAPE) Then Exit do End If

hatechange

大虾，小弟愚笨，还是有些不明。能否进一步赐教。

wyj7485

'API声明

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Const VK_ESCAPE = &H1B'按下ESC键

'放到要退出语句处

If GetAsyncKeyState(VK_ESCAPE) Then'判断是否按下ESC键
Exit do
End If
’代替语句

if  按esc键 then
exit do
end if