Topic: match rotation lisp needed

[hudster]

Does anyone have a copy of a lisp that will allow me to match the rotation of any entity to that of a selected entity?

[SMadsen]

I think you need to define "rotation of any entity". What is the rotation of a line? Of an arc?

[Mark]

this will handle some things, not arcs though.

http://theswamp.org/phpBB2/viewtopic.php?p=42549#42549

[Big G]

can you not use the 'align' or 'rotate, reference'?

[hudster]

It's to do a number of things, rotate blocks to align with lines, polylines to match other polylines and rectangles to match lines.

It's something I've been planning to write when I finally figure out what i'm doing with lisp, Stigs course is helping me a lot, but my skills just aren't up to this yet.

[SMadsen]

Nice to hear the course is at least doing something
Thanks, Hudster.

Angle and rotation can be two very different issues when talking entities. Simple objects that are described mathematically usually deal with angle(s) between definition points - an obvious exception being a circle (unless you're talking angle between planes ) while objects that possess a unique insertion point deal with rotation.

First step in writing .. or requesting .. a routine that aligns one entity with another would therefore be to define the kind of entity or entities it should handle.

[paulmcz]

(defun c:rtt (/ ss oan nan p1 rot osn)
  (princ "\n Rotate, Select objects: ")
  (setq ss (ssget))
  (setq oan (getangle "\n Angle to be corrected: "))
  (setq nan (getangle "\n New absolute angle: "))
  (setq p1 (getpoint "\n Base point of rotation: "))
  (setq rot (/ (* (- nan oan) 180) pi))
  (setq osn (getvar "osmode"))
  (setvar "osmode" 0)
  (command "rotate" ss "" p1 rot)
  (setvar "osmode" osn)
  (princ)
  )
(prompt "\n type > rtt < to rotate objects")

[hudster]

What I was looking for, after a bit of thought, is more like the match properties command, but for rotation only.

[daron]

Hudster, don't you know better where to put your questions??

Here's the pseudo:
user selects object
machine gets rotation angle
user selects other objects
machine replaces other objects RA's with first objects RA

Closer to lisp pseudo:
single entity selection (entsel)
vla or dxf codes to extract
entget, assoc, cdr, ename->vla-object.
ssget: use repeat or convert sset into a list for processing each item with foreach or mapcar
while using one of the previous functions change the items RA to the entsel'd's RA.


Wanna give it a try??