刚在群中讨论的这个问题如火如荼。之前从来没有用过acad的事件，感觉突然闯进了一个陌生的地方，费了好大的劲总算弄懂了一点点，暂时不用，可能以后要用，先记下来。

    EndCommand 在命令执行完成后立即被触发。

    代码如下、VBA的：

Private Sub AcadDocument_EndCommand(ByVal CommandName As String)
If CommandName = "LINE" Then
MsgBox "执行完了line命令"
End If
     ' MsgBox CommandName

End Sub
Public Sub CtrCommandLine()
    ThisDrawing.SendCommand "_Line 0,0,0 100,100,0 "

End Sub

对于上面，如果不知道是什么命令，可以用MsgBox CommandName显示。