ssget to get a block by name

[MiGo]

I have seen it before but can't find it. In an (ssget "x" '((... what do I put in if I want to get a block named ISO_A1_Title_Block?

[Lee Mac]

(ssget "_X" '((0 . "INSERT") (2 . "ISO_A1_Title_Block")))

 

See here for DXF reference

 

Lee

[MiGo]

Thanks Lee perfect

[Lee Mac]

Not a problem

[mhupp]

 On 9/16/2009 at 10:25 AM, Lee Mac said:

 

(ssget "_X" '((0 . "INSERT") (2 . "ISO_A1_Title_Block")))

 

 

Could you use this with a variable?

 

(setq BlkName (vla-get-effectivename (vlax-ename->vla-object (car (entsel "\nSelect block: "))))
(ssget "_X" '((0 . "INSERT") (2 . BlkName ))) ;SELECT BLOCK BY NAME

This doesn't seem to work.

[rlx]

(ssget "_X" (list (cons 0  "INSERT") (cons 2  BlkName )))

[ronjonp]

3 hours ago, mhupp said:

 

Could you use this with a variable?

 

(setq BlkName (vla-get-effectivename (vlax-ename->vla-object (car (entsel "\nSelect block: "))))
(ssget "_X" '((0 . "INSERT") (2 . BlkName ))) ;SELECT BLOCK BY NAME

This doesn't seem to work.

See if this sheds any light. You cannot use ' to quote a variable, LIST and CONS need to be used.

(setq blkname "Test")
(print '((0 . "INSERT") (2 . blkname)))
;;;((0 . "INSERT") (2 . BLKNAME))
(print (list '(0 . "INSERT") (cons 2 blkname)))
;;;((0 . "INSERT") (2 . "Test"))

 

[mhupp]

Thank you rlx and ronjonp. used this to make a quick little lisp to draw a line to all the blocks of a given name from 0,0.

rlx been meaning to contact you about that lisp + dcl you help me with a few months back. Rather than using the lisp + DCL file went the route of using getfiled.

Edited October 8, 2020 by mhupp