之前的方法見：http://www.bonplug.cn/n/4666.html利用了兩個事件，BeginCommand和EndCommand，代碼多且也會出現很多問題，現在有個新的思路：禁止在某圖層中寫入圖元，那只要在BeginCommand中判斷：當前圖層是否是某圖層，如果是，就取消剛打的命令就OK了。在這里就用SendKeys函數來發送ESC到CAD來中斷命令。見下面代碼：

Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)
Dim layer As AcadLayer
Set layer = ThisDrawing.Layers("TK")

If ThisDrawing.ActiveLayer Is layer Then
    SendKeys "{ESC}" & "{ESC}", True
End If

End Sub

比上次那個簡單多啦。