SSGET attribute value in a block

[jmerch]

what would be an example of trying to find an attribute value that is in a block, then if it's found, execute a routine, otherwise do nothing. I've looked all over and in DXF Groups (which I don't really understand yet)...I thought it'd be a simple ssget like

 

(if (ssget "_x" '((0 . "TEXT")(1 . "BLAH")))
(do this)
(do nothing)

 

but don't think that's the way I can go.

[Lee Mac]

You can't use ssget to select nested entities such as attributes or objects within blocks/xrefs, only primary entities.

 

With that in mind, you will have to iterate through a selection set of all attributed blocks until your attribute is found.

 

Lee

[Lee Mac]

Consider this code:

 

[color=RED]([/color][color=BLUE]defun[/color] GetBlockWithAttributeValue [color=RED]([/color] value [color=BLUE]/[/color] ss [color=RED])[/color]
 [color=#990099];; Example by Lee Mac 2011 - www.lee-mac.com[/color]

 [color=RED]([/color][color=BLUE]if[/color] [color=RED]([/color][color=BLUE]setq[/color] ss [color=RED]([/color][color=BLUE]ssget[/color] [color=#a52a2a]"_X"[/color] [color=DARKRED]'[/color][color=RED](([/color][color=#009900]0[/color] [color=DARKRED].[/color] [color=#a52a2a]"INSERT"[/color][color=RED])[/color] [color=RED]([/color][color=#009900]66[/color] [color=DARKRED].[/color] [color=#009900]1[/color][color=RED]))))[/color]
   [color=RED]([/color]
     [color=RED]([/color][color=BLUE]lambda[/color] [color=RED]([/color] i [color=BLUE]/[/color] block _block elist found [color=RED])[/color]
       [color=RED]([/color][color=BLUE]while[/color] [color=RED]([/color][color=BLUE]and[/color] [color=RED]([/color][color=BLUE]setq[/color] block [color=RED]([/color][color=BLUE]ssname[/color] ss [color=RED]([/color][color=BLUE]setq[/color] i [color=RED]([/color][color=BLUE]1+[/color] i[color=RED])))[/color] _block block[color=RED])[/color] [color=RED]([/color][color=BLUE]not[/color] found[color=RED]))[/color]
         [color=RED]([/color][color=BLUE]while[/color]
           [color=RED]([/color][color=BLUE]and[/color]
             [color=RED]([/color][color=BLUE]not[/color]
               [color=RED]([/color][color=BLUE]eq[/color] [color=#a52a2a]"SEQEND"[/color]
                 [color=RED]([/color][color=BLUE]cdr[/color]
                   [color=RED]([/color][color=BLUE]assoc[/color] [color=#009900]0[/color]
                     [color=RED]([/color][color=BLUE]setq[/color] elist
                       [color=RED]([/color][color=BLUE]entget[/color]
                         [color=RED]([/color][color=BLUE]setq[/color] _block [color=RED]([/color][color=BLUE]entnext[/color] _block[color=RED]))[/color]
                       [color=RED])[/color]
                     [color=RED])[/color]
                   [color=RED])[/color]
                 [color=RED])[/color]
               [color=RED])[/color]
             [color=RED])[/color]
             [color=RED]([/color][color=BLUE]not[/color] found[color=RED])[/color]
           [color=RED])[/color]
           [color=RED]([/color][color=BLUE]if[/color] [color=RED]([/color][color=BLUE]eq[/color] value [color=RED]([/color][color=BLUE]cdr[/color] [color=RED]([/color][color=BLUE]assoc[/color] [color=#009900]1[/color] elist[color=RED])))[/color]
             [color=RED]([/color][color=BLUE]setq[/color] found block[color=RED])[/color]
           [color=RED])[/color]
         [color=RED])[/color]
       [color=RED])[/color]
       found
     [color=RED])[/color]
     [color=#009900]-1[/color]
   [color=RED])[/color]
 [color=RED])[/color]
[color=RED])[/color]




[color=RED]([/color][color=BLUE]defun[/color] c:test [color=BLUE]nil[/color]
 [color=RED]([/color][color=BLUE]sssetfirst[/color] [color=BLUE]nil[/color]
   [color=RED]([/color][color=BLUE]ssadd[/color]
     [color=RED]([/color]GetBlockWithAttributeValue
       [color=RED]([/color][color=BLUE]getstring[/color] [color=BLUE]t[/color] [color=#a52a2a]"\nSpecify Attribute Value to Search For: "[/color][color=RED])[/color]
     [color=RED])[/color]
   [color=RED])[/color]
 [color=RED])[/color]
 [color=RED]([/color][color=BLUE]princ[/color][color=RED])[/color]
[color=RED])[/color]

 

[ Currently Case-sensitive ]

[jmerch]

WOW....I think I may have found another way for me to get my result (using scripting from our 3rd party program)...but I will try to push myself to learn what you gave me!

 

Thanks again Lee

[Lee Mac]

Thanks again Lee

 

You're very welcome