Intersection from two points at Polygon

Hi,

I need a lisp that draw a point at the intersection axis extension of two picked Points at a Polygon.

Or make this point as basepoint. (e.g. when I move the polygon)

Thanks everybody for your help.

[ATTACH]63511[/ATTACH][ATTACH]63511[/ATTACH]

It appears as if you have attached something, but I'm unable to view it.

From what I'm understanding, you want to be able to pick an X point and a Y point. This will designate a point at the spot where they intersect?

Also, did you want this to move the object right away, or are you trying to create a handle for future use?

I have thrown together some quick code that does what I think you might want. It's definitely not bulletproof, but should be able to help get things started.

(defun c:test ( / ss p1 p2 p3 )
(prompt "\nSelect objects to move.")
(setq ss (ssget))
(setq p1 (getpoint "\nPick a point for X."))
(setq p2 (getpoint "\nPick a point for Y."))
(setq p3 (list (car p1)(cadr p2)(caddr p1))) ;get x and z value from p1 and y value from p2
(ssadd (entmakex (list (cons 0 "POINT")(cons 10 p3))) ss) ;create point
(command "_.move" ss "" "_non" p3)
)

Hi benhubel,

it´s exactly that what I need.

Thx for your answer and help.