Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Работа с программой CorelDraw

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 119 RSS
←   Октябрь 2015   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://rfpro.ru/
Открыта: 13-11-2009

Автор
Калашников О.А.

Статистика

119 подписчиков
-1 за неделю
←   Все выпуски   →

RFpro.ru: Работа с программой CorelDraw


РАССЫЛКИ ПОРТАЛА RFPRO.RU

Лучшие эксперты по данной тематике

/ КОМПЬЮТЕРЫ И СОФТ / Дизайн / web-дизайн / Работа с программой CorelDraw

Номер выпуска:49
Дата выхода:20.10.2015, 15:21
Администратор рассылки:F®ost (Администратор)
Подписчиков / экспертов:5 / 1
Вопросов / ответов:3 / 3

Консультация # 180508: Как в CorelDraw можно использовать свои формулы рисования графических кривых линий? Например СВОЮ формулу рисования окружности. А не то что есть уже в примитивах CorelDraw....

Консультация # 186377: Здравствуйте! Прошу помощи в следующем вопросе: нужно нарисовать эскиз скелета(хочу принт на футболку) ребра, позвоночник и прочие косточки вот так примерно http://krutayatema.ru/wp-content/uploads/2011/03/Untitled-1107.jpg в corel drow сколько будет стоить?...
Консультация # 179065: Здравствуйте, уважаемый эксперт! вопрос такой. есть кореловский файл очень большого объема, который надо просто распечатать. проблема в том, что печать идет ну очень медленно (в 10 мин по странице примерно, а страниц там около 60). я уже и по отдельной страничке отправляла на принтер - не помогает. как можно ускорить печать? верс...

Консультация # 180508:

Как в CorelDraw можно использовать свои формулы рисования графических кривых линий? Например СВОЮ формулу рисования окружности. А не то что есть уже в примитивах CorelDraw.

Дата отправки: 30.10.2010, 22:12
Вопрос задал: Serafim Stefanovich
Всего ответов: 1
Страница онлайн-консультации »

Консультирует Сучкова Татьяна Михайловна (Администратор):

Здравствуйте, Serafim Stefanovich!
Да, свою кривую в Corel Draw нарисовать по собственной формуле можно.
Делается это рисованием с помощью VBA (средства встроенные).
Привожу самый простой вариант, когда функцию отрисовываем короткими линиями, начало и конец которых вычисляются по необходимой нам формуле. В данном случае это будет формула построения окружности с постоянным радиусом, равным 1, точки которой рисуются с шагом 1 (от 0 до 360 градусов, градусы в программе будут переведены в радианы). Координаты точки вычисляются по формуле
x = x0 + Cos(i * 3.14 / 180)
y = y0 + Sin(i * 3.14 / 180)
где x0, y0 - координаты центра окружности

Для того, чтобы попробовать на простом примере, нужно запустить запись макроса командой Инструменты - VisualBasic - Запись (в англоязычной версии Tools - Visual basic - Records), взять любой инструмент (например, свободную форму - Free Hand) и нарисовать отрезок.Затем изменить макрос на тот, который приведен ниже.
Для этого дать команду Tools - Visual Basic - Play и в появившемся окне нажать кнопку Edit (редактировать, изменить).
Откроется окно редактора, в котором тот текст, который там есть, стираем, и вставляем этот код:

Код :
Sub Macro1()
    '
    ' Recorded 03.11.2010
    '
    ' Description:
    '
    '
    
    
    Dim s5 As Shape
    Dim crvs5 As Curve
    
    For i = 0 To 359
    x = 5 + Cos(i * 3.14 / 180)
    y = 5 + Sin(i * 3.14 / 180)
    
    Set crvs5 = CreateCurve(ActiveDocument)
    With crvs5.CreateSubPath(x, y)
        .AppendLineSegment 5 + Cos((i - 1) * 3.14 / 180), 5 + Sin((i - 1) * 3.14 / 180)
    End With
    Set s5 = ActiveLayer.CreateCurve(crvs5)
    
    Next i
    
    
End Sub


