ROTATE by reference as default

ROTATE by reference as default

76jsa
Enthusiast Enthusiast
4,916 Views
9 Replies
Message 1 of 10

ROTATE by reference as default

76jsa
Enthusiast
Enthusiast

Hello, 

is there a way to set ROTATE by reference as default, not by base point?

Thanks

Accepted solutions (2)
4,917 Views
9 Replies
Replies (9)
Message 2 of 10

SEANT61
Advisor
Advisor
Accepted solution

You may be able to redefine the command to call some addin program. 

 

Alternatively -

 

 

For a rotate with reference call, I use a Right-Click menu entry with the command macro:

^C^C_Select \_rotate previous ;\r @;


************************************************************
May your cursor always snap to the location intended.
0 Likes
Message 3 of 10

Kent1Cooper
Consultant
Consultant
Accepted solution

@76jsa wrote:

.… is there a way to set ROTATE by reference as default, not by base point? ….


 

You're not going to escape the need for a base point, in any case, since Rotating by Reference is still necessarily around some base point.  But you could define a dedicated command that automatically feeds in the Reference option after that.  Something like this [minimally tested]:

(defun C:ROTATER (/ ss) ; = Rotate with built-in Reference option

  (if (setq ss (ssget))

    (command "_.rotate" ss "" pause "_reference")

  )

)

 

You could  even UNDEFINE the native ROTATE command, and make that the definition of that command name by taking the R off the end of the name.  You would still have standard ROTATE available if needed, by typing it in with the period prefix:

 

.ROTATE

Kent Cooper, AIA
Message 4 of 10

scot-65
Advisor
Advisor
I have a similar utility to Kent's and have named it
c:RTR

???

Scot-65
A gift of extraordinary Common Sense does not require an Acronym Suffix to be added to my given name.

0 Likes
Message 5 of 10

SEANT61
Advisor
Advisor

As a supplement to my Rotate by Reference command macro suggestion, here is a screencast of that, plus another By Reference sub option.  There are times when that sub option functionality comes in handy.  That sub-option macro:
^C^C_Select;\_rotate previous;;\r;@;\p;\\

 

 


************************************************************
May your cursor always snap to the location intended.
0 Likes
Message 6 of 10

pl.fischer68
Explorer
Explorer

how do you define this command ?

0 Likes
Message 7 of 10

Kent1Cooper
Consultant
Consultant

@pl.fischer68 wrote:

how do you define this command ?


Copy the code and paste it into a plain-text editor such as Notepad.  Save it to a file [call it whatever you want] with a .lsp filetype ending.  In an AutoCAD drawing, use APPLOAD, navigate to where you put that file, and Load it.  The command name is ROTATER [not case-sensitive].

Kent Cooper, AIA
0 Likes
Message 8 of 10

pl.fischer68
Explorer
Explorer

thank you so much dude, this rotate command was driving me crazy. Now the ROTATER does work, but it doesn't appear in the aliasedit panel (i'd like to create a shortcut for the new rotater command)

0 Likes
Message 9 of 10

Kent1Cooper
Consultant
Consultant

@pl.fischer68 wrote:

.... (i'd like to create a shortcut for the new rotater command)


I think the command alias editor may work only with actual AutoCAD command names.  But you can make the name of the command anything you want -- the part immediately following  (defun C:  is always the command name, so just change ROTATER to something else [as long as it doesn't conflict with some already-existing command name or alias].

Kent Cooper, AIA
0 Likes
Message 10 of 10

pl.fischer68
Explorer
Explorer

amazing ! thank you for taking the time to explain me this, hope it will help others !