project toward a line in a perpendicular angle

[samifox]

Hi

 

my problem is like this :

 

in some points in my script the lisp generate a line, than i ask the user to set a point in a specific location , the point than has to project toward the line in a perpendicular angle , and than perform break on the intersected point.

 

i have no clue how to do it or if its even possible

 

see attchment

 

Thanks in advance

Shay

[MSasu]

Please check the vlax-curve-getClosestPointTo function; the shortest distance from a point to a line is its projection on said line (the perpendicular).

[pBe]

(defun c:demo ()
 (command "_.line" "\\" "\\" "")
 (setq lin (entlast))
 (command "_point" "\\")
 (setq p (vlax-curve-getClosestPointTo lin (getvar 'lastpoint)))
 (command "_break"
   lin
   "_non"
   (setq p (vlax-curve-getClosestPointTo lin (getvar 'lastpoint)))
   "_non"
   p
 )
)

 

EDIT: Oops. Msasu beat me to it anyhoo try the demo code

[samifox]

thank you

what is "\\" ? (cant excute right now)

[samifox]

i think there is aproblem with `lastpoint

[samifox]

im using cad 2010

 

its "lastpoint" that works

 

Thanks again

Shay

[Tharwat]

thank you

what is "\\" ? (cant excute right now)

Replace it with pause and try again .

[samifox]

Replace it with pause and try again .

 

i see

thanx