[swkx]

spisokt - список вида ((N1 x1 y1 z1) (N2 x2 y2 z2) ... (Nn xn yn zn))
t0 - точка с известными координатами
Мне нужно найти в списке точку tvspiske с координатами как у t0
Верно ли составлена функция поиска нужной точки ?

Код:

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

(setq tvspiske
  (vl-remove-if-not
    (function
    (lambda (x)
      (= (cdr x) t0)
    )
    )
  spisokt
  )
)

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

Замени "=" на "equal" и укажи (при необходимости) точность сравнения.

[Евгений А.]

Есть ещё vl-member-if и vl-member-if-not работать будет быстрее, если по логике подойдёт :-)

[swkx]

Теперь отрабатывает без ошибок. А что говорит теория, не будет ли более призводительным такой вариант той же функции ?:

Код:

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

(setq tvspiske
	(vl-remove-if-not
	  (function
		(lambda (x)
		  (AND
			(= (nth 0 (cdr x)) (nth 0 t0))
			(= (nth 1 (cdr x)) (nth 1 t0))
			(= (nth 2 (cdr x)) (nth 2 t0))
		  )
		)
	  )
	  spisokt
	)
)

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

На autolisp.ru есть код benchmark и примеры его использования. Скажу честно, просто повторяться лениво.

[Евгений А.]

Думаю, что так только медленнее будет. Сравнивал как-то nth и cadddr, так nth - оказалась гораздо тормознутее. тут думаю это скажется.

[swkx]

Понял, учту.

[CB]

Код:

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

(vl-remove-if-not
  (function
    (lambda (x)
      (equal x t0 0.0001)
    ) ;_ end of lambda
  ) ;_ end of function
  spisokt
) ;_ end of vl-remove-if-not

[swkx]

СВ,

Алексей мне так и объяснил

допуск 0.0001 нужен всегда, даже если все построения выполнялись с шаговой привязкой ? или на всякий случай?

у меня вроде и без него всё корректно..