Как разделить кривую в coreldraw

Как разделить кривую или дугу на равные части?

Ребята, требуется помощь, Возникла необходимость раделить несколько кривых и сегментов элипса на равные части, а как это сделать в Кореле ума не приложу, испробовал вроде все стандартные инструменты и в поисковиках порылся, неуж-то с такой задачей никто не сталкивался.

Fog_patch

12 лет на форуме
Сообщения 3 163 Реакции 997

Ответ: Как разделить кривую или дугу на равные части?

Любой сегмент любой кривой можно разделить на две равные части выделив узел и нажав «+» на цифровой клавиатуре. Отделить отрезок можно с помощью break curves (выделяем узел > break curves), а потом Ctrl+K

Описание работы с кривыми

я работаю в corel desiner x5, разница с draw — дополнительные чертежные прибамбасы — скорее всего технически не отличается — потому вопрос : подскажите — можно ли кривую нн-ой длины — равномерно разделить на нной количество сегментов одинаковой длины — если да то как ?
я когда то видел макрос для draw, он стоил 500 рублей — я даже купил его — но он не подошел для disigner — и если нет — то было бы здорово добавить в лист пожеланий к X6 ) а то там тема уже закрылась — к тому моменту как я нашел этот сайт )

Sancho / 12.04.2011, 21:27

Не знаю как в дезигнере, но в кореле легко:

Sub Test()
Dim sp As SubPath, t#, l#
For Each sp In ActiveShape.Curve.SubPaths
l = sp.Length
For t = 1 To 2
sp.AddNodeAt l / 3 * t, cdrAbsoluteSegmentOffset
Next t
Next sp
End Sub

LeoPolunin / 12.04.2011, 22:49

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

Sancho / 12.04.2011, 22:53

LeoPolunin, я лишь показал как в DRAW разделить путь на 3 ровных отрезка (точнее макрос добавляет 2 узла), дальше сами, или просите кого-то кто умеет писать макросы, не ленив и обладает свободным временем )))

Solowejka / 13.04.2011, 16:22/19:25

LeoPolunin, Вы бы чуть подробнее, для чего это, куда это дальше. Может быть какие-то иные решения найдутся.
Программный код, который любезно предоставил Sancho, попробовал, работает.
Но для кривых с большим количеством точек будет неудобен тем, что вновь добавленные точки (которые как раз делят кривую на нужные вам отрезки) добавяся к тем, которые были, и придётся с ними разбираться.
На приведённом ниже рисунке произвольная кривая была разбита на 25 отрезков. Но после всех действий между отрезками появляются зазоры (на фрагменте с сильным увеличением показан стык отрезков толщиной 0,25 мм; зазор составляет 0,05 мм).
Если такое качество устраивает, тогда может быть написать урок на данную тему?
Впрочем, можно в зазорах точки соединить.

Разделение и объединение фигурного текста

Если блок фигурного текста состоит из нескольких строк, то можно разбить этот текстовый блок на отдельные строки командой главного меню программы «Объект»> «Разъединить фигурный текст» или применив комбинацию клавиш «Ctrl+K».
Необходимость разбиения фигурного текста на отдельные строки может возникнуть, если предполагается создание рисунка из текста; выполнение каких-либо текстовых эффектов или просто нужно расположить несколько строк текста вдоль произвольного пути.

Рис. 1. Выполнение команды разделения фигурного текста.

При первом выполнении команды текст будет разделен на строки. При повторном применении – строка текста будет разделена на слова, при следующем применении команды «Разъединить» слово будет разделено на отдельные символы, причем каждый символ останется фигурным текстом до тех пор, пока не будет преобразован в кривую.