[Mozgunov]

Ребят есть такой вопрос. Имеется 4 точки pt1, pt2, pt3, pt4. Как выстроить их по часовой стрелке? Середина циферблата это пересечение между линиями соединяющие точки через одну. (Autolisp). Спасибо!

[E-degtyarev]

Извините, непонятно. Каждая точка имеет свои координаты. Если их как-то
начать "выстраивать", т.е. перемещать, я так понимаю это будут уже другие точки (с другими координатами)?

[Mozgunov]

Менять координаты не нужно. Нужно поменять местами имена точек с этими координатами. На рис.1 , рис.2 точки расположены по часовой стрелке. На рисунке 3, 4 беспорядочно. Нужна функция которая бы преобразовала беспорядочное расположение точек к виду "точки по часовой стрелке". Единственное условие это чтобы точка pt2 оставалась на своём первоначальном месте.

[Do$]

А что нужно-то? Совет по алгоритму такой программы? Готовую программу? С чего начать?

[Mozgunov]

Совета по алгоритму я думаю хватит.

[Елпанов Евгений]

проверяй, с какой стороны от линии pt2 pt4 находятся pt1 pt3. Во первых, они должны быть с разных сторон, во вторых pt1 должна быть справа.
Проверки, рекомендую делать с помощью углов...

[Disney]

Сообщение от Mozgunov Совета по алгоритму я думаю хватит.

Извини, была готовая

Код:

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

(defun sort_by_clok (point
		     centr
		     start_angle
		     dir
		     /
		    )
  ;|
point - список точек
centr - центр циферблата
start_angle - начальный угол отсчёта в радианах
dir - направление > - по часовой < - против часовой
  |;
  (vl-sort
    point
    (function
      (lambda (e1 e2)
	(setq e1 (list (car e1)
		       (cadr e1)
		 )
	      e2 (list (car e2)
		       (cadr e2)
		 )
	)
	(setq angle_1 (- (angle	centr
				e1
			 )
			 start_angle
		      )
	      angle_1 (if
			(minusp angle_1)
			 (+ angle_1 pi pi)
			 angle_1
		      )
	      angle_2 (- (angle	centr
				e2
			 )
			 start_angle
		      )
	      angle_2 (if
			(minusp angle_2)
			 (+ angle_2 pi pi)
			 angle_2
		      )
	)
	(dir angle_1 angle_2)
      )
    )
  )
)

центр сам найдёшь.

[Олег (jr.)]

Сообщение от Mozgunov Ребят есть такой вопрос. Имеется 4 точки pt1, pt2, pt3, pt4. Как выстроить их по часовой стрелке? Середина циферблата это пересечение между линиями соединяющие точки через одну. (Autolisp). Спасибо!

Нашел в загашнике

Код:

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

try.lsp
((lambda()
   (setq pts nil)
(while (setq p (getpoint "\nPick point (or push Enter to Exit loop) : >>: "))
(setq pts (cons p pts)))
(setq pts (mapcar '(lambda(x)(trans x 1 0))(reverse pts)))

(setq x1 (caar (vl-sort pts '(lambda (a b) (< (car a) (car b)))))
      y1 (cadar (vl-sort pts '(lambda (a b) (< (cadr a) (cadr b)))))
      x2 (caar (vl-sort pts '(lambda (a b) (>(car a) (car b)))))
      y2 (cadar (vl-sort pts '(lambda (a b) (> (cadr a) (cadr b)))))
      cp (mapcar '(lambda(a b)(* (+ a b) 0.5)) (list x1 y1)(list x2 y2)))

(setq pts (vl-sort pts '(lambda (a b) (< (angle cp a) (angle cp b)))))
(setq i 1)
(foreach p pts
  (entmake
    (list (cons 0 "TEXT")
                  (cons 10  p)
                  (cons 40 200)
                  (cons 1  (itoa i))))
  (setq i (1+ i)))
   (princ)
   )
  )

[zamtmn]

Проверки, рекомендую делать с помощью углов...

ИМХО. Углы нужно всегда избегать использовать, тригонометрия - лишняя и медленная возня. Вполне достаточно получить уравнение прямой вида ax+by+c=0 и подставив в него координаты проверяемых точек по знаку определить слева или справа они лежат.

Для решения я бы сортировал список точек чтобы Z составляющая векторных произведений векторов образованных 3мя соседними точками была одного знака, в зависимости по или против часовой нужно получить результат

[Олег (jr.)]

Сообщение от zamtmn ИМХО. Углы нужно всегда избегать использовать, тригонометрия - лишняя и медленная возня. Вполне достаточно получить уравнение прямой вида ax+by+c=0 и подставив в него координаты проверяемых точек по знаку определить слева или справа они лежат. Для решения я бы сортировал список точек чтобы Z составляющая векторных произведений векторов образованных 3мя соседними точками была одного знака, в зависимости по или против часовой нужно получить результат

Это для меня сложно- только 8 классов еле одолел, не считая на второй год