2013-09-23 明经AutoCAD.VBA编程(45054712) 群聊记录：谁能帮忙指正一下下面这个函数

明经快报

罗哲兴 09:31:51

谁能帮忙指正一下下面这个函数

在路上26 09:33:36

动态块，用程序来做，能用vba吗？能做成属性块吗？？

明经快报

新儿 10:33:21

大家好

新儿 10:34:01

请教：我遍的程序进入死循环，如果想用esc

新儿 10:34:38

请教：我遍的程序进入死循环，如果想用esc键退出的话，怎么用程序实现？

VBA-华仔 10:36:32

处理键盘消息

[VB&.NET]ppyyff 10:37:48

加一个键盘消息判断

新儿 10:39:15

用keypress?keydown?还是keyup?

[VB&.NET]ppyyff 10:39:47

都可以吧，这个无所谓

按下的建总是要放手的

明经快报

罗哲兴 15:36:59

' 功能：判断用户是否按下某一个键
' 输入：代表键的常量（从API Viewer中获得）
' 调用：API函数GetAsyncKeyState
' 返回：如果用户按下了指定的键，返回True；否则返回False
Private Function CheckKey(lngKey As Long) As Boolean
    If GetAsyncKeyState(lngKey) Then
        CheckKey = True
    Else
        CheckKey = False
    End If
End Function

 ' 判断用户是否按下了Esc键
            If CheckKey(VK_ESCAPE) = True Then
                MsgBox "结束！ "
                Exit Sub
            End If

明经快报

[VBA/VB/C#]efan2000 22:08:06

Sub test()
    Dim mc As mcArxProject1Lib.Curve
    Set mc = New mcArxProject1Lib.Curve
    Dim v As Variant
    v = mc.getEndPoint(ThisDrawing.ModelSpace(0))
End Sub
ARX的COM调用。