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

kochian

Участник
Топикстартер
Сообщения
1
Реакции
0
Добрый день! Подскажите если ли макрос определения размеров фигуры и создания текста рядом с прописанными размерами?
116327
 

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 137
Реакции
10 835
Вот примерно так
Код:
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
 
Сообщения
354
Реакции
76
Есть стандартный макрос от Corel - попробуйте его. Есть несколько ограничений - но для фигур без пересечений норм.
 

tohaa

Участник
Сообщения
229
Реакции
8
Собственно да. Мой макрос отлично справляется с этой задачей.
 

minkevih09

Участник
Сообщения
1
Реакции
0
Вот примерно так
Код:
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_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 137
Реакции
10 835
Добавить еще
Код:
Set s = ActiveDocument.ActiveLayer.CreateArtisticText(s2.LeftX, s2.BottomY + 2, h & " x " & w & " mm")
      
s.Fill.UniformColor.CopyAssign s2.Outline.Color
 
  • Спасибо
Реакции: izrukvruki и minkevih09

DualViruS

Участник
Сообщения
1
Реакции
0
Помогите пожалуйста макрос указаный выше очень классны, но нету ли такого макроса очень нужен помогите )
АЗС 55.jpg
 

lev

Модератор
20 лет на форуме
Сообщения
2 142
Реакции
2 066
 
  • Спасибо
Реакции: DualViruS