Макрос для создания фасадов или пишем множественный контур для объектов. Corel Draw от Деревяшкина
Vložit
- čas přidán 5. 09. 2024
- Поддержи проект Деревяшкина и получи эксклюзивную панель макросов!
в Телеграме: t.me/woodman_p...
а так же на сервисах платных подписок
на Бусти: boosty.to/wrwo...
на Патреоне: / mrwoodman
Стрим полный обзор в 2.60 • Стрим: Полный Обзор па...
Нарезка со стрима:
Главная сраница • Обзор панели. 2.60. Гл...
Инструкция по установке • Инструкция по установк...
Бесплатная мини панель: yadi.sk/d/7HsU...
Полезные видео:
Стрим по горячим клавишам: • Горячие клавиши или Ho...
Полезности от WinLaser:
Генераторы и конструкторы коробок:
www.makercase.com
www.festi.info...
jeromeleary.com...
Генераторы шестеренок и цепей:
geargenerator.... (платный)
www.jeromeleary...
woodgears.ca/g...
Список групп с макетами
Список групп с макетами
dxf_band
tverlogo
pantry_cdr
picasso...
young_t...
club896...
lazehelp
public1...
maketlazer
maketlaser
club209...
Донат на стриме: www.donational...
в ВК: app5727...
Ищите нас так же в сети
www.tiktok.com/@laserman_minsk
dukered (личный)
laser_man (группа)
/ laserman_minsk
etsy.com/shop/...
все понятно и доступно объясняешь, спасибо за видео
Сергей, здорово! Много лет назад изучал VBA, писал компоненты, какие то на форумах люди даже хвалили, потом забросил и никогда не подумал бы что опять буду смотреть видосы по программированию. Ну спасибо, действительно круто!
Очень рад, что помогло освежить некоторые моменты ) да. сам прекрасно понимаю, что когда долго не писал сложновато сразу "с наскока" въехать )
Круто! Очень информативно, спасибо за видео!
Спасибо!
Думаю этот макрос тоже пригодится всем кто режет фанеру.
Выбирает все шейпы внутри другого, указать только внешний или все вместе, после применения останется только те, что внутри были. Удобно вписать в макрос, чтобы за один клик делать компенсацию реза для внутренних и внешних контуров реза.
Мне часто приходится импортировать векторы в Cоrel из Solid Work, где я создаю параметрические модели изделий, из-за того что фанера по толщине разная продается, от 2,9 мм до 3,3 мм.
Создал модель с глобальными переменными, одна из них толщина фанеры, остальные габариты и т.д. , меняю например толщину фанеры и все детали в сборке Solid перестраиваются автоматически. Потом экспорт проекции детали из сборки в Corel через dxf формат. В импортированном чертеже проекции детали все линии одинаковые по свойствам и отделить их (внутренние от внешних) поможет этот макрос:
Sub SelectIsOnShape_minus()
Dim s As Shape
Dim a As Shape
Dim x As Double, y As Double
Dim sKey As Shape
Set sKey = ActiveShape
Set a = sKey
For Each s In ActivePage.Shapes
s.GetPosition x, y
If sKey.IsOnShape(x, y, -1) Then
s.AddToSelection
End If
Next s
a.RemoveFromSelection
End Sub
Очень подробно, но если честно для меня, как я совсем не в теме фрезеровки ничего не понятно )))))
На самом деле сильно упрощенная функция и не всегда будет работать. т.к. центр фигуры не всегда сама фигура. а если она сложной формы?
а если выбирать по квадрату так не надо делать сложный и долгий вызов isOnSHape если проще выбрать сразу по прямоугольнику все внутри
Set COS = ActivePage.SelectShapesFromRectangle(cont.LeftX, cont.BottomY, cont.RightX, cont.TopY, False).Shapes.All
и еще пробегать по всем шейпам страницы иногда глючно бывает.
надо бегать по SelectedShapes
@@mrWoodman да,, точно. этот метод только наверное мне и полезен. У меня при импорте все шейпы детали уже выделены. А если придется выделять в ручную, то это "овчинка выделки не стоит".
@@user-Russian-Ryazan но автоматизировать свои задачи тоже полезно, собственно так моя панель макросов и появилась. Изначально я себе макросы писал, а потом решил поделиться с парой знакомых... Ну и пошло поехало :))))
Интересно. Можете показать, как раскидать контура на отельные слои заданные пользователем ?
так а что тут показывать
s.MoveToLayer "имя слоя"
одна строчка.
ну перед этим просто можно добавить проверку есть ли такой слой или нет.
@@mrWoodman , темный лес для меня. Ну да ладно. Спасибо за быстрый ответ.
@@Vano-re8rn изучите видео поподробней попробуйте повторить и вникнуть. а иначе вам и другое очень похожее видео тоже ничего не даст. конкретно один вопрос решит, а шаг в сторону и снова новое видео снимать? в программировании надо вникать в суть и хоть немного понимать что каждая строчка делает. а иначе это просто бездумное копирование.
точно не моё, но всё равно спасибо )
Как изменть код, чтобы пропускал заблокированные объекты?
ввести проверку
if not s.locked then
Работает!
@@PIKomis а почему ж не ))
А как сделать чтобы сделанные контуры сгруппировались, а исходник удалился?
Нужно сделать два shaperange. В один запихивает исходные объекты, во второй запихиваются созданные контуры. После окончания первый shape range удаляем, а второй группируем.
@@mrWoodman спасибо
Видос было бы интересно ну эту тему посмотреть)
@@user-bw1og4mr6t видос про шейпренджи? ну если честно если работать с ними, то тут не видосы надо смотреть а мануалы читать :)
в хэлпе корела есть примеры кода как раз с группировкой и шейпренджами.
@@mrWoodman лучше один раз увидеть чем 5 раз прочитать