VBA键未找到错误

Robert Random · 发表于 2022-7-6 21:52:30

你好我将以下代码从帮助文件粘贴到新的。dvb文件并运行它。我过去工作很好。目前它给了我一个错误（如下所示）。以前它工作得很好。我重新安装了ACAD和VBA enabler。还是一样。不知道该怎么办。

提前感谢您提供的任何有益建议。

~罗伯特

copy


Sub RemoveMyLayer()
 On Error Resume Next
 '' Get the layer "MyLayer" from the Layers collection
 Dim ABCLayer As AcadLayer
 Set ABCLayer = ThisDrawing.Layers.Item("MyLayer")
 '' Check for an error, if no error occurs the layer exists
 If Err = 0 Then
   '' Delete the layer
   ABCLayer.Delete
   '' Clear the current error
   Err.Clear
   '' Get the layer again if it is found the layer could not be removed
   Set ABCLayer = ThisDrawing.Layers.Item("MyLayer")
   '' Check for error, if an error is encountered the layer was removed
   If Err <> 0 Then
     ThisDrawing.Utility.prompt "'MyLayer' was removed"
   Else
     ThisDrawing.Utility.prompt "'MyLayer' could not be removed"
   End If
 Else
   ThisDrawing.Utility.prompt "'MyLayer' does not exist"
 End If
End Sub