Форум клана ЧПУшников

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.


Вы здесь » Форум клана ЧПУшников » Программы для ЧПУ-фрезеров. » Изготовление ящиков на шип/паз в CorelDraw с использованием макросов


Изготовление ящиков на шип/паз в CorelDraw с использованием макросов

Сообщений 601 страница 658 из 658

601

PABAH написал(а):

yurk1151 написал(а):

    Ув. фоумчане мучает вопрос, поскачивал много корелов Х5, . . . .

Стесняюсь спросить - почему упираетесь в Х5?


Слегка ошибся, X6 точнее, по большей части на нем работать приходится уже как 4-5 год

0

602

Ulibka написал(а):

yurk1151,
наберите rutracker.org и качайте оттуда полный Corel


К сожалению на рутрекер у меня заблочен, а на зеркалах рутрекера нету ни одного корела

0

603

yurk1151 написал(а):

рутрекер у меня заблочен

наберите в google обход блокировок и выберите наиболее подходящий способ.
Я, например для chrome поставил расширение frigate

Мне казалось что столь простой шаг уже давно проделан всеми россиянами :)

0

604

Подскажите как учесть неоднородность толщины фанеры при выборе зазора без пробной резки, что бы в гарантированный натяг собирать, при этом не подрезая внутренние углы, я раньше конусной фрезой резал, нужный натяг получался, из-за неровного края перешёл на прямую и сейчас не могу приловчиться

0

605

Ulibka написал(а):

yurk1151 написал(а):

    рутрекер у меня заблочен

наберите в google обход блокировок и выберите наиболее подходящий способ.
Я, например для chrome поставил расширение frigate

Мне казалось что столь простой шаг уже давно проделан всеми россиянами :)


Спасибо за подсказку, просто не пользуюсь уже долгое время торрентами, проблема решена нашел портабл версию с рабочей VBA

0

606

Ulibka
Здравствуйте. Может у вас есть Corel DrawX5,не для комерческого использования. Перед командировкой снинул программу на карту памяти, теперь пытаюсь установить на другой ноутбук,а установщик не принимает серию ноутбука. Пожалуйста.

0

607

Весь свой Coreldraw скачал на rutracker :)

0

608

Игорь Латаев написал(а):

а установщик не принимает серию ноутбука.

Бред какой то...

+1

609

Может у вас на ноуте система х64 а дистрибутив х32 (или наоборот) тогда не получится установить

0

610

Какие страдание с корелом ))Скачать корел бесплатно без регистрации и СМС )))

+1

611

Могу выложить свой фаил,попробуйте и удивитесь... И отключаю интернет перед установкой,и ввожу серийник и без него(есть такой пункт), все одно,неверный серийный номер.
А вот фаил с программой с моего компа,супруга прислала, это да,у меня сейчас XP 32 битная,а домашняя 64,вот тут и не состыковка. Скачал через Zona, таже песня... Спасибо за отклики.

0

612

Добрый день.

Создателем макросов огромное спасибо за проделанный труд.

Прошу у Вас помощи. При попытке выполнить макрос для SolidWorks2016 выдаёт ошибку
http://s0.uploads.ru/t/bs0KA.jpg
http://s9.uploads.ru/t/ENyHc.jpg
Помогите пожалуйста, что делать, что подправить.

Большое спасибо.

0

613

Могла поменяться модель документов.  Я тоже бодался с этим макросом

0

614

Виталий Шумаков написал(а):

Могла поменяться модель документов.  Я тоже бодался с этим макросом

А решение какое-нибудь нашли?

0

615

Для каждой версии солида менял какой то параметр. Честно говоря, уже и не помню что да как. Да и лично мне макрос в том виде что его написали был не сильно полезен. Он создаёт конечно сборку, но  ориентировать в ней стенки и стыковать  всё равно надо ручками.

0

616

Господа, форумчане. Кто может помочь с проблемой в макросе для SolidWorks 2016. Может чем сможет помочь сам автор макроса Superbizon?
Спасибо.

0

617

Вы макрос от корела запихали в солидворкс?

0

618

denisej написал(а):

Вы макрос от корела запихали в солидворкс?

Нет. Здесь в самом начале этой темы, был умелец который сделал макрос, который перегонял из заданной папки  исходные dfx файлы, сгенерированные макросом под корел под Солид, и делал там сборку с кучей деталей построенных из импортированных файлов. Правда, работало это не очень стабильно, и что лично меня не очень устраивает - это просто набор рядом расположенных стенок. Всё остальное надо ручками докрутить. Была идея сделать более универсальный макрос уже с ориентацией под свой макрос, но пока руки не дошли.
ЗЫ. Когда завершу полностью макрос под корелом, есть мысля перевести его и в солид. Но уже с нормальными сборками.

