刚在群中讨论的这个问题如火如荼。之前从来没有用过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显示。