Autocad lisp intersecting polyines