This sample function works fine with the sample point-list data listed, but when I use the actual point list generated by the polygon I get a nil result for vl-postion
(defun testme (/ poly minx startxy startvertex)
(setq poly (list (list 7.5 14.0) (list 7.5 7.0) (list 1.5 7.0) (list 1.5 14.0)(list 14.0 22.1)(list -11.0 14.0)))
(setq minx (apply 'min (mapcar 'car poly)))
(setq startxy
(list minx
(apply 'max
(mapcar 'cadr (vl-remove-if-not (function (lambda (x) (equal minx (car x) 0.00000001))) poly)))))
(setq startvertex (vl-position startxy poly))
(list startvertex poly(member startxy poly)))
I am generating the pointlist with a function similar to the ones covered in this thread.
http://www.cadtutor.net/forum/showth...-vertices-list