Quick rotate and / or move-rotate

[Anonymous]

Hi,

I am after a couple command if anyone knows of one please, to:

1) Quick rotate text - in other words, simply click the text and click somewhere in space to rotate it. It will always automatically use it's insert point as the base point. and:

2) Quick move and rotate - similarly, select text, place somwhere, then click in space for it's orientation. Always using insert point as base point. IE without having to move/enter/select/enter/base point/destination/rotate/enter/base/rotation.

If anyone can help, that would certainly be great!

Thanks 🙂

Rroger_D

[pendean]

Grip editing: explore it in AutoCAD's HELP and in free tutorials on youtube and blogs all over the internet.

Or ask for help writing a lisp for both here http://forums.autodesk.com/t5/autocad-customization/ct-p/AutoCADTopic1

[steve216586]

Look into the command MOCOR. It's pretty close to what you want. Click the text select the text base then move, copy or rotate multiple times, using that base.

[Jonathan3891]

Something real quick I put together.

(defun c:MoveR (/ *error*)

   (defun *error* ( msg )
        (if (not (member msg '("Function cancelled" "quit / exit abort")))
            (princ (strcat "\nError: " msg))
        )
        (princ)
    )
(princ "\nMove & Rotate:\n")
(setq ss (ssget))
  (command "move" ss "" pause pause)
  (command "rotate" ss "" "@" pause)
  )
(princ)

[Jonathan3891]

If you wanted to make it use only the insertion point, use this:

(defun c:MoveR (/ *error*)
  (setq oldsnap (getvar 'osmode))	;store osmode
	(setvar 'osmode 64)		;set osmode insertion

   (defun *error* ( msg )
        (if (not (member msg '("Function cancelled" "quit / exit abort")))
            (princ (strcat "\nError: " msg))
        )
        (princ)
    )
(princ "\nMove & Rotate:\n")
(setq ss (ssget))
  (command "move" ss "" pause pause)
  (command "rotate" ss "" "@" pause)
  (setvar 'osmode oldsnap)
  )
(princ)

[Kent1Cooper · Accepted solution]

[For anyone who finds this thread looking for this kind of function, be aware that the OP did take pendean's suggestion above, and posted the question over in the Customization Forum, where there are accepted Solutions.]

[wispoxy]

(DTEXT already has an option to rotate)

Here’s how:

• Start the MTEXT command T <enter>
• Place the starting point for the MTEXT (note: if you are aligning the text to a straight object, snap to a point on that object.)
• Before placing the second point that defines the text box width notice the options that you have in the command line. We will use the “Rotation” option.
• R <enter>
• Define the angle of the rotated text by either typing in an angle or snapping to an object.
• Then define the width of the text box
• Type the text
• Exit the MTEXT editor by either CTRL + <enter> or by clicking outside of the text.

-------------

To move use the commands MOVE or M / ROTATE or R. Plus your can right click on text for extra options.

[Anonymous]

Hi,

Thanks to everyone who has spent the time in replying. As Kent1Cooper says, I did have the problem resolved elsewhere.

Apologies for not replying earlier, I have been away on my hols.

Many thanks.

Rroger_D