topic Re: Select one regular block in only one layout in Visual LISP, AutoLISP and General Customization Forum

Select one regular block in only one layout

Gorra — Thu, 07 Aug 2025 22:11:42 GMT

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.

Re: Select one regular block in only one layout

paullimapa — Tue, 26 Aug 2025 02:38:27 GMT

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")))))

Re: Select one regular block in only one layout

Sea-Haven — Fri, 08 Aug 2025 08:32:39 GMT

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

Re: Select one regular block in only one layout

komondormrex — Mon, 11 Aug 2025 06:06:50 GMT

@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)

Re: Select one regular block in only one layout

Gorra — Sun, 10 Aug 2025 06:37:20 GMT

That was indeed part of the problem, thanks

Re: Select one regular block in only one layout

paullimapa — Sun, 10 Aug 2025 06:39:01 GMT

you are welcome...cheers!!!

Re: Select one regular block in only one layout

Gorra — Sun, 10 Aug 2025 19:40:03 GMT

Oh that's what the 410 is for. Thanks

Re: Select one regular block in only one layout

Gorra — Sun, 10 Aug 2025 19:43:19 GMT

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

Re: Select one regular block in only one layout

paullimapa — Sun, 10 Aug 2025 19:45:12 GMT

@komondormrex

FYI: there is a typo with this:

(vlax-map-collectiom

but should be:

(vlax-map-collection

Re: Select one regular block in only one layout

komondormrex — Sun, 10 Aug 2025 20:11:39 GMT

corrected

Re: Select one regular block in only one layout

komondormrex — Mon, 25 Aug 2025 18:02:33 GMT

@paullimapa

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

Re: Select one regular block in only one layout

paullimapa — Tue, 26 Aug 2025 02:39:48 GMT

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