剛在群中討論的這個(gè)問題如火如荼。之前從來沒有用過acad的事件，感覺突然闖進(jìn)了一個(gè)陌生的地方，費(fèi)了好大的勁總算弄懂了一點(diǎn)點(diǎn)，暫時(shí)不用，可能以后要用，先記下來。

    EndCommand 在命令執(zhí)行完成后立即被觸發(fā)。

    代碼如下、VBA的：

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

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

End Sub

對(duì)于上面，如果不知道是什么命令，可以用MsgBox CommandName顯示。