Hi,
Please try the following routine that allows you to have multiple selection on Attributed blocks and ignores the invisible attributed to be rotated to zero degree.
Code:
(defun c:Test (/ sel int ent get)
;; Tharwat - Date: 24.04.2018 ;;
(and (princ "\nSelect attributed blocks to rotate: ")
(setq sel (ssget "_:L" '((0 . "INSERT") (66 . 1))))
(repeat (setq int (sslength sel))
(setq ent (ssname sel (setq int (1- int))))
(while (/= (cdr (assoc 0 (setq get (entget (setq ent (entnext ent)))))) "SEQEND")
(or (= (cdr (assoc 70 get)) 1)
(entmod (subst '(50 . 0.0) (assoc 50 get) get)))
)
)
)
(princ)
)