Select one regular block in only one layout

[Gorra]

I feel absurd asking, but I can't seem to get this. I need to select one basic block in a layout as part of a LISP. There is one instance of the block in each layout. I've tried many variations of 

(if (setq ss (ssget "_X" '((0 . "INSERT") (2 . "Title Block - To Sheet # anno") (66 . 1))))

  (repeat (1+ (sslength ss))

(setq AdjBlk (ssname ss 0))

  )

)

or the simpler

(setq insert_sset (ssget "_X" '((0 . "INSERT") (66 . 1) (2 . "Title Block - To Sheet # anno")))) 

(setq AdjBlk insert_sset)

or the more complicated

(if (setq insert_sset (ssget "_X" (list (cons 410 LytLbl) '(0 . "INSERT")))) 

    (vl-remove-if '(lambda (insert) (/= (strcase "Title Block - To Sheet # anno") (strcase (vla-get-effectivename insert))))

(mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex insert_sset))))

    )

)

but all I get is a nil value for AdjBlk

If anyone could point out what's probably obvious, I'd appreciate it.

Thanks,

Gorra

Edited to add:

I think I've figured out the problem, the selection is making a selection set, and I've been trying to work with it using list commands.

[paullimapa · Accepted solution]

The # symbol in the block name is throwing lisp off...try this:

(setq insert_sset (ssget "_X" '((0 . "INSERT") (66 . 1) (2 . "Title Block - To Sheet `# anno")))))

[Sea-Haven]

You can also add "look in current layout" by using (cons 410  (getvar 'ctab)) in conjunction with other ssget filters.

[komondormrex]

@Gorra 

check it vlaxed, 

(setq target_block nil)
(vlax-map-collection (vla-get-block (vla-get-activelayout (vla-get-activedocument (vlax-get-acad-object))))
    '(lambda (object) (if (and (= "AcDbBlockReference" (vla-get-objectname object)) 
                 (= "Title Block - To Sheet # anno" (vla-get-effectivename object))
              )
              (setq target_block object)
            )
   )
)
(print target_block)

[Gorra]

That was indeed part of the problem, thanks

[paullimapa]

you are welcome...cheers!!!

[Gorra]

Oh that's what the 410 is for. Thanks

[Gorra]

Thanks for the method, just need to review it when I have more brain than none

[paullimapa]

@komondormrex 

FYI: there is a typo with this:

(vlax-map-collectiom

but should be:

(vlax-map-collection

[komondormrex]

corrected

[komondormrex]

@paullimapa 

no need to strcat parts of the block name, "Title Block - To Sheet `# anno" will nicely do.

[paullimapa]

thanks for the feedback. I've revised msg #2