[nolte]

вроде вопрос простой но не поддаются сравнению трехмерные точки. Черчу линию вдоль оси У координаты Х должны быть равны если делаю >= выдает nil а при сравнении < T как правильно сравнить

Код:

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

(setq n_l (ssadd))
	(setq n_l (ssget))
	(setq t1 (cdr (assoc 10 (entget (ssname n_l 0)))))
	(setq t2 (cdr (assoc 11 (entget (ssname n_l 0)))))
	(setq dl (distance t1 t2))
	(setq tz (polar t1 (angle t1 t2) (/ dl 2)))
	
		(if (and (>= (car t1) (car t2)) (>= (cadr t1) (cadr t2)) 
(>= (caddr t1) (caddr t2))) ;выдает nil, так как (>= (cadr t1) (cadr t2)) -- nil
			(progn
			(setq i 50)
			(setq ug (+ ug pi)))
			(setq ug (angle t1 t2))
		)

[hwd]

В информатике, сравнивая вещественные числа, следует указывать точность, которая тебе нужна. Эта проблема - на уровне аппаратного обеспечения. Пример (код не сложный, суть поймёшь):

Код:

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

const double precision = 0.000001;
double a = 0, b = 0;

// некоторый код, присваивающий значения переменным 'a' и 'b'...

// сравниваем значения допуска и абсолютного значения разницы |a-b|.
bool same = fabs(a - b) < precision; 
if(!same) error("Значения не равны!");

[ShaggyDoc]

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

А конкретно в Lisp надо для сравнения использовать функцию (equal expr1 expr2 [fuzz])

[Дима_]

Код:

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

 (equal pt1 pt2 0.0001)

Offtop: ops - обогнали на повороте

[nolte]

да разобрался кажется спасибо большое всем откликнувшимся.

[hwd]

Сообщение от nolte да разобрался кажется спасибо большое всем откликнувшимся.

казнить нельзя помиловать

[nolte]

да, есть такой грешок.