[iiscienceii]

Добрый день всем.
Задача заключается в следующем:
есть замкнутая полилиния, необходимо проверить вписывается ли она в прямоугольник определенных размеров. Если нет то нужно это вывести в окне предупреждения и предложить разбить эту полилинию отрезком на две фигуры меньшего размера которые бы вписывались в заданый прямоугольник.

Я так понимаю для этого в начале необходимо сохранить коардинаты всех точек полилинии в переменную а затем уже работать с этими коардинатами.
Подскажите пожалуйста как сохранить коардинаты всех точек полилинии в переменную?

[Boxa]

Язык?
Версия автокада?

[iiscienceii]

AutoLisp, AutoCad 2010.

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

А "прямоугольник" существует или нет?
В любом случае как вариант: получить габаритный контейнер (vla-getBoundingBox) и проверить вхождение соответствующих точек в прямоугольник.

[iiscienceii]

Нет прямоугольник не существует. Это проверка на габариты (влезит или не влезит).
Решение которое мне пришло в голову следующее.
Разбиваем полилинию на отдельные отрезки. Выбираем все эти отрезки.
Поочереди их перебераем и в список заносим коардинаты начальной точки каждого отрезка.
Но это получается очень громоздко. Есть, что по проще.

[skkkk]

Сообщение от iiscienceii есть замкнутая полилиния, необходимо проверить вписывается ли она в прямоугольник определенных размеров

Возможный алгоритм: координаты вершин прямоугольника используем как аргументы для функции ssget с опцией "_W" (если брать две диагональные вершины и прямоугольник расположен "горизонтально") или "_WP" (если четыре и прямоугольник расположен под углом к горизонту) и анализируем набор. Если нужная полилиния в него входит, то есть вся она опоясывается рамкой (заметим, НЕ секушей), то проверка возвращает T - вписывается. Правда, тут есть вариант граничного случая, когда полилиния касается стороны прямоугольника - это надо учесть.
Offtop: iiscienceii, прошу изменить название темы в соответствии с правописанием (коОрдинаты). Это я не цепляюсь к грамотности, просто для других в поиске по слову "координаты" эта тема может не всплыть. Без обид, хорошо?

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

Сообщение от iiscienceii Есть, что по проще.

Есть. Я уже написал. Прорабатывать полностью код я не буду - у меня своей работы хватает.

[iiscienceii]

Задачу решил. Всем спасибо.

[skkkk]

iiscienceii, вообще на форумах принято показывать форумчанам найденное решение поставленной задачи. Так сказать, раскрывать тему. А с таким подходом велик риск в последствии все задачи решать самому. Поправьте меня, если я ошибаюсь. И повторюсь: название темы изменить в соответствии с нормами орфографии? Не?
Как переименовать тему?

[iiscienceii]

Если кому поможет выкладываю част програмного кода
Код делает следующее:
Переберает все точки полилинии и заносит их координаты в два списка (координата Х и координата Y), далее ищется максимум и минимум в этих списках. Вычитанием из максимума минимума получаем габарит изделия.

