[Torino]

Код:

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

  (vl-remove-if-not
    '(lambda (x)
       (or (= (car x) 10) (= (car x) 40) (= (car x) 41))
     )
    ent-list
  )

где ent-list

Код:

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

((-1 . <Entity name: 7efb0e20>) (0 . "LWPOLYLINE") (330 . <Entity name: 7efa0cf8>) (5 . "8C5C") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbPolyline") (90 . 2) (70 . 0) (43 . 0.0) (38 . 0.0) (39 . 0.0) (10 222.0 333.0) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 444.0 555.0) (40 . 0.0) (41 . 0.0) (42 . 0.0) (210 0.0 0.0 1.0))

По идее в результете работы функции должен получаться список

Код:

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

((10 222.0 333.0) (40 . 0.0) (41 . 0.0)(10 444.0 555.0) (40 . 0.0) (41 . 0.0))

Однако на выходе я получаю список без изменений. Почему?

[Геннадий aka PG]

ЧТо тут "X" ?
может (car x) заменить на (car (car x)) ?

[Torino]

Проблема решена (спасибо Эдуарду):

Я думал, что функция vl-remove-if-not модифицирует исходный список (ent-list)
А оказывается измененный список является возвращаемым значением этой функции.

>>Геннадий aka PG
(car x) извлекает первый элемент точечной пары.

[{Smirnoff}]

Код:

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

(vl-remove-if-not '(lambda (x)(member (car x) '(10 40 41)))ent-list)

В данном случае красивше

[Torino]

Твоя правда