[CDR X5-X8] Макрос для текстовой подписи размеров фигуры

[kochian]

Добрый день! Подскажите если ли макрос определения размеров фигуры и создания текста рядом с прописанными размерами?

 

[dastin]

если ли макрос определения размеров фигуры

Вот у коллеги поинтересуйтесь ...
нечто подобное сочинял недавно

 

[_MBK_]

Вот примерно так

Sub razmer()
    ActiveDocument.Unit = cdrMillimeter
    Set OrigSelection = ActiveSelectionRange
    For Each s2 In OrigSelection
        Dim sh As ShapeRange, w#, h#, s As Shape
        Dim x As Double, y As Double
        s2.GetSize w, h
        
        Set s = ActiveDocument.ActiveLayer.CreateArtisticText(s2.LeftX, s2.TopY + 2, h & " x " & w & " mm")
        
        s.Fill.UniformColor.CopyAssign s2.Outline.Color

    Next s2
End Sub

 

[BazzilioTheCat]

Есть стандартный макрос от Corel - попробуйте его. Есть несколько ограничений - но для фигур без пересечений норм.

Geometric Information для CorelDraw 2017

установить в папку: C:\Program Files\Corel\GraphicSuite2017\Draw\GMS в CorelDesigner этот скрипт есть. Если у Вас CorelDraw Technical Suite 2017 - перенесите скрипт из: C:\Program Files\Corel\TechnicalSuite2017\Designer\GMS в C:\Program...

forum.rudtp.ru

 

[tohaa]

Собственно да. Мой макрос отлично справляется с этой задачей.

 

[minkevih09]

Вот примерно так

Sub razmer()
    ActiveDocument.Unit = cdrMillimeter
    Set OrigSelection = ActiveSelectionRange
    For Each s2 In OrigSelection
        Dim sh As ShapeRange, w#, h#, s As Shape
        Dim x As Double, y As Double
        s2.GetSize w, h
       
        Set s = ActiveDocument.ActiveLayer.CreateArtisticText(s2.LeftX, s2.TopY + 2, h & " x " & w & " mm")
       
        s.Fill.UniformColor.CopyAssign s2.Outline.Color

    Next s2
End Sub

а что прописать чтобы текст также дублировался снизу?

 

[_MBK_]

Добавить еще

Set s = ActiveDocument.ActiveLayer.CreateArtisticText(s2.LeftX, s2.BottomY + 2, h & " x " & w & " mm")
      
s.Fill.UniformColor.CopyAssign s2.Outline.Color

 

[DualViruS]

Помогите пожалуйста макрос указаный выше очень классны, но нету ли такого макроса очень нужен помогите )

 

[lev]

[CDR X5-X8] - Как проставить размеры у всех объектов сразу (длина/ширина)?

Добрый день! Перед печатью всегда отправляю заказчику макет с размерами каждого изображения. Иногда бывает очень много объектов, всегда проставляю вручную... Есть ли способ делать это быстрее (желательно по нажатию пары кнопок))? Может, макрос какой? Сами размеры в итоге не нужны для печати, так...

forum.rudtp.ru