(setq point_id (list (x,y,z)))
this will store ur point or co-ordinate value.
(setq sset (ssget "c" point_id point_id (list (cons 0 "lwpolyline")))) this will create a selection set for pline on that point. if it is not returning nil means pline is crossing from that point. regards nagesh