Код:

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

 
        (setq lst (ssget "_X" (list (cons 0 "LWPOLYLINE") (cons 8 "STOLESHNICA"))))
        (command "_copy" lst "" (list 0 0 0)
                                               (list 0 0 0))
        (setq nm_stoleshka1 (entlast))
        (vl-cmdf "_change" nm_stoleshka1 "" "_prop" "_layer" "0" "")
        (vl-cmdf "_explode" nm_stoleshka1)  
        (setq tbl_lst (entget (tblobjname "LAYER" "stoleshnica")) clr_grp (assoc 62 tbl_lst))
        (entmod (subst (cons 62 (- (cdr clr_grp))) clr_grp tbl_lst))
        (setq objekti_stol (ssget "_X" (list (cons 0 "LWPOLYLINE,LINE,ARC") (cons 8 "0") (cons 62 131))))
        (setq nach_objekti_stol_i nil)
        (setq matr_nach_toch nil)
	(setq matr_nach_toch_x nil)
	(setq matr_nach_toch_y nil)
        (setq i 0)
        (setq matr_nach_toch nil) 
        (while (< i (sslength objekti_stol))
             (setq objekti_stol_i (entget(ssname objekti_stol i)))
	     (setq nach_objekti_stol_i (cdr (assoc 10 objekti_stol_i)))
	     (setq matr_nach_toch (append matr_nach_toch (list nach_objekti_stol_i)))
	     (setq matr_nach_toch_x (append matr_nach_toch_x (list (nth 0 (nth i matr_nach_toch)))))
	     (setq matr_nach_toch_y (append matr_nach_toch_y (list (nth 1 (nth i matr_nach_toch)))))
	     (setq i (+ i 1))
	)
        (setq objekti_stol (ssget "_X" (list (cons 0 "LWPOLYLINE,LINE,ARC") (cons 8 "0") (cons 62 131))))
        (vl-cmdf "_erase" objekti_stol "")
        (setq tbl_lst (entget (tblobjname "LAYER" "stoleshnica")) clr_grp (assoc 62 tbl_lst))
        (entmod (subst (cons 62 (- (cdr clr_grp))) clr_grp tbl_lst))
        (setq i 0)
        (setq matr_nach_toch_max_x (nth 0 matr_nach_toch_x) matr_nach_toch_min_x (nth 0 matr_nach_toch_x))
        (while (< i (length matr_nach_toch_x))
	     (if (> (nth i matr_nach_toch_x) matr_nach_toch_max_x)
	       (setq matr_nach_toch_max_x (nth i matr_nach_toch_x))
	     )
	     (if (< (nth i matr_nach_toch_x) matr_nach_toch_min_x)
	       (setq matr_nach_toch_min_x (nth i matr_nach_toch_x))
	     )
	     (setq i (+ i 1))
	)
        (setq i 0)
        (setq matr_nach_toch_max_y (nth 0 matr_nach_toch_y) matr_nach_toch_min_y (nth 0 matr_nach_toch_y))
        (while (< i (length matr_nach_toch_y))
	     (if (> (nth i matr_nach_toch_y) matr_nach_toch_max_y)
	       (setq matr_nach_toch_max_y (nth i matr_nach_toch_y))
	     )
	     (if (< (nth i matr_nach_toch_y) matr_nach_toch_min_y)
	       (setq matr_nach_toch_min_y (nth i matr_nach_toch_y))
	     )
	     (setq i (+ i 1))
	)
        (setq length_x nil length_y nil)
        (setq length_x (- matr_nach_toch_max_x matr_nach_toch_min_x))
        (setq length_y (- matr_nach_toch_max_y matr_nach_toch_min_y))
        (if (= dl_sh_length 0.00)
          (if (or (> length_x 2850.00) (> length_y 900.00))
	    (progn
	         (setq message (strcat "Габариты изделия не должны превышать размер 3000х900 мм.\n"
	   			       " необходимо указать линии разделения, что бы части изделия\n"
				       "                 не превышали указанный размер!"
		               )
                 )
	         (alert message)
	         (exit)
	    )
	  )
	)

Только не учитывается один момент. Если у полилиния есть дуги выходящие за габарит крайних точек то таким способом найти габарит нельзя.
Соответственно вопрос подскажите как найти габариты дуги полилинии

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

Дуговые сегменты забыл.

Код:

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

 (vl-load-com)

(defun tt (/ ent minp maxp)
  (if (setq ent (vlax-ename->vla-object (car (entsel))))
    (progn
      (vla-getboundingbox ent 'minp 'maxp)
      (list (cons "min" (vlax-safearray->list minp))
            (cons "max" (vlax-safearray->list maxp))
            ) ;_ end of list
      ) ;_ end of progn
    ) ;_ end of if
  ) ;_ end of defun

[VVA]

Сообщение от skkkk iiscienceii, прошу изменить название темы в соответствии с правописанием (коОрдинаты). Это я не цепляюсь к грамотности, просто для других в поиске по слову "координаты" эта тема может не всплыть. Без обид, хорошо?

Сообщение от skkkk повторюсь: название темы изменить в соответствии с нормами орфографии? Не?

Сообщение от iiscienceii Если кому поможет выкладываю част програмного кода Код делает следующее: Переберает все точки полилинии и заносит их коардинаты в два списка (коардината Х и коардината Y), далее ищется максимум и минимум в этих списках. Вычитанием из максимума минимума получаем габарит изделия.

Offtop: Проще поменять нормы орфографии

[roaa]

Столько setq... Оно нам нада?...