[Sta1917]

Здравствуйте, начал понемногу изучать лисп. Тем про сортировку много, но без примера ничего не понятно. Сделал список из выбранных замкнутых полилиний (прямоугольников), теперь их нужно отсортировать слева направо и сверху вниз. Не могу понять как сделать сортировку, точнее тест-функцию. Взял ее у VVA
При выполнении выдает "; ошибка: неверный тип аргумента: listp <Selection set: 4>"
Помогите с тест-функцией и объясните как она работает. Всем откликнувшимся спасибо.

Код:

[Выделить все]

 (vl-load-com)
    (setq nabor (ssget "_:l"		;(ssget "l") Выбирает последний примитив,прибавленный к базе данных.
					 ;формирует набор по запросу и признаку (ssget <метод> <точка1> <точка2> <список> <фильтр>)
		     '((0 . "*polyline") ;dxf-cod:0-тип примитива;
		       (8 . "0")	 ;	 8- имя слоя
		      )
	      )	;end_ssget
  ) ;end_setq
  (setq spisok
	 (vl-sort nabor
		  (function
		    (lambda (x1 x2)
		      (or
			(< (nth 1 x1) (nth 1 x2))
			(and
			  (equal (nth 1 x1) (nth 1 x2))
			  (< (nth 1 (nth 2 x1)) (nth 1 (nth 2 x2)))
			) ;_ end of and
		      ) ;_ end of or
		    ) ;_ end of lambda
		  ) ;_ end of function
	 ) ;_ end of vl-sort
  ) ;_ end of setq
    )

[gomer]

Сообщение от Sta1917 ошибка: неверный тип аргумента: listp <Selection set: 4>"

Все ж ясно написано, несоответствие типов nabor и spisok. Для того, чтоб сортировать nabor, его нужно преобразовать в список, для этого нужно поискать соответствующую функцию типа ss->list
Почитайте о типах данных в автолиспе...