КурвОметр для CorelDRAW 10

Сей опус предназначен для облегчения жизни тех представителей рода человеческого, кто волею судьбы усажен за ПЭВМ и вынужден рождать высокое искусство при помощи программы CorelDRAW, сверяя высокий полет художестьвенной мысли с длиной нарисованных кривых.

1. Что это? Для чего это?

Опус (в дальнейшем — макрос) предназначен для измерения длин статических объектов документа CorelDRAW, представленных в виде кривых: curves, polygons, ellipses и rectangles. В случае, если объект прдставляет собой compound path (например, прямоугольник с дыркой), определяется длина всех subpathes, в него входящих. Длина может быть представлена в различных единицах измерения.

Эти объекты могут быть объединены в группы произвольной вложенности с любыми другими объектами. В случае, если при измерении длины в множество выделенных объектов попал объект, длина которго не может быть измерена, об этом макросом выдается уведомление в письменном виде.

2. На чем это работает?

Для работы этого макроса необходим CorelDRAW v.10 c Visual Basic for Application (VBA) 6.0 . Если VBA установлен, то в меню Tools CorelDRAW будет доступен пункт Visual Basic (см. рис. 1)

Рис. 1.

Если при инсталляции CorelDRAW VBA не был установлен, его можно установить позднее, повторно запустив инсталяционную программу CorelDRAW и, выбрав режим Add/Remove components, добавить его (см. рис. 2).

Рис. 2.
Установка VBA (Visual Basic for application 6.0)

3. Как это установить?

Дальнейшие шаги предполагают, что VBA 6 уже установлен.
  1. Распакуйте архив curvOmeter.zip (2.8 К) во временный каталог.
  2. Запустите CorelDRAW и создайте новый документ: меню File > New;
  3. Запустите Visual Basic Editor: меню Tools > Visual Basic > Visual Basic Editor (см. рис. 3);
    Рис. 3.

  4. В VBA Editor импортируйте форму frmCurveLen.frm и модуль CurveLength.bas из временного каталога в список глобальных script'ов CorelDRAW: меню File > Import File VBA Editor. Значки этих фалов должны появится в окне Project (см. рис. 4), видимость которого включается нажатием <CTRL>+R
    Рис. 4.

  5. Закройте VBA Editor

  6. Добавьте кнопку (пункт меню), вызывающую курвиметр, на панель инструментов (в меню) CorelDRAW: Чтобы добавить кнопку запуска на одну из панелей инструментов или в меню, вам надо перетащить иконку макроса на место в панели инструментов или в меню, где вы собираетесь его разместить. Для этого выбрите в меню Tools пункт Customization. В появившемся окне настройки в дереве слева (см. рис. 5) выберите ветвь Commands, в списке по центру сверху — пункт Macros. Если предыдущие шаги были сделаны вами правильно, то иконка макроса-курвиметра (подчеркнут зеленой линией) будет видна в списке доступных макросов.
    Рис. 5.

4. Как этим пользоваться?

Запустите макрос, нажав на кнопку, которую вы создали на предыдущем шаге. На рабочем поле программы CorelDRAW появится окно измерителя длины:

При нажатии на кнопку MEASURE будет измерена длина всех выделенных на этот момент объектов. Если среди выделенных объектов будут находится объекты, длина которых не может быть определена, как то: контуры, всякого рода текст и т.п., то количестиво этих объектов будет сообщено в окне Замечания.



А ваши замечания и пожелания можете присылать на мне на мыло.

Hosted by uCoz