Прямо в редакторе можно запустить рисование (Run Sub) или сохранить макрос и запускать командой Tools - Visual Basic - Play и в появившемся окне нажать кнопку Run.

Так можно нарисовать любую другую функцию, в том числе и те, для которых x и y вычисляются параметрически (как в данном примере для окружности)
Вот пример для удлиненной циклоиды:
Код :
Sub
Macro1()
    '
    ' Recorded 03.11.2010
    
    ' Description:
    '
   
    Dim s5 As Shape
    Dim crvs5 As Curve
    a = 0.3
    b = 3
    lam = 1.8
    For i = 0 To 360
    x = 5 + (b - a) * Cos(i * 3.14 / 180) + lam * a * Cos((b - a) * (i * 3.14 / 180) / a)
    y = 5 + (b - a) * Sin(i * 3.14 / 180) + lam * a * Sin((b - a) * (i * 3.14 / 180) / a)
    
    Set crvs5 = CreateCurve(ActiveDocument)
    With crvs5.CreateSubPath(x, y)
        .AppendLineSegment 5 + (b - a) * Cos((i - 1) * 3.14 / 180) + lam * a * Cos((b - a) * ((i - 1) * 3.14 / 180) / a), 5 + (b - a) * Sin((i - 1) * 3.14 / 180) + lam * a * Sin((b - a) * ((i - 1) * 3.14 / 180) / a)
    End With
    Set s5 = ActiveLayer.CreateCurve(crvs5)
    
    Next i
    
    
End Sub

Вот она сама:

Консультировал: Сучкова Татьяна Михайловна (Администратор)
Дата отправки: 03.11.2010, 21:38
Рейтинг ответа:

НЕ одобряю +1 одобряю!

Консультация # 186377:

Здравствуйте! Прошу помощи в следующем вопросе:
нужно нарисовать эскиз скелета(хочу принт на футболку)
ребра, позвоночник и прочие косточки
вот так примерно http://krutayatema.ru/wp-content/uploads/2011/03/Untitled-1107.jpg
в corel drow

сколько будет стоить?

Дата отправки: 17.06.2012, 11:43
Вопрос задал: Посетитель - 383186
Всего ответов: 1
Страница онлайн-консультации »

Консультирует Andy (Модератор):

Здравствуйте, Посетитель - 383186!

Попробуйте посмотреть здесь. Может быть, подойдёт.

С уважением.

Консультировал: Andy (Модератор)
Дата отправки: 17.06.2012, 21:40
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 179065:

Здравствуйте, уважаемый эксперт!

вопрос такой. есть кореловский файл очень большого объема, который надо просто распечатать.
проблема в том, что печать идет ну очень медленно (в 10 мин по странице примерно, а страниц там около 60).
я уже и по отдельной страничке отправляла на принтер - не помогает.
как можно ускорить печать?
версия CorelDRAW - X3

спасибо.

Дата отправки: 12.06.2010, 18:27
Вопрос задал: Шелестова Ольга Юрьевна
Всего ответов: 1
Страница онлайн-консультации »

Консультирует Elinn:

Здравствуйте, Шелестова Ольга Юрьевна.
если компьютер слабый, то файлы большого объема будут медленно печататься, оперативка какая?
я в таких случаях делю сам файл на несколько менее увесистых, из одного файла в 60 страниц сделайте 5 по 12 страниц и печатайте по очереди.
а если в файлах есть элементы, которые можно уменьшить, то уменьшаю их, (например, экспортированные фотографии уменьшаю без потери качества, зачем нам например фото в 3-5 Мб и 3000Х2500, я уменьшаю размеры в 2 раза, вес уменьшается примерно в 4 или 5 раз)

Консультировал: Elinn
Дата отправки: 12.06.2010, 21:46

5
нет комментария
-----
Дата оценки: 17.06.2010, 10:56
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Оценить выпуск | Задать вопрос экспертам

главная страница  |  стать участником  |  получить консультацию
техническая поддержка  |  восстановить логин/пароль

Дорогой читатель!
Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно!
МЫ РАБОТАЕМ ДЛЯ ВАС!
В избранное