lisp to toggle a specific attribute visible/invisible

[Astro]

Hi all,

I have a lisp to switch the visibility off all the attributes off my drawing with a specific TAG (e.g. TAG1) . The lisp scan all the blocks containing this TAG.
But i have to type on the command line "on" or "off" to swicht the visibility off the attribute.

What can i do to switch the mode directly without typing on the command line "on or "off".
Let's say, if TAG1 is visible then it switch to invisible.
If TAG1 is invisible it switch to visible.

Maybee somebody can help me with this lisp. Thank you

[Lee Mac]

Easier way:

(defun c:am2 (/ tag ss sel)
  (vl-load-com)

  (setq tag "TAG1") ;; <<-- Tag to be Searched

  (and (setq ss (ssget "_X" '((0 . "INSERT") (66 . 1))))
       (vlax-for Obj (setq sel (vla-get-ActiveSelectionSet
                                 (vla-get-ActiveDocument (vlax-get-acad-object))))
          (foreach att (append (vlax-invoke Obj 'GetAttributes)
                               (vlax-invoke Obj 'GetConstantAttributes))
            (if (eq tag (strcase (vla-get-TagString att)))
              (vla-put-invisible att
                (cond ((eq :vlax-true (vla-get-invisible att)) :vlax-false)
                      (:vlax-true))))))
       (vla-delete sel))

  (princ))

[Astro]

Easier way:

(defun c:am2 (/ tag ss sel)
  (vl-load-com)
 
  (setq tag "TAG1") ;; <<-- Tag to be Searched
 
  (and (setq ss (ssget "_X" '((0 . "INSERT") (66 . 1))))
       (vlax-for Obj (setq sel (vla-get-ActiveSelectionSet
                                 (vla-get-ActiveDocument (vlax-get-acad-object))))
          (foreach att (append (vlax-invoke Obj 'GetAttributes)
                               (vlax-invoke Obj 'GetConstantAttributes))
            (if (eq tag (strcase (vla-get-TagString att)))
              (vla-put-invisible att
                (cond ((eq :vlax-true (vla-get-invisible att)) :vlax-false)
                      (:vlax-true))))))
       (vla-delete sel))
 
  (princ))

Thank you so much!!! you saved my day

[Lee Mac]

Thank you so much!!! you saved my day

No probs mate

[Astro]

Hi, It's me again.

Your lisp works perfectly. Thank you.

One last question. Is there a way to do exactly the same but by selection? So i can select the blocks i want to switch the visibility off the attribute.

[David Bethel]

Remove the "_X" statement from the ssget call and it will ask you for the selections. -David

[Astro]

Thank you so much

I have realy to learn lisp language. You can do so great things with.

[Astro]

Hi Guys,

I have a simple question for you.

I have this code to change the visibility of an attribute.
What do i have to change in my code if i want to change the visiblity off "TAG1" and "TAG2" and maybe also "TAG3" if i want to add it later by my own in the code?

 
(defun c:am2 (/ tag ss sel)
  (vl-load-com)

  (setq tag "TAG1") ;; <<-- Tag to be Searched

  (and (setq ss (ssget "_X" '((0 . "INSERT") (66 . 1))))
       (vlax-for Obj (setq sel (vla-get-ActiveSelectionSet
                                 (vla-get-ActiveDocument (vlax-get-acad-object))))
          (foreach att (append (vlax-invoke Obj 'GetAttributes)
                               (vlax-invoke Obj 'GetConstantAttributes))
            (if (eq tag (strcase (vla-get-TagString att)))
              (vla-put-invisible att
                (cond ((eq :vlax-true (vla-get-invisible att)) :vlax-false)
                      (:vlax-true))))))
       (vla-delete sel))

  (princ))

[Lee Mac]

Use a list instead, and check for that member in the list:

 
(defun c:am2 (/ tag ss sel)
  (vl-load-com)

  (setq tag '("TAG1" "TAG2" "TAG3"))  ;; <<-- Tag(s) to be Searched

  (and (setq ss (ssget "_X" '((0 . "INSERT") (66 . 1))))
       (vlax-for Obj (setq sel (vla-get-ActiveSelectionSet
                                 (vla-get-ActiveDocument (vlax-get-acad-object))))
          (foreach att (append (vlax-invoke Obj 'GetAttributes)
                               (vlax-invoke Obj 'GetConstantAttributes))
            (if (vl-position (strcase (vla-get-TagString att)) tag)
              (vla-put-invisible att
                (cond ((eq :vlax-true (vla-get-invisible att)) :vlax-false)
                      (:vlax-true))))))
       (vla-delete sel))

  (princ))

[Astro]

Thanks Man ,

It's working