[Alan]

Что то у меня совсем закисли мозги
Нужен кусок текста без vl-symbol-name. Сейчас перебрасываю свою прожку под ZWCAD. А у китайцев не все заявленные функции работают, в том числе vl-symbol-name.
Есть список который нужно отсортировать по первой части. Вот так всё чудненько работает в Автокаде.

Код:

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

 
;; есть например список
(setq spmr '(("Км|C2" 2)
      ("Км|3" 3)
      ("Км|4" 4)
      ("Плм|2" 2)
      ("Плм|1" 1)
      ("XX|1" 4)
     )
) ;_ конец setq
;; сортируем его
(setq spmr (vl-sort spmr
      '(lambda (s1 s2)
         (< (vl-symbol-name (read (car s1)))
             (vl-symbol-name (read (car s2)))
         ) ;_ конец <
       ) ;_ конец lambda
    ) ;_ конец vl-sort
) ;_ конец setq
;; получаем результат
(("XX|1" 4) ("Км|3" 3) ("Км|4" 4) ("Км|C2" 2) ("Плм|1" 1) ("Плм|2" 2))

Кто может покопаться в своих старых текстах, помогите.

[Кулик Алексей aka kpblc]

А такое не покатит?

Код:

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

(vl-sort smpr (function (lambda (a b) (< (car a) (car b)))))

[Alan]

>Алексей.
Спасибо за быстрый ответ. Но!
В Автокаде твой текст у меня возвращает nil
А в ZWCAD ошибка.
Загружаем список
Загружается E:\2009_ZWCAD\Zacad.Lsp\test_sort.LSP
Есть такой
Команда: (("Км|C2" 2) ("Км|3" 3) ("Км|4" 4) ("Плм|2" 2) ("Плм|1" 1) ("XX|1" 4))
Запускаем
Команда: (vl-sort smpr (function (lambda (a b) (< (car a) (car b)))))
Ошибка: Нулевая функция
(FUNCTION (LAMBDA (A B) (< (CAR A) (CAR B))))
(VL-SORT SMPR (FUNCTION (LAMBDA (A B) (< (CAR A) (CAR B)))))

[Елпанов Евгений]

смотри три варианта сортировки, в моих уроках рекурсий...
вариант 1
вариант 2
вариант 3
Удачи!

[CB]

Код:

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

 
(setq spmr '(("Км|C2" 2)
("Км|3" 3)
("Км|4" 4)
("Плм|2" 2)
("Плм|1" 1)
("XX|1" 4)
)
) ;_ конец setq

Код:

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

(vl-sort smpr (function (lambda (a b) (< (car a) (car b)))))

[Alan]

CB, огромное спасибо за указание на мою невнимательность.
Алексей, ну а тебе ОГРОМНАЯ благодарность. Ты как всегда выручил.
Но в ZWCAD эта конструкция всё равно не работает.
Привожу протокол.
Команда: (setq spmr '(("Км|C2" 2)("Км|3" 3)("Км|4" 4)("Плм|2" 2)("Плм|1" 1)("XX|1" 4)))
(("Км|C2" 2) ("Км|3" 3) ("Км|4" 4) ("Плм|2" 2) ("Плм|1" 1) ("XX|1" 4))
Команда: (setq a (vl-sort spmr (function (lambda (a b) (< (car a) (car b))))))
Ошибка: Нулевая функция
(FUNCTION (LAMBDA (A B) (< (CAR A) (CAR B))))
(VL-SORT SPMR (FUNCTION (LAMBDA (A B) (< (CAR A) (CAR B)))))
(SETQ A (VL-SORT SPMR (FUNCTION (LAMBDA (A B) (< (CAR A) (CAR B))))))
Но kpblc, не был бы крЫс"ом!!!!! Заменил (function на '
Т.е. решение для ZWCAD (и кажется для BriksCAD)
(setq a (vl-sort spmr '(lambda (a b) (< (car a) (car b)))))

[Кулик Алексей aka kpblc]

При чем тут крыс - не очень ясно У тебя же у самого в начале было поставлено '
Это я уже по привычке заменил на function.
Но все равно спасибо