Blog

Lisp of the Day

VL-SORT

(vl-sort list function)

The lisp function of the day is VL-SORT. I have used this in many ways in the past but my most recent application was to find a vertical line that was the furthest to the right based on a common start point where the “Y” value was “0”.

;Selecting filter
(ssget "_x" (list (cons -4 "*,=,*") (list 10 0 0 0)))
;Sorting
(vl-sort xlist '>)

The first element was the furthest line to the right.

Advertisements