0

619

tumim, Вам скорее всего надо 1 изделие.
В этом случае проще нарисовать его руками в Corel и воспользоваться макросом RoundCurves для скругления внутренних углов

0

620

В RoundCorners добавил сохранение. Диаметр выборки сохраняется в файл Ship.ini в папке Program files.

Скрытый текст:

Для просмотра скрытого текста - войдите или зарегистрируйтесь.

+1

621

Можно мне тоже макрос

0

622

Народ, простите может немного не по теме, но тут такие гуру корел-макросов собрались, что решил спросить здесь. Есть ли на свете макрос для корел, который располагает элементы на листе как можно компактнее или это только ручками?

0

623

Serg12313, конечно есть Plotcalc или Ecut .

0

624

0

625

тоже прошу поделиться ссылками на последние версии.... Спасибо!

0

626

Читайте пост №1

0

627

ivan4x4 написал(а):

В макросах от  Виталия Шумакова и от alleks67 , ссылки на которые есть в первом сообщении, допущена ошибка в функции "ВставитьВырезСОднойСтороны" ошибка в определении величины выс_шип
привожу исправленный кусок текста макроса:

Public Sub ВставитьВырезСОднойСтороны(CntS As Integer, Diam_frez As Double, Tolshina As Double, Storona As Double, Smeshenie As Double, DelKr As Boolean)

    Dim d As Document, i, kr As Integer
    Set d = ActiveDocument
   
    d.BeginCommandGroup "вырез"
   
    Dim s As Shape, sweld As Shape
    Set s = d.Selection.Shapes.First
    i = Storona
    While i > 0
            s.Rotate 90
        i = i - 1
    Wend
   
    Dim выс_шип As Double
    Dim N As Integer
   
    kr = 1
    If DelKr = True Then
        kr = 2
    End If
   
    If (Smeshenie > 0) Then
        N = Int((s.SizeHeight + frmShip.Zazor.text - Smeshenie * kr) / (2 * CntS))
        If N = 0 Then
           N = 1
        End If
        ' err выс_шип = (s.SizeHeight + frmShip.Zazor.text - Smeshenie * kr) / (N * 2 + 1)
        выс_шип = (s.SizeHeight - Smeshenie * kr) / (N * 2 + 1)
    Else
        N = Int((s.SizeHeight + frmShip.Zazor.text + Smeshenie * kr) / (2 * CntS))
        If N = 0 Then
           N = 1
        End If
        ' err выс_шип = (s.SizeHeight + frmShip.Zazor.text + Smeshenie * kr) / (N * 2 + 1)
        выс_шип = (s.SizeHeight + Smeshenie * kr) / (N * 2 + 1)
    End If
   
Ошибочные строки поставил как комментарии,
добавление в данном месте зазора деленного на число двойное число шипов +1 и давало небольшой сдвиг

P.S. Исправленный макрос почему-то не сохраняется, видимо прав админа не хватает на данной машине.

Иван, спасибо, смещение пропало. Но! Изменение размера шипа/паза ответной детали сейчас происходит не в ту сторону. Т.е. зазор только увеличивается. Можете поправить?http://sh.uploads.ru/t/HA7qM.png

Отредактировано canny (07-06-2017 14:08:30)

0

628

Извиняюсь, что не в той теме пишу.
Ищу специалиста по написанию макросов в кореле

Если в кратце:
Есть база (файл в кореле) в котором каждая кривая имеет своё имя (артикул) Ш001 Ш002 Ш003 ... Ш500 и тд.
К примеру поступает заказ (Ш001 - 2ш Ш003 - 10шт)
Этот заказ я переношу в эксель или другой файл (какой будет Вам удобней)
Вот и нужно, чтобы эти кривые в нужном количестве оказались в новой файле корела

0

629

доброго времени суток уважаемые форумчане помогите чайнику скачал CorelDRAW X6 (64-Bit) с рутрекера  запустил настроил по первому видео но уткнулся в диспетчер макросов он неактивен что делать подскажите

0

630

эванц, скорее всего у Вас версия Сorel'а без поддержки VBA. Ищите другой дистрибутив.

+1

631

Может быть еще одна причина (мой Corel тоже с rutracker) - при установке необходимо выбирать набор пакетов для установки.
В частности установка VBA выбирается отдельной галкой.
Попробуйте деинсталировать и запустить инсталятор еще раз внимательно следя за набором пакетов.

И еще бывают версии Corel без VBA

+1

632

