[Станислав_]

Всем здравствуйте! Сочинил программу по расстановке блоков на плане по заданным трём точкам, причём блоки привязываются к положению отрезка между точками pt1 и pt2, который может не совпадать с направлением оси Х. Расставляемые блоки имеют свои зеркальные копии и поэтому блоки разделяются на Правые и Левые, что определяется по их названию: например, Блок_П (правый блок) и Блок_Л (левый блок). Для выбора левого или правого блока сделал код, который привожу ниже:

Код:

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

 (setq ang_ (angle pt1 pt2))
	      (cond
                ((equal ang_ 0 0.000000001)  ;если угол между осью Х и отрезком между точками pt1 и pt2 равен 0, то
                 (cond
                   ((> (cadr pt2)(cadr pt3)) (setq bl_nm (VL-STRING-SUBST "П" "Л" bl_nm 3)))  ;Правый блок
                   ((< (cadr pt2)(cadr pt3)) (setq bl_nm (VL-STRING-SUBST "Л" "П" bl_nm 3)))  ;Левый блок
                 )
                )
                ((equal ang_ pi 0.000000001)  ;если угол между осью Х и отрезком между точками pt1 и pt2 равен pi, то
                 (cond
                   ((> (cadr pt2)(cadr pt3)) (setq bl_nm (VL-STRING-SUBST "Л" "П" bl_nm 3)))  ;Левый блок
                   ((< (cadr pt2)(cadr pt3)) (setq bl_nm (VL-STRING-SUBST "П" "Л" bl_nm 3)))  ;Правый блок
                 )
                )
                ((<= ang_ pi)  ;если угол между осью Х и отрезком между точками pt1 и pt2 меньше либо равен pi, то
                 (cond
                   ((>= (car pt2)(car pt3)) (setq bl_nm (VL-STRING-SUBST "Л" "П" bl_nm 3)))   ;Левый блок
                   ((<= (car pt2)(car pt3)) (setq bl_nm (VL-STRING-SUBST "П" "Л" bl_nm 3)))   ;Правый блок
                 )
                )
                ((> ang_ pi)  ;если угол между осью Х и отрезком между точками pt1 и pt2 больше pi, то
                 (cond
                   ((> (car pt2)(car pt3)) (setq bl_nm (VL-STRING-SUBST "П" "Л" bl_nm 3)))    ;Правый блок
                   ((< (car pt2)(car pt3)) (setq bl_nm (VL-STRING-SUBST "Л" "П" bl_nm 3)))    ;Левый блок
                 )
                )
              )

После определения модификации блока (Л или П), он вставляется из базы через vla-InsertBlock.
Во время работы программы при установке блока в горизонтальном положении блок по данному коду может быть выбран неверно. Число неверных выборов при расстановке на одном плане в один горизонтальный ряд небольшое, но есть!
Прошу совета у знающих людей, как исправить код или подсказать, есть ли другой способ определения Левый-Правый, отличный от моего. Заранее всех благодарю за ответы!

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

А там точно угол поворота, а не зеркалирование (масштаб по оси Х, к примеру, равен -1) ?

[Станислав_]

Не зеркалирование. Блоки вставляются каждый из своего файла, Левый из одного, Правый из другого.

[koMon]

Сообщение от Станислав_ другой способ определения Левый-Правый

умножение векторов

Код:

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

 
(defun vector_multiplying (line_1 line_2 / x1 y1 z1 x2 y2 z2)
  	(mapcar 'set '(x1 y1 z1) (mapcar '- (cadr line_1) (car line_1)))
  	(mapcar 'set '(x2 y2 z2) (mapcar '- (cadr line_2) (car line_2)))
	(if (minusp (caddr (list (- (* y1 z2) (* z1 y2))
		      				 (- (* z1 x2) (* x1 z2))
		      				 (- (* x1 y2) (* y1 x2))
					   )
				)
		)
		"П" "Л"
	)
)
(setq pt1 (getpoint "\nТочка 1: ")
	  pt2 (getpoint pt1 "\nТочка 2: ")
	  pt3 (getpoint pt2 "\nТочка 3: ")
	  ang_ (angle pt1 pt2) 
	  line_1 (list pt1 pt2)
	  line_2 (list pt2 pt3)
	  block_direction (vector_multiplying line_1 line_2)
	  bl_nm (cond 
				((= "П" block_direction) (vl-string-subst block_direction "Л" bl_nm 3))
				((= "Л" block_direction) (vl-string-subst block_direction "П" bl_nm 3))
			)
)

[Станислав_]

koMon, спасибо! Вечером попробую.

[Станислав_]

koMon, ещё раз огромное спасибо! Совсем забыл, что есть векторная алгебра!