[CDR 2019] Из файла с 20 деталями сделать 20 файлов по одной детали.

ksv1547

Участник
Топикстартер
Сообщения
5
Оценка реакций
0
Привет . есть файл с расширением CDR .( дублирующий в DXF) . информация в файлах идентична . в файле 20 деталей в одном поле . для резки принимают детали в файлах поеденично . те мне нужно сделать 20 файликов в каждом по одной детали. и сохранить файлы с разрешением DXF .
процесс простой но я никогда не работал с корелом и с автокадом . лучше бы отдать девочке рекламщице да вот нельзя . короче должен сделать сам.
прошу описать как скопировать деталь и в новом файле ее вставить . думаю сохранить файл в другом формате(DXF) смогу и сам . честно говоря буду скачивать любую версию CDR 2019 или 2018 для меня все едино. может посоветуете какую усеченную или бесплатную .
громадное спасибо всем.
 
Последнее редактирование:

_MBK_

Пикирующий бомбардировщик
12 лет на форуме
Сообщения
27 000
Оценка реакций
8 987
прошу описать как скопировать деталь и в новом файле ее вставить .
Вовсе не обязательно это делать
Достаточно выделить нужную деталь и зажать волшебную пимпочку в диалоге экспорта
1585058900579.png
 

ksv1547

Участник
Топикстартер
Сообщения
5
Оценка реакций
0
Охеренное спасибо за столь быстрый ответ . может если есть минутка напишите как выделить и как она будет выглядеть выделенная . я так понимаю все размеры сохранятся?
 

ksv1547

Участник
Топикстартер
Сообщения
5
Оценка реакций
0
вечером буду пробовать
 

lev

Модератор
15 лет на форуме
Сообщения
1 902
Оценка реакций
1 748
Экспортируем каждый объект на текущей странице в отдельный dxf в папку TEMP.
Код:
Sub dxfer()
  Dim s As Shape
  For Each s In ActivePage.Shapes
    s.CreateSelection
    ActiveDocument.Export CorelScriptTools.GetTempFolder & s.ZOrder & ".dxf", cdrDXF, cdrSelection
  Next s
End Sub
 

~RA~

Чмоки всем в этом чате.
10 лет на форуме
Сообщения
7 890
Оценка реакций
2 253
Даётся мне, что деталь != объект.
 

_MBK_

Пикирующий бомбардировщик
12 лет на форуме
Сообщения
27 000
Оценка реакций
8 987
Человек не умеет обьект выделить а ты ему vba макрос предлагаешь самому запилить?
 

ksv1547

Участник
Топикстартер
Сообщения
5
Оценка реакций
0
большое спасибо за помощь. вот к слову что такое макрос VBA я знаю. в экселе пару программ для своих нужд написал. но вот как вставить макросы в корел даже не представляю - это верно. но думаю 400 деталей обьектов и ручками потихоньку перекину .хотя если не сложно добавлять макросы добавлю .
 

ksv1547

Участник
Топикстартер
Сообщения
5
Оценка реакций
0
да получилось . еще вопрос - если на детали -обьекте (внутри)есть куча отверстий деталь переносится а вот отверстия остаются . как экспортировать деталь обьект вместе с внутренними замкнутыми контурами ?
 

qsedftghk

фея
12 лет на форуме
Сообщения
1 580
Оценка реакций
805
Объединить отверстия с деталью (сгруппировать и т.д.). Предчувствуя следующий вопрос, я бы рекомендовал немного почитать хелп.
 

_MBK_

Пикирующий бомбардировщик
12 лет на форуме
Сообщения
27 000
Оценка реакций
8 987
Выделять можно несколько объектов сразу (хелп все таки почитать надо)