всё верно моя версия оказалась без VBA . нашёл только англоязычную русификатор искал  вирусов нахватал чуть винда не слетела ( по английски совсем не шпрехаю ) может у кого есть проверенная ссылка на русификатор буду сердечно благодарен ну и плюсик  с меня.

0

633

День добрый.
Можно ли с помощью ШипоЯщика нарисовать что-то подобное? Если да, то опишите как.
Спасибо.http://s1.uploads.ru/t/kdgpF.jpg

0

634

VVZ написал(а):

День добрый.
Можно ли с помощью ШипоЯщика нарисовать что-то подобное? Если да, то опишите как.
Спасибо.

Нет, вероятно делалось в чём-то вроде FlexIt Suite...

0

635

Kachik
VVZ
Внимательно погоняйте "шипоящик". Там можно сделать что угодно, только не лениться.
Ulibka
Молодец, поле для размышления и рук валом . Спасибо.
А для желающих получить быстро и бесплатно- смотреть мультфильмы.

0

636

Расулыч написал(а):

Kachik
VVZ
Внимательно погоняйте "шипоящик". Там можно сделать что угодно, только не лениться.


Я так понимаю - вопрос был поставлен. Задать габаритные размеры, а макрос сам нарисует... Так не получится.

Макросом удобно делать типовые изделия типа пенальчиков и т.д. время сильно экономится и появляется экономическая целесообразность данных изделий.
А штучное изделие проще в ручную нарисовать. Что, в вышеуказанной фотке рисовать макросом кроме гармошки? Соединения шип-паз нет, стенки вроде вообще приклеены в торец...

0

637

Kachik
Ну , что я могу сказать...http://s3.uploads.ru/t/4kJRL.jpg
http://s8.uploads.ru/t/7ZrAo.jpg
Всё это макрос, и чуть руки и фантазия.
Польза от макроса огромная: Сами шип-паз, подпил внутренних углов очень много значат.

Отредактировано Расулыч (12-01-2018 21:19:38)

0

638

Ну и я о том же :

Расулыч написал(а):

Kachik
Сами шип-паз, подпил внутренних углов очень много значат.
Отредактировано Расулыч (Сегодня 21:19:38)


Здесь у вас хотя бы внешний эскиз с перегородками и автоматом соединения. Ну допустим пусть даже 10-20% экономии по времени на однотипные операции...

А в обсуждаемом изделии макросом можно нарисовать только гармошку. Соединения в торец - рисовать не надо, края стенок неровные - придётся рисовать вручную, периметр боковой стенки опять же посчитать - макрос не нужен. Соответственно целесообразности использовать макрос - нет.

Домик кстати изумительный.

И согласитесь, вы проектируете изделие с учётом возможностей макроса, что бы можно было использовать его возможности для облегчения работы. То есть макрос это инструмент и вы на стадии проектирования уже предпологаете как вы будете пользоваться данным инструментом.
Если инструмент не подходит для какой-либо работы, то берут другой инструмент...

Я пытался сказать, что макросы из данной темы, в том числе и платный макрос Виталия Шумакова не целесообразно использовать для конкретного изделия...

0

639

Не согласен. Автоматизация чертовски облегчает жизнь и экономит время и нервы. Можно и вручную, но зачем? Тем более если уже есть инструмент. В конце концов можно и лобзиком пилить, но если есть ЧПУ, то зачем? Это все интересно в ряде случаев, но я лично и пришёл к станкам и потом к макросу, что моя криворукость  не дала мне возможность пилить вручную детали квадрокоптера. И хотя ими я не занимаюсь уже, но в итоге народ получил хорошие(надеюсь) инструменты. Так что лучше с макросом, чем без.

0

640

Ну всё, сдаюсь.... пошла тяжёлая артилерия :)

Убедили...

Я тоже ленивый ...
http://sd.uploads.ru/t/BpsU0.jpg

0

641

:cool:  :D

0

642

Доброго времени суток!
Возникла проблема при использовании макроса для лазерной резки. Для того чтобы шипы при сборке вставали плотно и не приходилось склеивать пробовал подставлять отрицательное значение в параметре "зазор шип/паз". В этом случае все отлично получалось, шипы вставали как надо, но конструкция в итоге не собиралась по причине,  указанной на картинке (обведены)http://sa.uploads.ru/t/xE0Ab.jpg
Как видно, шип и паз не стыкуются.

Используемые параметры:
http://sf.uploads.ru/t/O5Fb8.jpg

Как это можно поправить?

0

643

maxsecure написал(а):

Как это можно поправить?


Есть несколько способов.
Это программа с открытым исходным кодом.
Это значит что любой может внести туда изменения и желательно поделиться с обществом :)

