lisp help - searching for blocks

I have a routine that inserts in a block at a certain insertion point if block A is found. I also need it to look for block B.
If Block A is found, it will insert it in at 0,0,0. If block B is also found, it will insert it in at 0,20,0. Below is a snip of the code I am using. Basically, I would need to have it search for both blocks. Both blocks would exist in drawings.

(if(tblsearch "block" TBB)
(command "-layer" "S" "notes" "" "" "-insert" "CDA_CHANGE.dwg" "16.000,2.375" "" "" "0")


TIA

Collin

 

Use the tblsearch function to asign two variables, one for each block name. Then use a (cond... statement for your insert function.

Tim

 

Do you have a sample of this?

Collin

 

(setq blk1 (tblsearch "block" "blockname1here"))
(setq blk2 (tblsearch "block" "blockname2here"))
(cond
((and blk1 blk2); if both blocks are in drawing
(insert function here)
)
((and blk1 (not blk2)); if only block 1 is in drawing
(insert function here)
)
((and (not blk1) blk2); if only block 2 is in drawing
(insert function here)
)
)

Hope that helps
Tim

 

I think that will work. Also, I wanted to add an error trap. If neither of these blocks existed, have a message show up. Can you assist on this too?

TIA
Collin

 

Just add another test in the (cond statement

((and (not blk1) (not blk2))
(alert message here)
)

No need to start a new one, just add this like the others.

Tim