topic Re: LISP Routine Request - Rotate with a reference in Visual LISP, AutoLISP and General Customization Forum

LISP Routine Request - Rotate with a reference

Anonymous — Mon, 20 May 2019 18:29:49 GMT

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

Re: LISP Routine Request - Rotate with a reference

Moshe-A — Mon, 20 May 2019 18:59:53 GMT

@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) 
)

Re: LISP Routine Request - Rotate with a reference

Kent1Cooper — Mon, 20 May 2019 19:06:42 GMT

@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")
)

Re: LISP Routine Request - Rotate with a reference

Anonymous — Mon, 20 May 2019 19:15:13 GMT

@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!

Re: LISP Routine Request - Rotate with a reference

Anonymous — Mon, 20 May 2019 19:19:33 GMT

@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.

Re: LISP Routine Request - Rotate with a reference

Kent1Cooper — Mon, 20 May 2019 19:57:41 GMT

@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.

Re: LISP Routine Request - Rotate with a reference

Anonymous — Mon, 20 May 2019 20:38:39 GMT

@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!

Re: LISP Routine Request - Rotate with a reference

bfalconr — Wed, 05 Aug 2020 13:14:44 GMT

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

Thank you in advance,

Re: LISP Routine Request - Rotate with a reference

Kent1Cooper — Wed, 05 Aug 2020 21:56:43 GMT

@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<.

Re: LISP Routine Request - Rotate with a reference

bfalconr — Thu, 06 Aug 2020 16:17:39 GMT

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??

Re: LISP Routine Request - Rotate with a reference

Kent1Cooper — Thu, 06 Aug 2020 17:54:29 GMT

@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 ?

Re: LISP Routine Request - Rotate with a reference

Anonymous — Sat, 24 Oct 2020 02:50:19 GMT

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..

Re: LISP Routine Request - Rotate with a reference

Moshe-A — Sat, 24 Oct 2020 05:48:34 GMT

@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)) ) )

Re: LISP Routine Request - Rotate with a reference

Anonymous — Tue, 27 Oct 2020 04:12:53 GMT

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..

Re: LISP Routine Request - Rotate with a reference

Automohan — Mon, 07 Mar 2022 06:16:32 GMT

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"

Re: LISP Routine Request - Rotate with a reference

Kent1Cooper — Mon, 07 Mar 2022 12:58:03 GMT

I get no error. What is the error message?

Re: LISP Routine Request - Rotate with a reference

Automohan — Mon, 07 Mar 2022 13:13:57 GMT

Command: ROTATE_WITH_MY_OSMODE
Select objects: 1 found

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