У меня лазера нет, поэтому для себя смысла не вижу.

Вы можете:
1. Дописать код самому (при наличии основы это совсем не сложно)
2. Заплатить небольшую денюжку любому человеку, знакомому с VBA чтобы он дописал немного кода
3. Если оба вышеприведенных способа для Вас неприемлемы, то можете зайти в соседнюю тему и купить платный макрос (авторство не мое)
Конструктор Шкатулок. Макрос для CorelDraw (часть2)

4. Я еще опубликовал макрос для Solidworks (с открытым кодом ), он основан на другом алгоритме, для лазера правда не проверял

0

644

YuSTas написал(а):

electropointer.ru/assets/files/ShipoYashik_V1_10.zip

Добрый день, подскажите пожалуйста что делаю не так ? Жду "Зазор шип/паз "-" сразу сбрасывает на "1", тоесть не могу выставить значение "-0.15" пожалуйста помогите мудрые волки как побороть проблему. Спасибо заранее

0

645

alleks67 написал(а):

В чертежах уже чего-то выдает, но пилить я еще не пробовал.

Макрос - Макрос

Отредактировано alleks67 (31-03-2015 15:02:21)


Вставляю макрос в корневую папку корела "GMS"  но в Кореле он не пойвляется, в чем может быть проблема, подскажите пожалуйста. Корел (Х7 64бит)
Спасибо

0

646

Eugen_Bill написал(а):

Вставляю макрос в корневую папку корела "GMS"  но в Кореле он не пойвляется, в чем может быть проблема, подскажите пожалуйста. Корел (Х7 64бит)
Спасибо

Почитайте начало темы. В папку его копировать не обязательно. Он загружается через диспетчер макросов.

0

647

Добрый день, одногруппники, кто в макросах соображает?
Скачал и установил макрос "Шипо-ящик", работал как часы, но в один прекрасный момент выдал ошибку, дебагер выдает следующее окно:
http://sg.uploads.ru/vb5PD.jpg
P.S: глюк появился после того как в одном файле сделал несколько ящиков с разными размерами, при создании очередного ящика менял настройки, вот видимо где то что то не то поставил. Corel переустанавливал, макрос перезаливал, но видимо настройки где то в реестре прописались. Заранее большое спасибо за помощь.

0

648

Картинка не увеличивается - ничего не видно

0

649

Ulibka написал(а):

Картинка не увеличивается - ничего не видно

На яндекс диск залил: https://yadi.sk/i/uFRDQ7iB3XkDyE

0

650

Mixail написал(а):

Добрый день, одногруппники, кто в макросах соображает?
Скачал и установил макрос "Шипо-ящик", работал как часы, но в один прекрасный момент выдал ошибку,....

Проблему решил, ларчик просто открывался, спасибо большое Serg12313 в посте № 620 натолкнул на мысль, в папке Program files удалил файл "ShipoYashik.ini" и макрос запустился. :cool:

0

651

можно ли исключить это округление?

0

652

André Vitti написал(а):

É possível excluir esse arredondamento?

http://s8.uploads.ru/t/A23gV.jpg

0

653

André Vitti написал(а):

если будите делать не на фрезере,а на лазерном,то да.

0

654

André Vitti написал(а):

можно ли исключить это округление?

диаметр фрезы нужно установить 0.

0

655

извините, я выразил себя плохо, интересно, может ли в этом макросе что-то изменить?http://s8.uploads.ru/t/sGWDr.jpg

0

656

major написал(а):

Na verdade, não há limite para a perfeição!
Eu sugiro que o autor melhore um pouco a macro e adicione a função LASER / MILL.
A linha de fundo é esta: quando você selecionar uma opção nos cantos Fresagem espinhos deixar recessos para a moagem E tal recesso, respectivamente, não é necessária quando a opção LASER seleção. Isso será útil para aqueles que cortarão os espaços em branco das caixas em uma máquina a laser. P.S. isto é assim, pensamentos em voz alta ... П.П.С. na palavra COMPRIMENTO - uma letra H

Editado por major (02-05-2015 10:34:31)

Эта проблема была решена?
Мне тоже понравился этот вариант.

0

657

Виталий
Скачал (не в первый раз) бесплатную версию. Корел 18 ее не не находит. Когда-то запускал. Если не трудно, подскажите...

0

658

На 19ой норм работает, надо закинуть в папку: c:\Program Files\Corel\CorelDRAW Graphics Suite 2017\Draw\GMS\

+1


Вы здесь » Форум клана ЧПУшников » Программы для ЧПУ-фрезеров. » Изготовление ящиков на шип/паз в CorelDraw с использованием макросов