- Сообщения
- 33 703
- Реакции
- 11 004
А ты не знала?О, в Кореле тоже такое есть.
Так как однокликово то в иллюстраторе?
Я надеялся ты какой то хитрый апперэнс предложишь, которым безо всяких кистей и ручных погрызов всю кривую можно шанкрами усеять
А ты не знала?О, в Кореле тоже такое есть.
Нет. Я же с Корелом «на Вы». Могу только догадываться, что там есть аналогичный иллюстраторовскому функционал.А ты не знала?
да что вы?А может как-то так.
Можно сделать бленд маленьких кружочков по кривой - замкнуть - объединить - разомкнуть
Также такие изгибы должны быть фиксированной ширины.
Не, они ж фиксированно на заданную ширину-глубину не попадут стопудовоТ.е. положить сверху например кружки диаметром 2 мм и на расстоянии в 4. Типа сита.
Фиксированная ширина в смысле в месте соприкосновения с кривойфиксированной ширине. Это диаметр кружка.
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-скриптинге есть возможность задавать все эти координаты