make invisible attribute visible

[chelsea1307]

any way to view invisible block attribute?
I created a block and the attributes really don't need to be seen in autocad just there for dataextraction and keeping it all in one location i want to go back through and make sure i have information filled in in all the right invisible attributes without having to open each block and check the attributes, but i don't want them permanently visible (i know i can freeze them or put them on a non plot layer but it clutters up the space when there is 20+ attributes to a block)

[ReMark]

Try View > Display > Attribute Display then choose On. Does that work?

[alanjt]

Give this a try:

;;; Attribute Visibility Toggle
;;; Required Subroutines: AT:Entsel AT:GetAttributes
;;; Alan J. Thompson, 11.17.09
(defun c:AVT (/ #Obj)
  (and
    (setq #OBj (AT:Entsel nil
                          "\nAttribute Visibility Toggle\nSelect Attributed Block: "
                          '("LV" (0 . "INSERT") (66 . 1))
                          nil
               ) ;_ AT:Entsel
    ) ;_ setq
    (foreach x (AT:GetAttributes #Obj)
      (vla-put-visible
        x
        (if (eq (vla-get-visible x) :vlax-true)
          :vlax-false
          :vlax-true
        ) ;_ if
      ) ;_ vla-put-visible
    ) ;_ foreach
  ) ;_ and
  (princ)
) ;_ defun

You'll need a couple subroutines from my subroutine thread:
http://www.cadtutor.net/forum/showpo...59&postcount=5
http://www.cadtutor.net/forum/showpo...9&postcount=26

[eldon]

Or at the command line type ATTDISP, or change the system variable ATTMODE

[jalucerol]

See at this:

http://www.cadtutor.net/forum/showthread.php?t=41414

[alanjt]

Or at the command line type ATTDISP, or change the system variable ATTMODE

HaHa, oh well. LoL

(defun c:AM () (setvar 'attmode (abs (1- (getvar 'attmode)))) (princ))

[Glen Smith]

Or ATTOUT them to a CSV and view them in Notepad/Excel.

Glen

[troggarf]

Hey Alan,

Can you please update the subroutine locations that are linked?

The links aint workin' (at least when I click on them)...

Thanks
~Greg

[alanjt]

Hey Alan,

Can you please update the subroutine locations that are linked?

The links aint workin' (at least when I click on them)...

Thanks
~Greg

I don't think it was ever what he had wanted (I missed the mark), but here's a simple rewrite...

(defun c:AVT (/ ss i)
  (if (setq ss (ssget "_:L" '((0 . "INSERT") (66 . 1))))
    (repeat (setq i (sslength ss))
      (foreach a (vlax-invoke (vlax-ename->vla-object (ssname ss (setq i (1- i)))) 'GetAttributes)
        (vlax-put a 'Visible (~ (vlax-get a 'Visible)))
      )
    )
  )
  (princ)
)

[troggarf]

Works great on my end.
Thanks dude

~Greg