[CDR X5-X8] Добавить "прыщи" на кривую

[_MBK_]

О, в Кореле тоже такое есть.

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

 

[Linxy]

А ты не знала?

Нет. Я же с Корелом «на Вы». Могу только догадываться, что там есть аналогичный иллюстраторовскому функционал.
Я имела в виду такой же инструмент. Другие варианты пока в голову не приходят.

 

[Realalex]

А может как-то так. Сделать кучу кружков и наложить на кривые. Потом кнопочки понажимать (вырезание, объединение ну и др. всякие) посмотреть какая подойдет, чтобы кружки вошли в состав кривой. Ну и удалить лишнее, что осталось от кружков потом.
В дальнейшем, зная какую кнопку жать, всё будет быстро.

 

[andrejK]

А может как-то так.

да что вы?

Можно сделать бленд маленьких кружочков по кривой - замкнуть - объединить - разомкнуть

 

[Realalex]

А... ну не заметил
Бленд-то зачем? Клонирование с нужным числом шагов.
Или диаметр нужен разный?

 

[Realalex]

Также такие изгибы должны быть фиксированной ширины.

Не нужен бленд.

 

[_MBK_]

Клонирование с нужным числом шагов.

По кривой же

 

[Realalex]

А, понял. Я тупее думал. Просто куча кружков, неважно куда попадут на кривой. Эдакие рандомные прыщи. Т.е. положить сверху например кружки диаметром 2 мм и на расстоянии в 6 мм. Типа сита.

 

[_MBK_]

Т.е. положить сверху например кружки диаметром 2 мм и на расстоянии в 4. Типа сита.

Не, они ж фиксированно на заданную ширину-глубину не попадут стопудово

 

[Realalex]

Ну ТС пишет только о фиксированной ширине. Это диаметр кружка. Про глубину-ширину он не пишет ничего. Если надо строго по центру, да не очень. Но можно все это сито предварительно сгрупировать и подвигать. Шаг подобрать, наконец.

 

[_MBK_]

фиксированной ширине. Это диаметр кружка.

Фиксированная ширина в смысле в месте соприкосновения с кривой
А если рандомно-квадратногдездово, то так не получится

 

[andrejK]

и? попал один кружок лишь малым кусочком на кривую. а другой - прям всем диаметром.

чего там будет фиксированного?

 

[Linxy]

Ну один финт мне придумался. Я опишу его в иллюстраторе, а люди, хорошо разбирающиеся в Кореле, могут меня поправить в случае чего.
Итак. Рисуем кружочек нужного размера. Делаем ему белую заливку, а обводку делаем большим пунктиром, где вводим одинаковые параметры заполненного и пустого пространства.
В итоге этот пунктир ляжет на половину круга. Значение придется подобрать в зависимости от размера круга. У меня диаметр 16, а пунктир 17. Ну и концы линии должны быть закругленными или выступающими.


Поворачиваем кружок. И дальше с помощью прилипания позиционируем кружок по центру линии.


Профит. Способ быстрее не придумывается. Достаточно просто намножить эти кружочки и лепить их в разных местах.

 

[andrejK]

и заблендить твои кружочки по кривой!

 

[Linxy]

Что за тяга у вас? Если не тянуть в Корел, то обязательно надо блендить?)))

 

[andrejK]

Не по теме:
старость. зубов нету, Аничка. всё через блендер... эээх

 

[qzmin]

инструмент Smudge ведёт себя вот так

Sub Macro1()
    ' Recorded 13-03-2017
    Dim OrigSelection As ShapeRange
    Set OrigSelection = ActiveSelectionRange
    Dim crv As Curve
    Set crv = ActiveDocument.CreateCurve
    With crv.CreateSubPath(4.043075, 9.316413)
        .AppendLineSegment 4.043075, 6.888106
        .AppendCurveSegment2 4.043075, 6.694402, 4.151205, 6.877193, 4.151181, 6.705213
        .AppendLineSegment 4.043075, 3.61011
    End With
    OrigSelection(1).Curve.CopyAssign crv
End Sub

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

 

[_MBK_]

наверно в vba-скриптинге есть возможность задавать все эти координаты

Ну скриптингом неспортивно
Вдобавок, обратите внимание на маленький факт - в процитированном вами макросе кривая просто задается в явном виде по координатам
А для того чтобы высчитать эти координаты, как я уже говорил неоднократно, нужен весьма взрослый суровый матан с решением систем параметрических уравнений третьего порядка
Так что это порочный путь, который ни к чему хорошему быстро не приведет. Если уж и забивать это все в макрос - то именно как бленд-разгруппировку-объединение-разьединение

 

[Abbr]

@qzmin, это гениально!
То, что надо. Нужно наловчиться и подобрать размер, но "прыщи" выходят очень даже фиксированными.

Всем спасибо, счёт 2:0 в пользу команды Александра Друзя!