Refreshing Attribute / Block definitions All Attributes to specified layer.

[ReachAndre]

Is there a way to refresh attribute definitions?
After changing the properties of the attributes, previously inserted blocks still show on the old layer.

Or
Change all the attributes to a different layer?

Example

Block with attributes and objects on layer "E-LITE".

We want the light to show but not the attribute.

I would like to put the attributes on "E-LITE-ATTR" (our electrical department still needs the attributes to show)

Any help would be greatly appreciated.

Below is a lsp that rotates all the attributes, perhaps we can use this to change the attributes "layer"
Thank you aaronic_abacus for the original lsp at the link
http://forums.augi.com/showthread.ph...to-remain-at-0

(DEFUN C:SAT (/ BS BSL CT NOFUV NOFNU LP NE NEL NEAET NEA NEAS OFNU NNEL)
 (PROMPT "\n*SET ATTRIBUTE ROTATION* ")
 (PROMPT "\nSelect block with attributes to rotate: ")
 (SETQ BS (SSGET '((-4 . "<AND") (0 . "INSERT") (66 . 1) (-4 . "AND>")) ))
 (SETQ BSL (SSLENGTH BS))
 (SETQ CT (- BSL 1))
 (SETQ NOFUV (GETANGLE "\nNew attribute rotation angle: "))
 (SETQ LP 1)
 (WHILE LP
  (SETQ NE (SSNAME BS CT))
  (SETQ CT2 0)
  (SETQ LP2 1)
  (WHILE LP2
   (SETQ NE (ENTNEXT NE))
   (SETQ NEL (ENTGET NE))
   (SETQ NEAET (CDR (ASSOC 0 NEL)))
   (SETQ NEA (ASSOC 50 NEL))
   (SETQ NEAS (CDR NEA))
   (IF (= NEAET "ATTRIB") 
    (PROGN
     (IF (/= NEA NIL)
      (PROGN
       (SETQ NOFNU (CONS 50 NOFUV))
       (SETQ OFNU NEA)
       (SETQ NNEL (SUBST NOFNU OFNU NEL))
       (ENTMOD NNEL)
       (ENTUPD NE)
     ));END PROGN/IF NEA
   ));END PROGN/IF NEAET
   (IF (= NEAET "SEQEND") (SETQ LP2 NIL))
  );END WHILE LP2
  (SETQ CT (- CT 1))
  (IF (< CT 0) (SETQ LP NIL))
 );END WHILE LP
 (PRINC)
);END SAT

[tedg]

Is there a way to refresh attribute definitions?
After changing the properties of the attributes, previously inserted blocks still show on the old layer.
...

I don't know about the layer thing, but the ATTSYNC command works for updating block attributes back to thier definitions.
So if you update/fix a block attribute, you run the attsync command, select the block and all those blocks will update.

HTH

[ReachAndre]

I was under the impression attsync was for annotative blocks only but this worked great.
Thanks,
Andre

[aaronic_abacus]

(DEFUN C:SAL (/ BS BSL CT NOFUV NOFNU LP NE NEL NEAET NEA NEAS OFNU NNEL)
 (PROMPT "\n*SET ATTRIBUTE LAYER* ")
 (PROMPT "\nSelect blocks with attributes to change layer: ")
 (SETQ BS (SSGET '((-4 . "<AND") (0 . "INSERT") (66 . 1) (-4 . "AND>")) ))
 (SETQ BSL (SSLENGTH BS))
 (SETQ CT (- BSL 1))
 (SETQ NOFUV (GETSTRING T "\nNew attribute layer: "))
 (SETQ LP 1)
 (WHILE LP
  (SETQ NE (SSNAME BS CT))
  (SETQ CT2 0)
  (SETQ LP2 1)
  (WHILE LP2
   (SETQ NE (ENTNEXT NE))
   (SETQ NEL (ENTGET NE))
   (SETQ NEAET (CDR (ASSOC 0 NEL)))
   (SETQ NEA (ASSOC 8 NEL))
   (SETQ NEAS (CDR NEA))
   (IF (= NEAET "ATTRIB") 
    (PROGN
     (IF (/= NEA NIL)
      (PROGN
       (SETQ NOFNU (CONS 8 NOFUV))
       (SETQ OFNU NEA)
       (SETQ NNEL (SUBST NOFNU OFNU NEL))
       (ENTMOD NNEL)
       (ENTUPD NE)
     ));END PROGN/IF NEA
   ));END PROGN/IF NEAET
   (IF (= NEAET "SEQEND") (SETQ LP2 NIL))
  );END WHILE LP2
  (SETQ CT (- CT 1))
  (IF (< CT 0) (SETQ LP NIL))
 );END WHILE LP
 (PRINC)
);END SAL