Ответы пользователя по тегу CorelDRAW
  • Corel Draw VBA как задать сверхтонкий контур (абрис)?

    @reaget Автор вопроса
    Решение было таким:
    Объединяем все кривые в одну, применяем стиль "сверхтонкий" абрис (при помощи Style) и разгруппировываем обратно

    If ActivePage.Layers("curves").Shapes.Count <> 0 Then
            ActivePage.Layers("curves").Shapes.All.CreateSelection
            ActiveSelection.Fill.ApplyNoFill
            Dim s2 As Shape
            Set s2 = ActiveSelection.Combine
            s2.Style.StringAssign "{""outline"":{""width"":""762""}}"
            ActivePage.Layers("curves").Shapes.All.CreateSelection
            ActiveSelection.Outline.Color = CreateRGBColor(255, 0, 0)
            s2.BreakApartEx
        End If
    Ответ написан
    Комментировать