(defun c:mtrot (/ ent sObj att dObj)
  (vl-load-com)
  (if
    (and
      (setq ent
        (car (nentsel "\nSelect Source Object: ")))
      (vlax-property-available-p
        (setq sObj
          (vlax-ename->vla-object ent)) 'Rotation))
    (while
      (and
        (setq att
          (car (nentsel "\nSelect Destination Attribute: ")))
        (eq "AcDbAttribute"
          (vla-get-ObjectName
            (setq dObj
              (vlax-ename->vla-object att)))))
      (vla-put-rotation dObj
        (vla-get-rotation sObj))))
  (princ))