[mamuk]

доброго времени суток!! подскажите как сравнить два списка вида '((10 . x y) (10 . x y) (10 . x y)....) и '((10 . x y z) (10 . x y z) (10 . x y z)....) при том два списка не равны по количеству содержимого. Задача найти одинаковые по значениям x и y и сформировать новый список в котором будут ( 10 . x y z)?

[Дима_]

Ну, как вариант, как-то так:

Код:

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

 (defun test(l1 l2) 
  ((lambda (lst) (vl-remove-if-not '(lambda (x) (member (cdr (reverse x)) lst)) l2))
   (mapcar 'reverse l1)))

[mamuk]

спасибо! потестю!!

[gomer]

вообще не понял ничего

[mamuk]

Сообщение от gomer вообще не понял ничего

че я написал?

[maratovich]

Offtop:

Сообщение от mamuk че я написал?

С точки зрения бональной эрудиции, мы не можем игнорировыть тенденции, либо каждый мыслящий индивидуум амортизирует абстракции.
Я тоже не понял... Походу mamuk и Дима_ в одном кабинете сидят.

[gomer]

Сообщение от maratovich Походу mamuk и Дима_ в одном кабинете сидят.

Шутки шутками, но код из #2 не будет работать со списками из #1. Точнее с ними не будет работать никакой код. Это раз. Списки из #1 уж очень похожи на ошметки полилинии, но в таком случае все это сравнение до одного места.
Offtop: С точки зрения банальной эрудиции и метафизической абстракции, не каждый мыслящий индивидуум в препубертатный период способен развивать тенденции к продуктивной регенерации

[Дима_]

Уж не знаю правильно ли я понял - судя по всему mamuk сравнивает двухмерные dxf коды с трехменрыми, но скорее всего делает это не правильно - т.к. не преобразует из системы координат объекта, а считает что лежит он строго в мск, но как говориться хозяин барин - что просил, то и написал (и если с таким кодом возникли трудности, то на следующий уровень наверное пока еще и не нужно - так-бы заработало), хотя как говориться чем дальше в лес, тем злее партизаны - может и так вполне хватит.

[mamuk]

попробую без абстракций.
Есть чертеж в котором примитивы точки и блоки. координаты блока и точки совпадают. но блок имеет координату без Z т.е. она равна 0. а точка под этим блоком имеет точно такие же координаты, только с определенной Z. Есть необходимость получить список координат тех точек которые равны координатам блока. В моем случае я хочу получить координаты точек которые совпадают с координатами блока. вот я и думал получить два списка координат блока и точек и попытаться выудить нужные значения и сформировать список.
чертеж прилагаю
конкретно интересует блок BL_82

[Дима_]

Тут по хорошему надо написать свой member проверяющий точки с определенной погрешностью (типа минимальное расстояние менее чем определенный допуск) - но это тебе в качестве домашнего задания.

[mamuk]

Сообщение от Дима_ Тут по хорошему надо написать свой member проверяющий точки с определенной погрешностью

а есть хоть какие то наводки (ссылки) почитать. заранее благодарен!

[gomer]

Сообщение от Дима_ Тут по хорошему надо написать свой member проверяющий точки с определенной погрешностью (типа минимальное расстояние менее чем определенный допуск)

Сообщение от mamuk а есть хоть какие то наводки (ссылки) почитать. заранее благодарен!

Код:

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

 (equal '(0.0 0.1 0.0) '(0.0 0.01 0.0) 0.1)

[VVA]

Сообщение от Дима_ Тут по хорошему надо написать свой member проверяющий точки с определенной погрешностью

По моему здесь было. Искать по слову _dwgru-assoc-multi
Для сравнения координат нужно немного доделать

Код:

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

(defun _dwgru-assoc-xy-multi-fuzz (key lst fuzz / OutList)
  ;;; key - ключ (точка)
  ;;; lst - список точек
  ;;; fuzz - точность
  (setq key (lst_xy key))
  (foreach pt lst
    (if (equal key (lst_xy pt) fuzz)
      (setq OutList (cons pt OutList))
      )
    )
  (reverse OutList)
  )
(defun lst_xy (lst)(mapcar '+ '(0.0 0.0) lst))

Пример

Код:

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

(setq lst_point '((0.0 0.0 100.0)(10.2 11.3 2.2)(3.3 4.2 50.50)(10.2 11.3 11.8)(22.2 0.5 20.22)))
(setq lst_blk '((10.2 11.3 0.0)(0.0 0.0 0.0)(3.3 4.2 0.0)(22.2 0.5 0.0)))
(setq point (car lst_blk))
(princ "\nТочка вставки блока:")(princ point)
(princ "\nНайденные точки:")(_dwgru-assoc-xy-multi-fuzz point lst_point 1e-6)(princ)

[maratovich]

Сообщение от mamuk координаты блока и точки совпадают

Что то я не нашел таких....

[mamuk]

Сообщение от maratovich Что то я не нашел таких....

только z не совпадает.

[maratovich]

Сообщение от mamuk только z не совпадает

Хоть одну координату напиши в которой совпадает точка вставки блока с точкой на чертеже.

[mamuk]

452182.3687,6871901.6250

[skkkk]

Появилась задача сравнивать два разноименных набора на предмет одинаковости его членов. То есть, помимо количества объектов нужно выяснить, одни ли и те же объекты входят в эти наборы или нет.
В поисках ничего подобного не нашлось, и пришла мысль сравнивать списки примитивов. Нашел только эту тему, но тут такого решения нет...
Может, кто-то видел или писал нечто подобное, подскажите, буду весьма признателен.

[Дима_]

сравниваешь размеры, если равны берешь первый и проверяешь есть ли такой элемент во втором.
з.ы. еще подумать возможны-ли "дубли" объектов и если есть, то как их обрабатывать (тут возможны варианты - которые следует учесть в зависимости от задачи).

[skkkk]

Спасибо, Дим, а как думаешь: рациональнее сравнивать непосредственно наборы или списки примитивов?
Задача состоит в том, чтоб определить, совпадает ли некий набор, записанный в переменную, с выделенными в данный момент примитивами. По сему, дублей объектов не будет, так как один из сравниваемых наборов будет создаваться либо через (ssget "_I"), либо через (ssgetfirst), а это исключает повторное попадание примитивов в набор. Но для порядка, конечно, лучше обрабатывать дубли, однако, это сильно усложняет задачу, на мой взгляд, поэтому, думаю, вернусь к этому в случае необходимости.
Вот интересно, неужели ни у кого не возникало до сих пор такой задачи?