mirror and repeat help...

[leonucadomi]

good day people:

 

I want to improve this routine can you help me?

It is very simple

 

I seek to make a selection of objects to make a mirror and delete them

but I search once selected the objects and the two points for the axis of symmetry

with enter you will be switching between the original objects and their mirror

this routine i made does it but it doesn't show the axis when i need to see it  

 

 

 

 

 

(defun C:|f (/ ss pt1 pt2)
(setq ss (ssget))
(setq pt1 (getpoint))
(setq pt2 (getpoint))
(grdraw pt1 pt2 -1 1)

(repeat 100
(setq gira (getreal "\nMirror <1>: "))
(if (equal gira nil)(setq gira 1))
(if (= gira 1)
(command "_mirror" ss "" pt1 pt2 "y" "" )
(command "_regenall")
)
);repeat

  (princ)
)

[mhupp]

(setq pt2 (getpoint))
change
(setq pt2 (getpoint p1))

 

[leonucadomi]

excellent thanks

[BIGAL]

Just me

 

(setq pt1 (getpoint "\nPick 1st point "))
(setq pt2 (getpoint pt1 "\nPick 2nd point "))