Удаление всех эффектов

  • Автор темы Автор темы SAS
  • Дата начала Дата начала
Статус
Закрыто для дальнейших ответов.
SAS

SAS

Топикстартер
15 лет на форуме
Сообщения
685
Реакции
30
Есть макет на котором, много еффектов.
Тени, Прозрачности, и все такое.
как быстро от них всех избавиться?
Заранее благодарен
 
Ответ: Удаление всех эффектов

нет.. ты не понял

мне надо чтобы всеь вектор осталься вектором...
просто к нему небыло применено ни каких эффектов
 
Ответ: Удаление всех эффектов

Edit — find Object — find Object that match ...

там представится всё счо есть в файле, ищи эффекты и редактируй

(Конечно не то что ты хотел, но это самый быстрый способ)
 
Ответ: Удаление всех эффектов

спасибо
 
Ответ: Удаление всех эффектов

2barakuda: Может я чего не понял? Кажется SAS нужно ИЗБАВИТСЯ от всех эфектов.
Т.е. убрать все эффекты а не отрастеризировать. Но все равно твой метод слишком груб. Я бы накидал в VBA скриптик.

ActivePage.Shapes.All.UngroupAllEx
ActiveSelection.Separate

Вуаля!
Хотя можно сделать и скрипт который будет перебирать объекты и если есть эффект то удалять его.
 
Ответ: Удаление всех эффектов

kerch сказал(а):
Хотя можно сделать и скрипт который будет перебирать объекты и если есть эффект то удалять его.
Нажмите, чтобы раскрыть...

да было-бы круто..
нехочешь написать его?. за большой риспект.
 
Ответ: Удаление всех эффектов

На досуге попробую. Сегодня занят.
 
Ответ: Удаление всех эффектов

мне надо чтобы всеь вектор осталься вектором...
просто к нему небыло применено ни каких эффектов
Нажмите, чтобы раскрыть...
Сделаешь Publish to PDF с правильными параметрами, и бедут тебе вектора отдельно, растры (бывшие тенюшки и т.п.) отдельно.

Откроешь в AI, лёгким движением убъёшь все растры (сразу все, а не перебором).
А потом одним махом у всех объектов уберёшь прозрачность (одним движением в палитре Transparancy).

И не надо никаих скриптов писать, велосипед изобретать.
 
Ответ: Удаление всех эффектов

2Shlyapa: Представляешь что с текстом будет?
Насчет "велосипеда"...
Наверное никогда не попадались объекты с эффектами но с нулевыми значениями?
А скриптик почти дописал.
 
Ответ: Удаление всех эффектов

Представляешь что с текстом будет?
Нажмите, чтобы раскрыть...
А чего представлять,я знаю. Корел либо превращает его в черт знает что (херит, грубо говоря), либо записывает так, что при открытии PDF-а в AI CS текст автоматически «курвится». Это зависит от использованных шрифтов.

Можно, конечно, ещё при записи PDF текст «покурвить», в параметрах указав.

Однако, в вопросе SAS ничего о тексте не говорится.

Наверное никогда не попадались объекты с эффектами но с нулевыми значениями?
Нажмите, чтобы раскрыть...
Да с каким угодно. В AI всё как на ладони будет и доступ ко всему прямой.

А скриптик почти дописал.
Нажмите, чтобы раскрыть...
Не устаю восхищаться теми, кому хватает терпения продираться сквозь кореловскую объектную модель.
 
Ответ: Удаление всех эффектов

В 95% случаев возвращаю файлы обратно, со своими требованиями. Ну нет у меня времени заниматься выуживанием чьих-то боков из-за некомпетентности "дизайнЁров".

Соглашусь со Шляпой, выделить все растры, и в сторону... нужные обратно, оставшиеся в забвение....

Насчет скрипта.... Ну не напишиш всех скриптов, бывают и частные случаи, дак зачем спрашивается велосипед без руля? Хотя поупрожнятся в писании никогда не грех. Удачно оттрасировать, и пива :beer:
 
Ответ: Удаление всех эффектов

