[CDR 2018] Размеры фигур.

denispolshin

Участник
Топикстартер
Сообщения
10
Оценка реакций
0
Всем привет! В программе Corel я новичок, и вот столкнулся вроде бы с элементарной проблемой.
Рисую пятиугольник либо треугольник и не могу изменить длину кривой каждых из сторон фигуры, т.е отдельно задать размер любой стороны. Просветите меня пожалуйста))
 

~RA~

Чмоки всем в этом чате.
10 лет на форуме
Сообщения
7 890
Оценка реакций
2 253
Последнее редактирование:

_MBK_

Пикирующий бомбардировщик
12 лет на форуме
Сообщения
27 000
Оценка реакций
8 987

denispolshin

Участник
Топикстартер
Сообщения
10
Оценка реакций
0
Ладно хорошо не кривой)
 

denispolshin

Участник
Топикстартер
Сообщения
10
Оценка реакций
0
Ну помогиииите плиз!
 

_MBK_

Пикирующий бомбардировщик
12 лет на форуме
Сообщения
27 000
Оценка реакций
8 987
Это понятно, но уж очень сложно поймать точный размер в мм
Давайте вы все таки точно сформулируете конечную цель, дабы мы вангованием не занимались
Зачем вам столь странная хотелка?
 

jeine

Да здравствует разум! Да сгинет маразм!
12 лет на форуме
Сообщения
5 252
Оценка реакций
5 339

denispolshin

Участник
Топикстартер
Сообщения
10
Оценка реакций
0
Давайте вы все таки точно сформулируете конечную цель, дабы мы вангованием не занимались
Зачем вам столь странная хотелка?
Для того что бы супер точно отрезать листовой металл на лазере
 

lev

Модератор
15 лет на форуме
Сообщения
1 902
Оценка реакций
1 748
Так попробуйте (предполагается, что у Вас равносторонний многоугольник, без искажений):
Код:
Sub Polyside()
  ActiveDocument.Unit = cdrMillimeter
  ActiveDocument.ReferencePoint = cdrCenter
  Set s = ActiveShape
  If s.Type = cdrPolygonShape Then
    sl = s.DisplayCurve.Length / s.Polygon.Sides
    desired_sl = InputBox("Введите длину стороны")
    sc = desired_sl / sl
    s.Stretch sc, sc
  End If
End Sub
 
Последнее редактирование:

_MBK_

Пикирующий бомбардировщик
12 лет на форуме
Сообщения
27 000
Оценка реакций
8 987