vl-sort help
Good day! Below is an excerpt of code: (princ "\n qList1: ")(princ qList) (setq qList (vl-sort qList (function (lambda (x y) (< (car x) (car y)))))) (princ "\n qList2: ")(princ qList) And below is the what is returned: qList1: ((NEW-TEST-VAL
forums.autodesk.com
(defun LM:Unique ( l )
(if l (cons (car l) (LM:Unique (vl-remove (car l) (cdr l)))))
)
(setq l '(0 0 5 7 4 3 0 2 2 7 ))
(lm:unique l)
(vl-sort (lm:unique l) '<)
반응형
'autocad' 카테고리의 다른 글
| find x values of lwpolyline (0) | 2021.07.05 |
|---|---|
| V Functions (0) | 2021.07.05 |
| (LM:Unique list) (0) | 2021.07.05 |
| LEE MAC PROGRAMMING (0) | 2021.07.05 |
| List x-values of Vertex of LWPOLYLINE (0) | 2021.06.30 |