- - - - в 12 кореле

[don1971]

Нужно создать - - - - контур изображения под плоттерную резку что бы получить перфорацию.Вернее контур уже есть, но сплошной. Корел 12 и 13 есть. Как это сделать. Если просто задать свойства линии, то режет линию целиком. Можно порубать вручную, но это не совсем то, объем работы большой. Расширение сохраненного файла plt
PS Владею корелом далеко не совершенно, так что просьба объяснить более менее подробно
Спасибо

 

[xplight]

Ответ: - - - - в 12 кореле

задайте нужный контур (— — — — ), экспортируйте в WMF, а после ипортируйте обратно в корел

 

[MorLock]

Ответ: - - - - в 12 кореле

Нет. Контур превратится в объекты.
Но ход мыслей правильный. какой то формат бьёт кривую на куски, но какой?

 

[xplight]

Ответ: - - - - в 12 кореле

Морлок, то и требуется, всмысле его просто разобьет на части.
В любом случае, ни кто не мешает после объединить\скомбинировать эти объекты...

 

[barakuda]

Ответ: - - - - в 12 кореле

в любом кореле

1. convert outline to object
2. Break curve apart

и будет вам счастье....

 

[xplight]

Ответ: - - - - в 12 кореле

Баракуда, плоттер режет по именно по контуру, это и есть камень преткновения.
Т.е. convert outline to object - создаст множество «прямоугольников». А нужны просто незамкнутые отрезки.

 

[MorLock]

Ответ: - - - - в 12 кореле

Баракуда, плоттер режет по именно по контуру, это и есть камень преткновения.
Т.е. convert outline to object - создаст множество «прямоугольников». А нужны просто незамкнутые отрезки.

Экспорт в ВМФ и создаёт множество прямоугольников.
Как пожарный вариант, можно задать очень тонкий аутлайн, при достаточной "тончине" лазер воспринимает объект как обрис, но думаю это будет не везде работать.

 

[dimohha]

Ответ: - - - - в 12 кореле

Попробуйте отрезочки нужной толщины скопировать и по контуру с нужным инетервалом вклеить в текстовом режиме. Сам не пробовал, но, кажется - один из вариантов.

 

[dik973]

Ответ: - - - - в 12 кореле

Посмотри, может этот макрос будет удобен. Пример в архиве....

 

[MorLock]

Ответ: - - - - в 12 кореле

1. Сначала преобразовать кривую в объект (ctrl+shift+Q), после этого нивидимая кривая останется на заднем плане.
2. В оставшейся кривой разъединить любой узел.
3. Вычесть объект (который из кривой) из этой самой кривой (кнопка Trim).
Дело в шляпе.

 

[denisgrim]

Ответ: - - - - в 12 кореле

Идея такова: нужно создать кисть-распылитель, которая будет распылять короткую чёрточку. Нужным объектам назначаете эту кисть в качестве обводки, потом Break apart и удаляете опорный объект. Остается только пунктирная полоса из контуров (не прямоугольников!). Для кисти-распылителя нужно задать кое-какие параметры, чтобы она перестала "распылять" чёрточки...
Пример готовой кисти во вложении.

 

[denisgrim]

Ответ: - - - - в 12 кореле

1. Сначала преобразовать кривую в объект (ctrl+shift+Q), после этого нивидимая кривая останется на заднем плане.
2. В оставшейся кривой разъединить любой узел.
3. Вычесть объект (который из кривой) из этой самой кривой (кнопка Trim).
Дело в шляпе.

MorLock, это ГЕНИАЛЬНО!

 

[dik973]

Ответ: - - - - в 12 кореле

1. Сначала преобразовать кривую в объект (ctrl+shift+Q), после этого нивидимая кривая останется на заднем плане.
2. В оставшейся кривой разъединить любой узел.
3. Вычесть объект (который из кривой) из этой самой кривой (кнопка Trim).
Дело в шляпе.

Отличная идея -- вот код в чтобы в одно действие!...

Public Sub breackDASHandSPACE()
Dim origSel As ShapeRange, ss As Shape, sTemp As New Shape, sNew As New Shape, tempSSdupl As New Shape
Set origSel = ActiveSelectionRange
ActiveDocument.BeginCommandGroup "breackDASHandSPACE"
For Each ss In origSel.Shapes
 Set tempSSdupl = ss.Duplicate
 tempSSdupl.Outline.Style = OutlineStyles(0)
 If ss.Outline.Type = cdrOutline Then
 Set sTemp = ss.Outline.ConvertToObject
 Set sNew = sTemp.Intersect(ss, True, True)
 sNew.Outline.CopyAssign tempSSdupl.Outline
 sTemp.Delete
 ss.Delete
 tempSSdupl.Delete
 End If
Next ss
ActiveDocument.EndCommandGroup
End Sub

PS: извинясь просмотрел, что речь о 12 Corel -- макрос под X3

 

[xplight]

Ответ: - - - - в 12 кореле

Экспорт в ВМФ и создаёт множество прямоугольников.

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

см. скрины.

Как пожарный вариант, можно задать очень тонкий аутлайн, при достаточной "тончине" лазер воспринимает объект как обрис, но думаю это будет не везде работать

На сколько я вкурсе, каттеры не воспринимают толшину аутлайна, т.е. они просто режут по контуру кривой. Собственно по этому и хэирлайн

 

[MorLock]

Ответ: - - - - в 12 кореле

В 13 получаются объекты


Имелось ввиду, перед преобразованием линии в объект задать очень маленькую толщину.

 

[dik973]

Ответ: - - - - в 12 кореле

А где автор темы? Похоже он давным давно уже нашел решение данного вопроса и потерял к нему интерес ...

 

[denisgrim]

Ответ: - - - - в 12 кореле

А где автор темы? Похоже он давным давно уже нашел решение данного вопроса и потерял к нему интерес ...

Неважно! Главное, что мы лишний раз поупражнялись

 

[Yar]

Ответ: - - - - в 12 кореле

а в ХЧ опорный объект после Ctrl+Shift+Q исчезает…

 

[MorLock]

Ответ: - - - - в 12 кореле

Тогда сначала нажимаем кнопку "+", и дальше по тексту.