[freeznah]

Посоветуйте, куда копать для решения следующей проблемы:
Есть некий прямоугольный контур, полученный путем обхода 4х точек полилинией, расположение на листе-произвольное.
Необходимо: разделить этот контур на заданное количество прямоугольников вдоль длинной стороны путем простановки отрезков внутри прямоугольника
Или посоветуйте уже готовое решение с минимальной "обработкой напильником"
Заранее спасибо!

[onick]

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

[Солидворкер]

О каком ПО идет речь?

[freeznah]

ПО-Autocad 2010
Деление нужно для разбивки контура многоэтажного дома на условные равные подъезды/блоки.Разбивка каждого из тысяч контуров на плане занимает много времени.
На данный момент алгоритм такой-вдоль длинной стороны прямоугольника рисуется отрезок, делится дивайдом на нужное кол-во частей, от полученных точек проставляются перпендикуляры внутрь прямоугольника, точки и отрезок удаляются..

[Солидворкер]

Сообщение от freeznah ПО-Autocad 2010

Все телепаты в отпуске. Тема перемещена в подходящий раздел.

[Kirus]

Делал когда-то динамический блок, еще в AutoCAD 2006, для разметки стояночных мест.
Посмотрите может подойдет.

[freeznah]

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

[Хмурый]

один чёрт, ничерта непонятно. какое-то звёздное небо в южном полушарии

[kosolaps]

Ладно уж, намажу тебе масла на хлеб...

[Kirus]

kosolaps
Нужно указывать версию AutoCADа где это работает.

[freeznah]

Сообщение от Хмурый один чёрт, ничерта непонятно. какое-то звёздное небо в южном полушарии

красные прямоугольники-контуры зданий, они изначально заданы
цель-по выбору прямоугольника, либо по факту обхода его по контуру, запрашивать количество подъездов в здании и разбить существующий контур на равные прямоугольники

[Boxa]

Если Вам нужно то что показано в ролике ниже, то пишите в личку, договоримся.
http://youtu.be/b83y46EZAJQ

[GRIFEL]

Можно попытаться так .....


(defun C:PK(/ m t1 t2 t3 ti e ee i a n [t)
(setq m(getpoint "\n точка в зоне прямоугольника... :"))
(IF M(progn(bpoly m)(SETQ e(entlast)ee(entget e)[T()I -1)
(WHILE(SETQ A(NTH(SETQ I(1+ I))EE))(IF(=(car A)10)(SETQ [T(Cons(list(cadr A)(caddr A)0.0)[T))))
(entdel(entlast))
(if(>=(distance (caddr [t)(cadr [t))(distance(cadr [t)(car [t)))(setq [t(cdr [t)))
(setq t1(car [t)t2(cadr [t)t3(caddr [t) n(if(eq(setq n(getint"\n колонок < 5 >: "))nil)5 n)
ti(polar t1(angle t1 t2)(/(distance t1 t2)n)))
(command"_.line" ti(polar ti(angle t2 t3)(distance t2 t3))"")(repeat(- n 1)(command"_.copy" (entlast) "" t1 ti))
)(princ" ошибка ввода точки ")
)
(princ))

[freeznah]

всем спасибо, вопрос закрыт
отдельная благодарность Grifel-ю