;;;Modify the rotation angle of a selection of block entities.
;;;The only input required is the desired
;;;rotation angle and selection of the blocks to modify.
;;;
;;; 
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 8-30-95
;;;>		   EDITED: 05-06-2001
;;;
(DEFUN C:BRAN ( / tset tsln cntr tent)
(setq toa (*(/(ureal 1 "" "\nBlock Rotation Angle " (if toa (*(/ toa pi)180.000) 0))180.0000)pi))
(prompt "\nSelect Block: ")
(setq tset (ssget '((0 . "INSERT"))))
(if tset
  (progn
    (setq tsln (sslength tset))
    (setq cntr 0)
  )
)
(while
  (if (and (< cntr tsln) tset)
    (setq tent (entget (ssname tset cntr)))
  );if
  (progn
    (setq edtw (entget (cdar tent)))
    (if (eq (cdr (assoc 0 edtw)) "INSERT")
      (progn
        (setq edtw
          (subst (cons 50 toa)
                 (assoc 50 edtw)
                 edtw
          )
        )
        (entmod edtw)
      )
    )
    (setq cntr (1+ cntr))
  )
)
);DEFUN