; sorts on 1st two items
(setq lst (vl-sort lst '(lambda (x y)
(cond
((= (cadr x)(cadr y))
(< (car x)(car y)))
((< (cadr x)(cadr y)))
))))
I do not understand. The list already contains the rotation angles (in radians).
((angle1 ename ename ...) (angle2 ename ename ...) ...)