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

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


Хостинг портала RFpro.ru:
Московский хостер
Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64

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

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

Elinn
Статус: Профессор
Рейтинг: 1327
∙ повысить рейтинг »
Бабалян Арутюн Варданович ::: ameno
Статус: Профессор
Рейтинг: 320
∙ повысить рейтинг »
Konstantin
Статус: 1-й класс
Рейтинг: 0
∙ повысить рейтинг »

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

Номер выпуска:37
Дата выхода:12.12.2013, 18:00
Администратор рассылки:Калашников О.А. (Руководитель)
Подписчиков / экспертов:22 / 5
Вопросов / ответов:3 / 3

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


Консультация # 179065: Здравствуйте, уважаемый эксперт! вопрос такой. есть кореловский файл очень большого объема, который надо просто распечатать. проблема в том, что печать идет ну очень медленно (в 10 мин по странице примерно, а страниц там около 60). я уже и по отдельной страничке отправляла на принтер - не помогает. как можно ускорить печать? верс...
Консультация # 176020: Здравствуйте? господа Эксперты! При копировании текста из Блокнота в Corel Draw 14 текст из читабельного превращает ся в крякозябры. В чём может быть причина и как с этим бороться? Заранее спасибо!...

Консультация # 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 одобряю!

Консультация # 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 одобряю!

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

Здравствуйте? господа Эксперты!

При копировании текста из Блокнота в Corel Draw 14 текст из читабельного превращается в крякозябры. В чём может быть причина и как с этим бороться?

Заранее спасибо!

Дата отправки: 13.01.2010, 15:09
Вопрос задал: Delph
Всего ответов: 1
Страница онлайн-консультации »


Консультирует Сергей Мороз / F®ost (Администратор):

Здравствуйте, Delph.
Это может происходить из-за того, что приложение, из которого производится копирование, помещает текст в буфер обмена в 8-битной кодировке, а то, в которое происходит вставка, запрашивает его в Юникоде (так делает, например, Блокнот). Операционная система и перекодирует текст. При копировании в буфер помещается также информация о языке. Это может делать само приложение, а если не делает, то Windows просто смотрит, на какой язык ввода было переключено приложение в момент копирования. Если на русский, то используется страница 1251 и при вставке всё нормально. Но если текст русский, а окно приложения было переключено в английский, кодирование пойдёт через 1252 страницу и вместо русских букв пойдут "кракозябры". В таких случаях может помочь предварительное переключение приложения, из которого производится копирование, на русский.
Кроме сказанного можно изменить настройки в реестре HKEY_LOCAL_MACHINE \ System \ CurrentControlSet \Control \ Nls \ Codepage поменять в ветках значение на СР_1251.nls следующим образом:
"1250"="CP_1251.nls"
"1252"="CP_1251.nls"
После этой процедуры нужно перезагрузить компьютер и проверить, как будет работать вставка. Но важно помнить, что при смене "1252"="c_1251.nls" могут возникнуть проблемы с отображением умляутов "ö", "ä", "ü" и "ß" в различных приложениях. В этом случае восстановите прежнее значение для "1252".
Удачи!

Консультировал: Сергей Мороз / F®ost (Администратор)
Дата отправки: 13.01.2010, 16:43

5
нет комментария
-----
Дата оценки: 14.01.2010, 10:43

Рейтинг ответа:

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


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

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

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



В избранное