LISP Routine Request - Rotate with a reference

[Anonymous]

Hello,

I am doing a lot of rotating with a reference point or angle. A previous company I worked for used to have a routine that's hot key was RRR & would work like rotate but would automatically initiate the reference angle option after you finished your selection. 

Wondering if anyone here could assist me in providing a LISP that would do that? I apologize as I am a mere heathen that cannot write routines 

[Moshe-A]

@Anonymous hi,

check this...do you know how to wrap it in lisp file or copy paste is in acad.lsp?

(defun c:rrr ()
 (command-s "._rotate" pause "" pause "_r")
 (princ) 
)  

[Kent1Cooper]

---

@Anonymous wrote:

... RRR ... would work like rotate but would automatically initiate the reference angle option after you finished your selection. 

....

---

If "your selection" would sometimes need to be more than one thing, try this:

(defun C:RRR ()
  (command "_.rotate" (ssget) "" pause "_reference")
)

[Anonymous]

---

@Moshe-A wrote:

@Anonymous hi,

check this...do you know how to wrap it in lisp file or copy paste is in acad.lsp?

(defun c:rrr ()
 (command-s "._rotate" pause "" pause "_r")
 (princ) 
)  

---

Sorry. I should have specified that I need to rotate multiple objects at the same time. That is my mistake. I do know how to paste into a .lisp file though!

[Anonymous]

---

@Kent1Cooper wrote:

---

@Anonymous wrote:

... RRR ... would work like rotate but would automatically initiate the reference angle option after you finished your selection. 

....

---

If "your selection" would sometimes need to be more than one thing, try this:

(defun C:RRR ()
  (command "_.rotate" (ssget) "" pause "_reference")
)

---

This works. Though it is asking for base point & then 2 points to define the reference angle. Not to be too picky but is there a way to make the base point selection the first point of the reference angle? Therefore it would trim down one click. 

[Kent1Cooper · Accepted solution]

---

@Anonymous wrote:
....it is asking for base point & then 2 points to define the reference angle. ... is there a way to make the base point selection the first point of the reference angle? Therefore it would trim down one click. 

---

Try this little adjustment:

(defun C:RRR ()
  (command "_.rotate" (ssget) "" pause "_reference" "@")
)

That, of course, is valid only when the base point is, in fact, always usable as the first point of defining the reference direction.  The ROTATE command does not assume that, but if it's always true in your usage, that should do.

[Anonymous]

---

@Kent1Cooper wrote:

---

@Anonymous wrote:
....it is asking for base point & then 2 points to define the reference angle. ... is there a way to make the base point selection the first point of the reference angle? Therefore it would trim down one click. 

---

Try this little adjustment:

(defun C:RRR ()
  (command "_.rotate" (ssget) "" pause "_reference" "@")
)

That, of course, is valid only when the base point is, in fact, always usable as the first point of defining the reference direction.  The ROTATE command does not assume that, but if it's always true in your usage, that should do.

---

This is exactly what I was looking for. The other previous options worked for what the interpretation was. Of course that is because I was not detailed enough in my initial request. Thank you much for your assistance!

[bfalconr]

you guys are just the best, can you share any other lisp like this to speed your daily workflow,

Thank you in advance,

[Kent1Cooper]

---

@bfalconr wrote:

.... can you share any other lisp like this to speed your daily workflow,

....

---

You would need to be more specific about what you mean by "like this."  For instance, are you looking only for routines about Rotating?

If you mean it more generically, Search for a particular kind of thing you're looking for.  Or, there are some threads with favorites posted, such as >this one<.

[bfalconr]

You're right, I'm making shop drawings and many times I do have to rotate inclined objects to an horizontal position. your RRR lisp is saving me a lot of time, can we select an object, select base point and somehow it goes to horizontal position??

[Kent1Cooper]

---

@bfalconr wrote:

... I do have to rotate inclined objects to an horizontal position. .... can we select an object, select base point and somehow it goes to horizontal position??

---

What kind(s) of object?  One at a time, or multiple?  For many kinds of things, or for multiple objects together, it's not clear to me what would be the aspect that you want made horizontal.  And are you talking about 2D drawing, and "inclined" meaning not aligned with the X axis, or 3D drawing, and "inclined" meaning not lying in the XY plane ?

[Anonymous]

how do i put a dialog command on that rotation?

(command "rotate" ss "" tt "\nDirection to Connect: ")

but at command line it not showing the word "direction to connect" how do i change that?

ss is my selection unit,

tt is my preset point.

Thanks..

[Moshe-A]

@Anonymous ,

In general when using (command), you collect\prepare all the arguments needed and than supply them to (command) function. this is better then pausing in mid (command) cause if the user wants to break the process, he can exit quietly (instead of getting errors).

as you can see in my code, all inputs are wrapped in a logical (and). this way responding with null reply (pressing just enter) at any prompt, will exit clean. on the other hand by doing so you are giving the dragging feature that AutoCAD offers by using pause argument. so it depend on what exactly you want to achieve?!

enjoy

Moshe

(defun c:xxx (/ ss tt rot)
 (if (and
      (setq ss (ssget))
      (setq tt (getpoint "\nSpecify base point: "))
      (setq rot (getangle tt "\ndirection to connect: "))
     )
  (command "rotate" ss "" tt (angtos rot 0 4))
 )
)

[Anonymous]

Owh.. i see.. 😀

Actually i dont know how to convert that the value taken into degree..

Now it suit..

TQ for your code.. i will think of that to rearrange in my code..

[Automohan]

Please help to fix the error !

(defun c:rotate_with_my_osmode ( / )
(setvar "cmdecho" 0) 
(command "rotate" (ssget) "" pause "r" "_end" "\\" "\\" "P" "_nea" pause "_per" pause)
(setvar "cmdecho" 1)
(princ))

The error was after adding "_end", "_nea" & "_per" 

[Kent1Cooper]

I get no error.  What is the error message?

[Automohan]

Command: ROTATE_WITH_MY_OSMODE
Select objects: 1 found

Select objects:
No Endpoint found for specified point.
Requires valid numeric angle or two points.