Макросы в Corel Draw от Деревяшкина! Специально для Corel Russia

Что такое макросы и как написать самый простой. Специально для канала @Corel Russia Код макроса из видео: Sub Macro3() Dim vasia As Shape Dim dyrka As Shape ActiveDocument.Unit = cdrMillimeter xx = ActiveWindow.ActiveView.OriginX yy = ActiveWindow.ActiveView.OriginY rect_size = 200 radius = 5 zazor = 3 Set vasia = ActiveLayer.CreateRectangle(xx - rect_size / 2, yy + rect_size / 2, xx + rect_size / 2, yy - rect_size / 2) Set dyrka1 = ActiveLayer.CreateEllipse2(vasia.LeftX + zazor + radius, vasia.TopY - zazor - radius, radius, radius) Set dyrka2 = ActiveLayer.CreateEllipse2(vasia.RightX - zazor - radius, vasia.TopY - zazor - radius, radius, radius) Set dyrka3 = ActiveLayer.CreateEllipse2(vasia.LeftX + zazor + radius, vasia.BottomY + zazor + radius, radius, radius) Set dyrka4 = ActiveLayer.CreateEllipse2(vasia.RightX - zazor - radius, vasia.BottomY + zazor + radius, radius, radius) End Sub @Лазерные станки, граверы, резаки, маркеры WinLaser : https://winlaser.ru Поддержи проект Деревяшкина и получи эксклюзивную панель макросов! в Телеграме: https://t.me/woodman_panel_bot на Бусти: https://boosty.to/wrwoodman/ на Патреоне: https://patreon.com/mrWoodman Видео про полную панель с генератором коробок: https://youtu.be/CB-8eGholEk Бесплатная мини панель: https://yadi.sk/d/7HsUXagaEvaYpQ Сообщество джедаев в телеграм: https://t.me/cncunion​ Новостной канал Вестник джедая: https://t.me/cncunionnews Канал Рафаэля Шарапова www.youtube.com/4EL0BEK Полезные видео: Стрим по горячим клавишам: https://youtu.be/YRbAHuTdQxU Полезности от WinLaser: Генераторы и конструкторы коробок: http://www.makercase.com https://www.festi.info/boxes.py/ http://jeromeleary.com/laser/ Генераторы шестеренок и цепей: https://geargenerator.com/ (платный) http://www.jeromeleary.com/gears/ https://woodgears.ca/gear_cutting/template.html Список групп с макетами https://vk.com/laser_m51 https://vk.com/maket_cdr_dxf_eps https://vk.com/dxf_band https://vk.com/tverlogo https://vk.com/pantry_cdr https://vk.com/picassodecor3 https://vk.com/young_technician_shop https://vk.com/aismaket https://vk.com/club89684573 https://vk.com/lazehelp https://vk.com/public173109472 https://vk.com/maketlazer https://vk.com/maketlaser Фанеру в Беларуси покупаю http://fanerabel.by Донат на стриме: https://www.donationalerts.com/r/mrwoodman в ВК: https://vk.com/app5727453_-91564008 Ищите нас так же в сети https://vk.com/dukered (личный) https://vk.com/laser_man (группа) https://instagram.com/laserman_minsk https://etsy.com/shop/mrWoodmanBY