[annt]

1) Полилиния замкнутая.
2) Надо проверить что это прямоугольник (4 стороны, углы прямые).
3) нужен код на LISP.
Спасибо.

[Profan]

Нарисуй на одной стороне новый прямоугольник и сравни.

[KennyMckormik]

прямоугольник, как мне кажется, должен быть с прямыми углами: измерь один угол - вот и узнаешь

ЗЫ: как координаты трех вершин, любые три будут смежными, взять - посмотри по форуму, как из координат получить угол между векторами - в математике

[VVA]

annt,
ОНО?

[annt]

Спасибо

[Эдуард]

Всем привет.
Выбрал эту тему для разминки мозга

Код:

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

 
;; Возвращаемое значение T если замкнутая полилиния - прямоугольник , в остальных случаях nil
(defun es_rectbool (/ obj_pline)
  (if
    (and
      (setq obj_pline (ssget "_:E:S" '((0 . "lwpolyline") (90 . 4))))
      (= (logand (cdr (assoc 70 (entget (ssname obj_pline 0)))) 1)
	 1
      )
    )
     (zerop
       (apply '-
	      (mapcar
		'(lambda (x)
		   (distance (car x) (cadr x))
		 )
		(apply 'mapcar
		       (cons 'list
			     (es_splitlist
			       (es_splitlist
				 (vlax-safearray->list
				   (vlax-variant-value
				     (vla-get-coordinates
				       (vlax-ename->vla-object
					 (ssname obj_pline 0)
				       )
				     )
				   )
				 )
				 2
			       )
			       2
			     )
		       )
		)
	      )
       )
     )
  )
)

Вспомогательная функция для разбиения списка

Код:

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

 
;аргументы 
;lst- список на входе
;n - количество элементов в подсписках
(defun es_splitlist (lst n)
  (if
    (and
      (not x)
      (setq n (fix n))
    )
     (setq spisok nil)
  )


  (if lst
    (cond
      (
       (and
	 (setq spisok (cons (car lst) spisok))
	 (/= (length lst) 1)
	 (< (length spisok) n)
	 (setq x (length spisok))
       )

       (es_splitlist (cdr lst) n)

      )

      (
       (or
	 (and
	   (= (length spisok) n)
	   (not (setq x nil))
	 )
	 (and
	   (= (length lst) 1)
	   (not (setq x nil))
	 )
       )

       (cons (reverse spisok) (es_splitlist (cdr lst) n))
      )
    )
  )
)

[skkkk]

Эдуард, спасибо за код. Пригодился. Попробовал использовать его в теме Подобие прямоугольников по X, Y. Но у автора темы в файле, приложенном к посту #14, некоторые углы имеют значения 89.999999 градусов, поэтому от проверки на прямоугольность там пришлось отказаться.
Я потестировал код поглубже, результаты тестирования отразил в приложенном файле. Все вроде хорошо, но не дает покоя, почему не определяет прямоугольником образец №6? С №7 понятно, там углы не 90 градусов. Но №6-то построен с применением привязки и полярного и объектного отслеживания, углы при максимальной точности отображения показывают точно 90 градусов, ан нет - не прямоугольник! Может, точность отслеживания не абсолютна? И разнится где-то на еще большей точности отображения, коя в Автокаде на доступна? В общем, я подумал, может, стоит добавить в Ваш код допуск?