[CDR 2017-2022] Размеры фигур.

[denispolshin]

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

 

[~RA~]

треугольник

кривой

Отрезок — частный случай кривой?

 

[_MBK_]

не могу изменить длину кривой каждых из сторон фигуры, т.е отдельно задать размер любой стороны

А в какой программе такое можно сделать?

 

[denispolshin]

Ладно хорошо не кривой)

 

[denispolshin]

Ну помогиииите плиз!

 

[~RA~]

А в какой программе такое можно сделать?

Тягать за узел, тем самым меняя размер сторон — можно.

 

[denispolshin]

Тягать за узел, тем самым меняя размер сторон — можно.

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

 

[_MBK_]

задать размер любой стороны

Тягать за узел, тем самым меняя размер сторон — можно.

 

[~RA~]

поймать точный размер

Тогда рисуйте сразу правильными размерами.

 

[_MBK_]

Это понятно, но уж очень сложно поймать точный размер в мм

Давайте вы все таки точно сформулируете конечную цель, дабы мы вангованием не занимались
Зачем вам столь странная хотелка?

 

[Jeine]

Просветите меня пожалуйста))

Corel DRAW – редактор векторной графики. А не CAD.

 

[denispolshin]

Давайте вы все таки точно сформулируете конечную цель, дабы мы вангованием не занимались
Зачем вам столь странная хотелка?

Для того что бы супер точно отрезать листовой металл на лазере

 

[dosp]

Для того что бы супер точно отрезать листовой металл на лазере

Тогда рисуйте сразу правильными размерами.

 

[lev]

Так попробуйте (предполагается, что у Вас равносторонний многоугольник, без искажений):

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_]

супер точно отрезать

Corel DRAW – редактор векторной графики. А не CAD.

И все равно не совсем понимаю. Вам нужно что - фигуру строить по заданным сторонам?

 

[denispolshin]

И все равно не совсем понимаю. Вам нужно что - фигуру строить по заданным сторонам?

Да именно так

 

[_MBK_]

Да именно так

Если фигура равносторонняя - то макросом как у Льва
Если нет - тоже макросом, но гораздо более сложным

 

[~RA~]

тоже макросом, но гораздо более сложным

Это если фигура построится единственная.

 

[denispolshin]

Если фигура равносторонняя - то макросом как у Льва
Если нет - тоже макросом, но гораздо более сложным

1. Где скачать макрос такой
2. Как его установить

 

[~RA~]

1. Где скачать макрос такой
2. Как его установить

Как следует понимать ваши утверждения?