[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), а это исключает повторное попадание примитивов в набор. Но для порядка, конечно, лучше обрабатывать дубли, однако, это сильно усложняет задачу, на мой взгляд, поэтому, думаю, вернусь к этому в случае необходимости.
Вот интересно, неужели ни у кого не возникало до сих пор такой задачи?

[nolte]

ежли сравниваешь примитивы поищи "хеш сумма" - это сумма списка entget примитива.

[VVA]

Посмотри у Lee Mac'a еще функции :
List Box Functions
List Difference
List Intersection
List Symmetric Difference
List Union

[skkkk]

Сообщение от nolte ежли сравниваешь примитивы поищи "хеш сумма" - это сумма списка entget примитива.

nolte, нашел тему Lisp. Выделение нового в чертеже. С первого взгляда не понял, как определить такую сумму у отдельно взятого примитива, а разбираться и копать глубоко не охота... И есть подозрения, что это не самый быстродейственный вариант. Всё же списки обрабатывать, на мой взгляд, - менее ресурсоемкое занятие.
VVA, спасибо, Володь! В который раз выручаешь, когда уже не осталось надежд.
Я так понимаю, что из этих функций более всего подходят List Difference (если вернет ноль элементов, значит, списки равны) или List Intersection (если вернет все элементы одного списка, значит они равны). То, что надо.

[gomer]

Сообщение от Дима_ сравниваешь размеры, если равны берешь первый и проверяешь есть ли такой элемент во втором.

сначала нужно отсортировать примитивы, преобразовав в набор список. не факт, что в двух наборах одни и те же примитивы будут в том же порядке

[Дима_]

читай внимательней - проверяешь есть-ли такой во втором (то есть пробегаешься по всему списку до совпадения)

[skkkk]

Сообщение от gomer не факт, что в двух наборах одни и те же примитивы будут в том же порядке

Я так понял, что Дима_ предлагает проверять второй список на наличие 1-го примитива первого списка, затем на наличие 2-го примитива первого списка и т.д. В таком случае порядок не важен.
А если отсортировать, то можно просто попарно сравнивать n-ные примитивы каждого списка.
В первом случае имеем nxn итераций, во втором - сортировку и просто n итераций. Правильно я понимаю?
Только вот как сортировать? vl-sort? Какую тогда брать тест-функцию? Или в лоб, acad_strlsort?

[nolte]

С первого взгляда не понял, как определить такую сумму у отдельно взятого примитива, а разбираться и копать глубоко не охота... И есть подозрения, что это не самый быстродейственный вариант. Всё же списки обрабатывать, на мой взгляд, - менее ресурсоемкое занятие.

полностью поддерживаю, сразу видно, что способ будет заторможенным

[skkkk]

Пока писал, отвлекался, Дима_ сам ответил

----- добавлено через ~1 мин. -----
nolte, спасибо за участие

[gomer]

Как вариант использовать связку ssmemb и ssdel. если рекурсивно, то быстродействие останется на втором плане