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