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

Опубликовано: 15 Октябрь 2024
на канале: Мистер Деревяшкин

3,926

126

Что такое макросы и как написать самый простой. Специально для канала ‪@CorelRussia‬

Код макроса из видео:

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

‪@WinLaserStanki‬ : https://winlaser.ru

Поддержи проект Деревяшкина и получи эксклюзивную панель макросов!
в Телеграме: https://t.me/woodman_panel_bot
на Бусти: https://boosty.to/wrwoodman/
на Патреоне:   / mrwoodman
Видео про полную панель с генератором коробок:    • Панель макросов 2.6. Сдвигающаяся кры...
Бесплатная мини панель: https://yadi.sk/d/7HsUXagaEvaYpQ

Сообщество джедаев в телеграм: https://t.me/cncunion
Новостной канал Вестник джедая: https://t.me/cncunionnews
Канал Рафаэля Шарапова    / 4el0bek

Полезные видео:
Стрим по горячим клавишам:    • Горячие клавиши или Hotkeys стандартн...

Полезности от 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/tem...

Список групп с макетами
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/mrwo...
в ВК: https://vk.com/app5727453_-91564008

Ищите нас так же в сети
https://vk.com/dukered (личный)
https://vk.com/laser_man (группа)
  / laserman_minsk
https://etsy.com/shop/mrWoodmanBY