Как в Corel 12 измерить длину наклонных объектов?

[persik_55]

Как измерить в Corel 12 длину стороны ромба, или длину наклонной прямой, т.е. чего-нибудь, расположенного под углом, а не строго горизонтально или вертикально?

 

[sander]

Ответ: Как в Corel 12 измерить длину наклонных объектов?

dimension tool + snapping
или по координатам пересчитывать в Excell

 

[persik_55]

Ответ: Как в Corel 12 измерить длину наклонных объектов?

Если можно - объясните более детально. Что делать с shape, и что - с demension.
Я нарисовала горизонтальную линию с точным размером длины. Повернула ее на какой-то угол, выделила ее с помощью shape, инструментом dimension кликнула в начале линии, в конце линии и сбоку. Длина получилась не такая же, как была до поворота линии. Что я делаю не так?

 

[LeGo]

Ответ: Как в Corel 12 измерить длину наклонных объектов?

а разве не легче вернуть объект в горизонтальное положение, увеличить/уменьшить, и развернуть обратно

 

[Fog_patch]

Ответ: Как в Corel 12 измерить длину наклонных объектов?

Длина получилась не такая же, как была до поворота линии. Что я делаю не так?

В Property Bar посмотри внимательно. Там есть режимы измерения — горизонтальный, вертикальный, наклонный и тп.

 

[LeGo]

Ответ: Как в Corel 12 измерить длину наклонных объектов?

извините за сообщение не в тему, вместо измерить прочел изменить длину

 

[sander]

Ответ: Как в Corel 12 измерить длину наклонных объектов?

а разве не легче вернуть объект в горизонтальное положение

Многогранник - не факт!

 

[sander]

Ответ: Как в Corel 12 измерить длину наклонных объектов?

. Что я делаю не так?

Мож инструмент не тот? Там их 3. Я пользовал Slated dimension. Dynamic guides включены?

 

[persik_55]

Ответ: Как в Corel 12 измерить длину наклонных объектов?

Да, в инструменте Dimension нужно выбрать в его палитре третий в строке слева (Slated dimension) и кликнуть точно в начале объекта, конце и в стороне. Покажет точные размеры наклонного объекта.

 

[wOxxOm]

Ответ: Как в Corel 12 измерить длину наклонных объектов?

может кому-нибудь пригодится макрос от IsoCalc под названием Measure Perimeter - для измерения любых периметров

 

[VATS]

Ответ: Как в Corel 12 измерить длину наклонных объектов?

wOxxOm
Спасибо!
Интересно, работает ли этот макрос в ХЗ?
Завтра на работе проверю. Очень нужная штукенция.

 

[wOxxOm]

Ответ: Как в Corel 12 измерить длину наклонных объектов?

работает и в Х3 тоже.
Кстати по стандарту он просто показывает длину, но не дает ее скопировать в буфер, а я поменял msgbox на inputbox и теперь это число можно легко копировать (Ctrl-C)

А сам модуль-то очень простой -

Option Explicit

Public Sub measure_perimeter()
    Dim doc As Document, old_units As Long
    Dim sDupShape As Shape
    Dim length As String, shape_count As Long
    shape_count = ActiveSelection.Shapes.Count
    If shape_count > 0 Then
        'Set the document units to horizontal ruler units
        Set doc = ActiveDocument
        doc.BeginCommandGroup "IsoCalc.com's Perimeter temporary shapes"
        old_units = doc.Unit
        doc.Unit = doc.Rulers.HUnits
        'Get the length of the shape or shapes and tidy up
        ActiveSelection.Duplicate
        ActiveSelection.UngroupAll
        Set sDupShape = ActiveSelection.Combine
        length = (sDupShape.Curve.length * doc.WorldScale) & " " + Choose(doc.Unit + 1, " tenth-microns", _
                    " inches", " feet", "mm", "cm", " pixels", " miles", "m", _
                    "km", " didots", " Agate", "yds", " pica", " cicero", "pt", _
                    "Q", "H")
        doc.EndCommandGroup
        doc.Undo
        doc.Unit = old_units
        'Report the length
        If shape_count = 1 Then
            InputBox "The perimeter is " & length & ".", "IsoCalc.com's Perimeter", length
        Else
            InputBox "The sum perimeter of all " & shape_count & " shapes is " & length & ".", _
                    "IsoCalc.com's Perimeter", length
        End If
    End If
End Sub

 

[SBdesign]

Знакомый код! Этот макрос был написан в 2001 году Nicholas Wilkinson. Имеет недостаток - объекты с большим количеством точек не может обработать, не может измерять сгуппированные объекты, есть ограничение по видам объектов.
Я написал более изощренный макрос (писал для себя), в котором есть все проверки на "векторность" и он сам отфильтровывает, подготавливает и измеряет, можно сказать, практически все объекты... т.е. можно выбрать (выделить) сразу всё и запустить макрос... он посчитает, выдаст статистику, да еще и создаст текст-результат измерения.
Рекомендую, он полностью бесплатный: http://maket.moy.su/publ/coreldraw_vychislenie_dliny_perimetra_vektornykh_figur/1-1-0-6

 

[lev]

О том, что код написал Nicholas Wilkinson можно было понять прогулявшись по ссылке из 9-го поста, которая ещё была рабочей в 2006-м году.

не может измерять сгуппированные объекты

поясните следующий код:

ActiveSelection.Duplicate
ActiveSelection.UngroupAll
Set sDupShape = ActiveSelection.Combine

Работает ли Ваш код в CorelDRAW12? Если да, то мы перешлём Ваше решение в 2006 год топикстартеру.

 

[SBdesign]

поясните следующий код:

ActiveSelection.Duplicate
ActiveSelection.UngroupAll
Set sDupShape = ActiveSelection.Combine

Да, выразился неточно, извините...
Уточню. Имел ввиду группу, когда в ней присутствуют объекты, не подлежащие измерению. По коду видно, что после разгуппирования макрос выполняет пытается выполнить Combine выбранных объектов, чего нельзя сделать с некоторыми типами объектов, - выдает ошибку.

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

Насчет версий Корела до Х3, - пока вопрос открыт. Я работаю над этим. Прошу, кстати, кого-нибудь мне помочь в тестировании, чтобы исправить возможные ошибки!

 

[lev]

Не думаю, что будет очень много потребителий Вашего макроса работающих в версиях до Х3, это, просто, был намёк, что не стоило писать в тему 2006 года с заголовком ""как в Corel 12..." не гарантируя работу с версией указанной в заголовке темы.