Edit attributes in nested blocks, only in the selected block

[pmxcad]

Hello,

 

I found a lisp (lee Mac) that can edit the attributes in nested blocks.

Only this routine updates all the nested blocks in the drawing. I just want to update the nested blocks in one selected block.

How can the code be modified so that only the attributes of nested blocks in a selected block are modified?

 

(defun c:nAttEdit ( / _UpdateNestedAttributes data ent )

   (setq data
      '(
           ("TAG1"     . "A")
           ("ID" . "01/12/2011")
           ("ADRESS" . "FOR  REVIEW")
           ("CODE"     . "MAL")
           ("ROOMNR"     . "01/12/2011")
       )
   )

   (defun _UpdateNestedAttributes ( parent data / obj )
       (if (setq obj (tblobjname "BLOCK" parent))
           (while (setq obj (entnext obj))
               (if
                   (and
                       (eq "INSERT" (cdr (assoc 0 (entget obj))))
                       (= 1 (cdr (assoc 66 (entget obj))))
                   )
                   (LM:SetAttributeValues obj data)
               )
           )
       )
   )

   (while
       (progn (setvar 'ERRNO 0) (setq ent (car (entsel "\nSelect Block: ")))
           (cond
               (   (= 7 (getvar 'ERRNO))
                   (princ "\nMissed, try again.")
               )
               (   (eq 'ENAME (type ent))
                   (if (eq "INSERT" (cdr (assoc 0 (entget ent))))
                       (_UpdateNestedAttributes (cdr (assoc 2 (entget ent))) data)
                       (princ "\nSelected Object is not a Block.")
                   )
               )
           )
       )
   )
   
   (command "_.regen")
   (princ)
)


;; Set Attribute Values  -  Lee Mac
;; Sets the block attributes whose tags are found in the supplied
;; association list to their associated values.

(defun LM:SetAttributeValues ( block lst / elist item )
   (if
       (eq "ATTRIB"
           (cdr
               (assoc 0
                   (setq elist
                       (entget (setq block (entnext block)))
                   )
               )
           )
       )
       (if (setq item (assoc (strcase (cdr (assoc 2 elist))) lst))
           (progn
               (if (setq elist (entmod (subst (cons 1 (cdr item)) (assoc 1 elist) elist)))
                   (entupd (cdr (assoc -1 elist)))
               )
               (LM:SetAttributeValues block lst)
           )
           (LM:SetAttributeValues block lst)
       )
   )
)

 

Thanks in advance

test2.dwg

[Lee Mac]

Assuming you mean that you wish to update the nested attribute values for a single selected block reference, this is not possible. Any changes to the block definition will be automatically reflected across all references of the block definition. To achieve your request you would need to duplicate the block definition and change the nested attribute values in the duplicate before assigning the duplicated block definition to the selected reference.

[pmxcad]

Of course. The block is adjusted so that applies to all blocks with the same name. Or you must explode the block. Then this routine works fine.

 

Thanks Lee

[Lee Mac]

You're most welcome.

[Emmanuel Delay]

Is this still impossible?

Same question.  If anyone happened to solve this or find a solution somewhere...

[BIGAL]

Post a dwg to look at with your block.

[exceed]

15 hours ago, Emmanuel Delay said:

Is this still impossible?

Same question.  If anyone happened to solve this or find a solution somewhere...

 

that nAttEdit code works. what's your problem.

 

[Emmanuel Delay]

Now I think of it; this is not a LISP issue; you just can't do it in Autocad.

Unless I'm missing something.

 

So, block "myblock" contains a block "B".

B has attributes.

The question is: can you change the attributes of block B, but just for 1 instance of myblock?

 

What nAttEdit does, is change the attributes of B for all instances of myblock.

 

Again  ... as you would expect from Autocad

 

attedit.dwg