Text rotation issues

[franky]

Hi,

 

I have recently been mirroring and rotating parts of drawings with lots of leaders on them. Using MIRRTEXT=0 I have managed to get around re-leadering everything when mirroring. However, I cannot find a similar variable for rotations, ie. A way to keep text the horizontal when rotating by 90, 180 etc.

 

Ta

[Lee Mac]

How about a custom rotate

 

(defun c:r2 ( / *error* p a undo doc ss v )
 ;; © Lee Mac 2010
 (vl-load-com)

 (defun *error* ( msg )
   (and undo (vla-EndUndoMark doc))
   (or (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")
       (princ (strcat "\n** Error: " msg " **")))
   (princ)
 )

 (if (and (ssget "_:L")
          (setq p (getpoint "\nSpecify Base Point: "))
          (setq a (getangle p "\nSpecify Rotation Angle: ")))
   (progn
     (setq undo
       (not
         (vla-StartUndoMark
           (setq doc
             (vla-get-ActiveDocument
               (vlax-get-acad-object)
             )
           )
         )
       )
     )
     (setq v (vlax-3D-point p))
     (vlax-for obj (setq ss (vla-get-ActiveSelectionSet doc))
       (vla-rotate obj v a)

       (if (wcmatch (vla-get-ObjectName obj) "AcDb*Text")
         (vla-put-rotation obj 0.)
       )
     )
     (vla-delete ss)
     (setq undo (vla-EndundoMark doc))
   )
 )
 (princ)
)    

 

Doesn't have the fancy preview that the inbuilt rotate command has, but should do the job

 

Lee

[franky]

hmm, unless i'm doing something wrong using your lisp doesn't change things much. My text is still skewed and I have to re-draw the leaders after rotating. I'm sure there's some way to keep text horizontal, but I just can't remember what it is.

here's a pictorial representation of my issues:

[barneycooly]

Hi - Sorry I cant answer your query, but I have the same problem and have come here looking for answers if anyone can help? Thanks

[Rob S]

Hi isnt´t working with annotative textstyles a solution?

[barneycooly]

thanks for your reply Rob

 

The drawings have come in to us already created, not with annotative text

 

we are having to add to them and reproduce what has been done at a different angle and mirrored, we have the mirrtext option set at 0 but the angle of the text is incorrect

 

hope this makes sense

[Rob S]

Hi Barney,

 

I never had that problem. But have you tried changed the texts in an annotiative text style? It might be less work than editing all the texts.

[barneycooly]

thanks again for your reply Rob, in older versions of Autocad there was definitely a command for rotating objects and the text would move with the object, but stay the same way up and we just cant find it in 2010

 

no worries, we have had to just move it all individually

 

i do appreciate the time you have taken to reply