Rotating annotative text with LISP

[amaser]

I got the following code from Cadalysts, cadtips.com website. It works lke a charm, but it doesn't work with annotative text styles, even if there's only one annotative scale associated with it. Is there anyway to modify it so that it works with both? (I program in vba, not that familiar with LISP)

here's the code. (all credit to whomever wrote it and submitted it to cadalyst)

Sorry for the *edit* but I believe it would best if the file was *not* posted on the AUGI web site, unless the author has given their permission. I realize the file available from Cadalyst (http://cadtips.cadalyst.com/edit-text/rotate-text) is Freeware.

However, AUGI can not take any chances with regard to Copyright infringements that may exist. It would be good manners to obtain the author's permission before posting their work.

Thanks for your understanding,

Richard
Forum Moderator

[rkmcswain]

here's the code. (all credit to whomever wrote it and submitted it to cadalyst)


Here is the original submission (http://cadtips.cadalyst.com/edit-text/rotate-text). The moderators may delete the code from this post

BTW: It works on annotative text for me in 2010.

[amaser]

Here is the original submission (http://cadtips.cadalyst.com/edit-text/rotate-text). The moderators may delete the code from this post

BTW: It works on annotative text for me in 2010.

that's where i got the original from. but in LDC 2009, and civil3d 2010, it doesn't seem tow ork for any objects marked as annotative, regardless of style, or how many scales are assigend. if i use the properties box and just say annotative 'no' it works fine, even though the style is annotative, so i'm not sure what the problem is.

[alanjt]

i used that same routine for a long time before i finally wrote my own. this will allow you to rotate text, multileaders, blocks, mtext to the same rotation of pretty much any type of selected object, or you can specify the angle. plus, you can rotate as many objects as you can select. it will even work with non world ucs. i keep meaning to do a little cleanup/ rewriting with it and add the option to rotate civil3d points, but i haven't had the time just yet.
you are more than welcome to use it.