之前的方法見：http://www.66xx77.com/n/4666.html利用了兩個(gè)事件，BeginCommand和EndCommand，代碼多且也會(huì)出現(xiàn)很多問題，現(xiàn)在有個(gè)新的思路：禁止在某圖層中寫入圖元，那只要在BeginCommand中判斷：當(dāng)前圖層是否是某圖層，如果是，就取消剛打的命令就OK了。在這里就用SendKeys函數(shù)來發(fā)送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

比上次那個(gè)簡(jiǎn)單多啦。