0 Members and 1 Guest are viewing this topic.
No testsCode - Auto/Visual Lisp: [Select](setq pt (getpoint "\nPoint : ") ent (car (entsel "\nPline : "))) ;_ end of setq (setq a (angle (vlax-curve-getclosestpointto ent pt) pt))(cond ((< (* pi 0.5) a (* pi 1.5)) "left") ((equal a (* pi 0.5) 1e-6) "top") ((equal a (* pi 1.5) 1e-6) "bottom") (t "right")) ;_ end of cond
Consider an expression such as the following:Code - Auto/Visual Lisp: [Select](minusp (sin (- (angle l1 pt) (angle l1 l2))))Where:pt is the point to be testedl1 & l2 are end points of a line to test againstThe expression will return T if the point lies to the left of the line, and nil if on the right.