Topic: How to search for a block name with DBX

[Coder]

Hello guys ,

I am trying to modify a specific block name in a bunch of drawings with DBX , everything goes OK but I would like to search for the Block name before running the codes on drawings that may do not have that Block and this would be time consuming.

I tried tblsearch function and it did not return nil when block not found !

Code - Auto/Visual Lisp: [Select]

1. (vl-catch-all-apply 'tblsearch (list "BLOCK" "My Block"))
2.  

I also tried this .

Code - Auto/Visual Lisp: [Select]

1. (vl-catch-all-apply 'vla-item (list (vla-get-blocks dbx) "My Block"))
2.  

and it shows that block not found and I am sure the block is existed !

Anyone has any better way ?

Thanks in advance.

[Lee Mac]

You will need to use something like this:

Code - Auto/Visual Lisp: [Select]

1. (defun item-p ( col itm )
2.     (not (vl-catch-all-error-p (vl-catch-all-apply 'vla-item (list col itm))))
3. )

Code - Auto/Visual Lisp: [Select]

1. (if (item-p (vla-get-blocks dbx) "YourBlock")
2.     ...
3. )

Here is an example in working code: Delete Blocks.

[Coder]

Solved, Thank you Lee 

[Lee Mac]

You're most welcome Coder.