quote:

---

Originally posted by Tumanov

В тупиках мысли завихряются, иногда весьма причудливо :)
Демонстрирую такой выверт:
Считаем, что прямоугольники и кривая фигура известны, то есть их можно селектировать.
Имеем право выполнить такую операцию
Set sel = ActiveWindow.Selection
sel.Trim
При этом все селектированное разлетится на мелкие компоненты, непересекающиеся, но соприкасающиеся. Правда это произойдет только в том случаае, когда все прямоугольники достаточно высокие, но это вроде в наших руках...
Чтобы их не приходилось собирать по всему документу, хорошо бы предварительно создать специальный слой и непосредственно перед этой операцией назначить его активным. Тогда на этом слое появятся только результаты этой операции и ничего больше.
Так как координаты нижних частей прямоугольников нам известны, то среди новых шейпов мы можем вычислить их нижние остатки. Верх определяется либо по секции геометрии, либо непосредственно по высоте шейпа-стакана.
Зная верхнюю точку стакана можно даже вычислить прилегающие отрезки режущей кривой. Хоть все три. Если захотим, то можно и склеить средний отрезок со стаканом - получим замкнутый стакан с кривой крышей, но этого вроде не надо...
Таким образом мы можем вычислить и сохранить все нужные координаты.
Теперь выполняем
Visio.Application.Undo
и рисунок возвращается в исходное состояние. Причем довольно быстро.
После этого берем наш массив с координатами и начинаем менять высоты восстановившихся прямоугольников :)

Конечно, у задачи обязательно должно быть и нормальное решение, но и это интересно :)

---