;;; Attribute Visibility Toggle By Alan Thompson
;;; make a selection set of blocks with Atts and then hit
;;; This will toggle them either on or off
(defun c:TAS (/ ss i)
(vl-load-com)
(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)
)(c:tas)

Advertisements