NecroZoider сказал(а):
В 95% случаев возвращаю файлы обратно, со своими требованиями. Ну нет у меня времени заниматься выуживанием чьих-то боков из-за некомпетентности "дизайнЁров".
Нажмите, чтобы раскрыть...

да. везет. а у меня указ сверху.. брать все.. печатать все..

клиент всегда прав..
 
Ответ: Удаление всех эффектов

Клиент прав и клиент ПЛАТИТ
 
Ответ: Удаление всех эффектов

2SAS: Ну вот собсно и макрос. Особо не обкатывал потому как нету времени. Если найдете ошибки - дайте знать. Ну и в целом за конструктивную критику буду благодарен. Делал под 12 Corel'ом, но под 11 тоже должно пойти.

Код: 
'//////////////////////////////////////////////
Rem     Снимет эффекты с объектов.
Rem     Не работает с группами и PowerClip. Времени нету дописывать.
Rem     Возможно будет дорабатыватся.
Rem     (с)Stepanov Alexandr
Rem     15 апреля 2005 года.
'//////////////////////////////////////////////

Sub DelEffects()
    If Application.Documents.Count = 0 Then
        MsgBox "Нет открытых документов.", vbCritical, "Нет документа"
        Exit Sub
    End If
    ProcessShapes ActivePage.Shapes
MsgBox "Процедура завершена.", vbInformation
End Sub
Sub ProcessShapes(ss As Shapes)
    If ActivePage.Shapes.Count = 0 Then
        MsgBox "На странице нет объектов!", vbCritical
        End
    End If
    b = vbQuestion + vbYesNo
    If MsgBox("ВСЕ ОБЪЕКТЫ БУДУТ РАЗГРУППИРОВАНЫ!!! ПРОДОЛЖИТЬ?", b, "Разгруппировка") = vbNo Then
        MsgBox "Операция прервана пользователем", vbInformation
        End
    End If
    ActivePage.Shapes.All.UngroupAllEx
    ActivePage.SelectableShapes.All.RemoveFromSelection
    Dim s As Shape
    Dim e As Effect
    Dim c As New ShapeRange
    
        For Each s In ss
            If s.Effects.Count > 0 Then
                c.Add s
            End If
        Next s
        If MsgBox(c.Count & "объектов с эффектами. Продолжить?", b) = vbNo Then End
        
        For Each s In c
            For Each e In s.Effects
                e.Clear
            Next e
        Next s
    Set c = Nothing
End Sub
 
Ответ: Удаление всех эффектов

Уважаемые форумчане, просьба с темой "Прав ли клиент" перебраться в соответствующий раздел форума и продолжать уже там.
 
Ответ: Удаление всех эффектов

lev сказал(а):
Уважаемые форумчане, просьба с темой "Прав ли клиент" перебраться в соответствующий раздел форума и продолжать уже там.
Нажмите, чтобы раскрыть...
Я открою подобную темку в "Допечатной подготовке". :angel:
 
Ответ: Удаление всех эффектов

kerch
Скрипт славный, но удаление эффектов путем простого аннигилирования их - это не наш метод :smile:

Вот если бы происходило следующим образом:
1) Производится поиск эффектов
2) Найдены Blend Group, Contour Group, Extrude Group - производится Break Apart
3) Найдены Distortion или Envelope - Convert to Curves
4) Найдена Drop Shadow - опять же Break Apart
5) Найдена Transparency - тут варианты:
а) Если прозрачность сделана таким образом, что объект можно заменить на цвета бледнее, чем оригинал (ведь бывает, что на плашку M100Y100 накладывается прозрачность, и реальный цвет плашки получается M60Y60 - дизайнеров-то куча продвинутых :wink: )
б) Если прозрачность наложена на растровый объект, то работа прекращается с уведомлением "А ну его в одно место!", файл закрывается, удаляется и выкидывается из корзины :)

Не силен в скриптах, поэтому не могу судить, насколько данное реализуемо. Но если да, то приз "Скрипт года" будет присужден без сомнений!
 
Статус
Закрыто для дальнейших ответов.
Верх Низ