UnMirror - Rotate to 0

[rcb007]

I was looking around and did not know if there was a routine that could unmirror selected blocks then possibly rotate them back to 0?

 

I have been inserting the blocks that have been mirrored for a long time. lol

 

Thanks for any help.

[tombu]

To set the rotation horizontal try: https://forums.augi.com/showthread.php?171018-rotate-text-to-horizontal-in-viewport&p=1332928&viewfull=1#post1332928

As far as blocks being mirrored look for negative scale values in the Properties Palette.

 

Why not use annotative blocks and set Match Orientation to Yes? 

That way even in twisted views the blocks will always be horizontal.

[pkenewell]

Here is a simple bit of code that will do it.

(defun c:UnmirrorBlock (/ ss en xscl yscl zscl)
  (if (setq ss (ssget '((0 . "INSERT"))))
     (progn
        (repeat (setq cnt (sslength ss))
           (setq en   (entget (ssname ss (setq cnt (1- cnt))))
                 xscl (abs (cdr (assoc 41 en)))
                 yscl (abs (cdr (assoc 42 en)))
                 zscl (abs (cdr (assoc 43 en)))
                 en   (subst (cons 41 xscl) (assoc 41 en) en)
                 en   (subst (cons 42 yscl) (assoc 42 en) en)
                 en   (subst (cons 43 zscl) (assoc 43 en) en)
                 en   (subst (cons 50 0.0)  (assoc 50 en) en)
           )
           (entmod en)
        )
     )
  )
)