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

  • Автор темы Автор темы Abbr
  • Дата начала Дата начала
Статус
Закрыто для дальнейших ответов.
О, в Кореле тоже такое есть.
А ты не знала?
Так как однокликово то в иллюстраторе?
Я надеялся ты какой то хитрый апперэнс предложишь, которым безо всяких кистей и ручных погрызов всю кривую можно шанкрами усеять
 
Нет. Я же с Корелом «на Вы». Могу только догадываться, что там есть аналогичный иллюстраторовскому функционал.
Я имела в виду такой же инструмент. Другие варианты пока в голову не приходят.
 
А может как-то так. Сделать кучу кружков и наложить на кривые. Потом кнопочки понажимать (вырезание, объединение ну и др. всякие) посмотреть какая подойдет, чтобы кружки вошли в состав кривой. Ну и удалить лишнее, что осталось от кружков потом.
В дальнейшем, зная какую кнопку жать, всё будет быстро.
 
А... ну не заметил :)
Бленд-то зачем? Клонирование с нужным числом шагов.
Или диаметр нужен разный?
 
А, понял. Я тупее думал. Просто куча кружков, неважно куда попадут на кривой. Эдакие рандомные прыщи. Т.е. положить сверху например кружки диаметром 2 мм и на расстоянии в 6 мм. Типа сита.
 
Ну ТС пишет только о фиксированной ширине. Это диаметр кружка. Про глубину-ширину он не пишет ничего. Если надо строго по центру, да не очень. Но можно все это сито предварительно сгрупировать и подвигать. Шаг подобрать, наконец.
 
фиксированной ширине. Это диаметр кружка.
Фиксированная ширина в смысле в месте соприкосновения с кривой
А если рандомно-квадратногдездово, то так не получится
 
и? попал один кружок лишь малым кусочком на кривую. а другой - прям всем диаметром.

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

Поворачиваем кружок. И дальше с помощью прилипания позиционируем кружок по центру линии.
upload_2017-3-13_13-42-5.png

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

upload_2017-3-13_13-43-29.png
 
и заблендить твои кружочки по кривой!
 
Что за тяга у вас? Если не тянуть в Корел, то обязательно надо блендить?)))
 

Не по теме:
старость. зубов нету, Аничка. всё через блендер... эээх
 
инструмент 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-скриптинге есть возможность задавать все эти координаты и значения в зависимости от разных параметров, типа положение курсора на кривой, длинны отрезка, введёных ранее радиуса и т.д. и т.п.
 
наверно в vba-скриптинге есть возможность задавать все эти координаты
Ну скриптингом неспортивно
Вдобавок, обратите внимание на маленький факт - в процитированном вами макросе кривая просто задается в явном виде по координатам
А для того чтобы высчитать эти координаты, как я уже говорил неоднократно, нужен весьма взрослый суровый матан с решением систем параметрических уравнений третьего порядка
Так что это порочный путь, который ни к чему хорошему быстро не приведет. Если уж и забивать это все в макрос - то именно как бленд-разгруппировку-объединение-разьединение
 
@qzmin, это гениально!
То, что надо. Нужно наловчиться и подобрать размер, но "прыщи" выходят очень даже фиксированными.

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