Block in SSGet

[rvtquestions]

My intention is: user prompt pick block and that would inform an ssget filter. I am aware of this line of code:

ssget "_x" '((0 . "INSERT")(2 . "Blockname")))

however from my use of it, you have to manually type in the blockname and cannot reference a variable for example

(setq pt(cadr(entsel"\nSelect Block:")))
(setq e1(ssget pt))
(setq e2 (entget (ssname e1 0)))
(setq bname (cdr(assoc 2 e2)))

ssget "_x" '((0 . "INSERT")(2 . bname)))

Am I missing something fundamentally simple or can this not be done? I keep resulting in an error. Any help would be appreciated. Thank you!

[ВeekeeCZ · Accepted solution]

' will not evaluate an expression. So use (list) and (cons) functions...

(ssget "_x" (list '(0 . "INSERT") (cons 2 bname)))

Added: actually if you scroll down the page you can find THIS THREAD where is this approach used many times....

[Shneuph]

Yes. It's the '( again.

(ssget "_x" (list '(0 . "INSERT") (cons 2 bname)))

http://www.lee-mac.com/quote.html

[ВeekeeCZ]

BTW Seeing the rest of the code... (ssget pt) You've got a kudos for that... I never know that's possible...

Usually the code would look like this...

(if (setq ensel (entsel "\nSelect Block: "))
  (setq bname (cdr (assoc 2 (entget (car ensel))))))