Message 1 of 1
on error resume advice

Not applicable
06-20-2002
01:32 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
I have this code but don't understand why it won't work:
Dim ABlock As AcadBlock
On Error Resume Next
Set ABlock = Database.Blocks(Name)
If Err Then
Err.Clear
Exit Sub
End If
When the block I'm searching for "Name" isn't present I get a "Key Not
Found" error.
Dim ABlock As AcadBlock
On Error Resume Next
Set ABlock = Database.Blocks(Name)
If Err Then
Err.Clear
Exit Sub
End If
When the block I'm searching for "Name" isn't present I get a "Key Not
Found" error.