Thanks Ronjonp,
But I prefer it, like this:
(defun getblocksbyname2 (bname / obj ss ss2)
(vl-load-com)
(setq ss2 (ssadd))
(if (setq ss (ssget "_X" (list (cons 0 "INSERT") (cons 2 (strcat bname ",`*U*")))))
(foreach blk (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
(setq obj (vlax-ename->vla-object blk))
(and (eq (strcase bname) (strcase (vla-get-effectivename obj))) (setq ss2 (ssadd blk ss2)))
)
)
;(sssetfirst nil ss2)
ss2
)
Because with (sssetfirst nil ss2), I can't use it in _.PSELECT from PROPERTIES.
Regards, Harrie.