ACAD 2007: Mirror lisp: axis at "Mid between 2 Points" lisp

I am always caught in situation where I need to mirror using "Mid between 2 Points" that's why I am looking for a shortcut. Is there an Lisp for the following sequence:

1. MIRROR

2. Mid between 2 Points

3. (now, I select the 2 points)

4. Finally, automatically answers "N" to the question (erase source object?)

That's it, I attached an image for reference. Thank you!

Uploaded with ImageShack.us

I am always caught in situation where I need to mirror using "Mid between 2 Points" that's why I am looking for a shortcut. Is there an Lisp for the following sequence:

(defun c:test (/ ss )
(setq ss (ssget))
(command "._mirror" ss "" "mtp" pause pause "@1<90" "n")
)

this works but wait for a better way:lol:

____

I sorry for my "ghettoway" definition. I thought I'd have a little fun but decided against it.

[quote=Lt Dan's legs;340979this works but wait for a better way:lol:

(defun c:test (/ ss p1 p2)
(setq ss (ssget))
(setq p1 (getpoint "\nSpecify first point: "))
(setq p2 (getpoint  "\nSpecify second point: "))
(setvar "CMDECHO" 0)
(command "._mirror" ss "" "mtp" p1 p2 "@1<90" "n")
(setvar "CMDECHO" 1)
(PRINC)
)

A little better but I'm sure someone will blow this one out of the water.

I think the m2p snap is the best option.

I think the m2p snap is the best option.

What's the difference between m2p/mtp?

What's the difference between m2p/mtp?

Probably nothing

for some reason I thought you said m2p is better. I'm in desperate need of caffeine!!

for some reason I thought you said m2p is better. I'm in desperate need of caffeine!!

Nah, I just meant instead of writing a whole LISP, just use Mirror with the m2p/mtp snap.

@Lt. Dan's Legs:

Thanks for sharing the code. However, I noticed it only mirrors horizontally (side by side), even when two points are vertical. Is it still possible to tweak this one to be more flexible in mirroring both horizontal/vertical depending on the points I select.

By the way, If it would be easier- I am okay of having two LISP one for horizontal (what we have above), other one for vertical.

Thanks!

Hi,

This one uses the bissector (perpendicular to the midlle of the segment) of the two points as axis for the mirror.

(defun c:test (/ ss p1 p2 mid p3)
 (and
   (setq ss (ssget))
   (setq p1 (getpoint "\nFirst point: "))
   (setq p2 (getpoint p1 "\nSecond point: "))
   (setq mid (mapcar '(lambda (x1 x2) (/ (+ x1 x2) 2.)) p1 p2))
   (setq p3 (polar mid (+ (angle p1 p2) (/ pi 2.)) 1.))
   (command "_.mirror" ss "" "_non" mid "_non" p3 "_no")
 )
 (princ)
)

Hi,

 

This one uses the bissector (perpendicular to the midlle of the segment) of the two points as axis for the mirror.

 

Amazing, this is very helpful. Thanks for sharing!

Hi,

 

This one uses the bissector (perpendicular to the midlle of the segment) of the two points as axis for the mirror.

 

(defun c:test (/ ss p1 p2 mid p3)
 (and
   (setq ss (ssget))
   (setq p1 (getpoint "\nFirst point: "))
   (setq p2 (getpoint p1 "\nSecond point: "))
   (setq mid (mapcar '(lambda (x1 x2) (/ (+ x1 x2) 2.)) p1 p2))
   (setq p3 (polar mid (+ (angle p1 p2) (/ pi 2.)) 1.))
   (command "_.mirror" ss "" "_non" mid "_non" p3 "_no")
 )
 (princ)
)

Nice gile. As you can tell I'm a beginner & wasn't sure how I was going to do the angle.

http://www.nyacad.com/QuickMirror/QuickMirror.html

Try this one. Now can't live without it.

http://www.nyacad.com/QuickMirror/QuickMirror.html

Try this one. Now can't live without it.

Thanks, lots of free stuff too.