I'll check it out when time permits.
There is a newer version out there. If I find the link I'll post it.
Code:
(defun @cv_inside (PIQ Object Draw / IsPolyline Closest Start End Param P ClosestParam
NextParam a1 a2 Defl @2D @Insect @Bulge @Deflect
@Closest Color)
;; "LOOK, MA'... NO RAYS!"
;; @Inside.lsp v1.0 (09-15-03) John F. Uhden, Cadlantic.
;; v2.0 Revised (09-17-03) - See notes below.
;; v3.0 Revised (09-20-03) - See notes below.
;; v4.0 Revised (09-20-04) but still missing something
;; v5.0 Revised (04-04-04) - See notes below.
Also do a search for the @cv_triple_up function, it's very fast.