Сабж?
Точніше є наступна задача:
Є багато короловскіх файлів потрібно зробити з них файл з купою підписаних
превьюшек замість кожного файлу. Руками робити дуже довго тому користуюся
скриптом трахумблер з сайту www.oberonplace.com (кажись). Так в цьому скрипті
маленький глючок він не робить перед маштамірованіем "криву маштабіровать з
контуром "і тому багато зображення не відповідають действітельності.как
поправити? розширення скрипта * .gms.
Або порадьте інший скрипт.
До скоpее, Alexander.
. Judas, Judas - are you still human. (C)
AG> Точніше є наступна задача:
AG> Є багато короловскіх файлів потрібно зробити з них файл з купою
AG> підписаних превьюшек замість кожного файлу. Руками робити дуже довго
AG> тому користуюся скриптом трахумблер з сайту www.oberonplace.com
AG> (кажись). Так в цьому скрипті маленький глючок він не робить перед
AG> маштамірованіем "криву маштабіровать з контуром" і тому багато
AG> зображення не відповідають действітельності.как поправити?
Поставив, спробував - все відповідає.
Ти прев'юшки в растрі робиш? Тоді спробуй поставити Rasterize Before
Resizing. Спробуй також підняти роздільну здатність.
Отож, коли ти в векторі - то попередньо видали все ScaleWithImages. Але: в
CorelDraw заміною Edit-Find and Replace-Replace Objects-Replace outline pen
properties- (Find: Scale outline with image: On; Replace: Scale outline with
image: Off) видаляються не всі ScaleWithImages. Спробуй застосуй ось це - може
Можливо, тобі допоможе (тільки застосовуй ОБЯЗАТЕЛЬHО після того, як прибрав
ScaleWithImages стандартної Corel'овской заміною). Працює з активним шаром,
написаний для CorelDRAW 11:
Dim s As Shape, myWidth As Long, myType As Long, myEndCaps As Long, _
myJoinType As Long, myAspect As Long, myAngle As Long, _
myDotDash As Long, myRightArrow As Long, myLeftArrow As Long, _
myBehindFill As Boolean, myOutlinrType As Long, myPreset As Long, _
myScalePen As Boolean
For Each s In ActiveLayer.FindShapes (, cdrFillShape)
If s.Type = cdrDropShadowGroupShape Or s.Type = cdrBlendGroupShape _
Or s.Type = cdrExtrudeGroupShape Or s.Type = cdrContourGroupShape _
Or s.Type = cdrControlPathShape Or s.Type = cdrLinearDimensionShape _
Then GoTo ErrorLabel
If s.Outline.Type = cdrOutline Then
If s.Outline.ScaleWithShape = True Then
s.CreateSelection
If CorelScript.GetOutline (myWidth, myType, myEndCaps, _
myJoinType, myAspect, myAngle, myDotDash, myRightArrow, _ myLeftArrow,
myBehindFill, myScalePen) Then
If CorelScript.ApplyOutline (myWidth, myType, myEndCaps, _
myJoinType, myAspect, myAngle, myDotDash, myRightArrow, _ myLeftArrow,
myBehindFill, 0, 0, False) Then
End If
End If
End If
ErrorLabel:
End If
Next s
Можуть так само гадіться outlines з "нульовою" BehindFill. правляться приблизно
так само, як ScaleWithImages - перевіряю зміною кольору обводок. Якщо при цьому
BehindFill злітає (лінії "опухають") - призначаю cdrNoOutline.
Оброблені таким чином файли повинні коректно відображатися в
прев'юшки.
AG> розширення скрипта * .gms. Або порадьте інший скрипт.
C повагою, Yuri
Фантастика - це добре
11 Гру 04 року, о 14:25, Yuri Zubakin писал (а) для Alexander Geraschenko:
AG >> www.oberonplace.com (кажись). Так в цьому скрипті маленький глючок
AG >> він не робить перед маштамірованіем "криву маштабіровать з
AG >> контуром "і тому багато зображення не відповідають
AG >> действітельності.как поправити?
YZ> Поставив, спробував - все відповідає.
YZ> Ти прев'юшки в растрі робиш? Тоді спробуй поставити Rasterize
YZ> Before Resizing. Спробуй також підняти роздільну здатність.
Hу а хіба не зрозуміло що в векторі.
YZ> Якщо робиш в векторі - то попередньо видали все
YZ> ScaleWithImages.
З усіх 121 114 файлів? Руками?
YZ> Але: в CorelDraw заміною Edit-Find and Replace-Replace
YZ> Objects-Replace outline pen properties- (Find: Scale outline with
YZ> image: On; Replace: Scale outline with image: Off) видаляються не всі
YZ> ScaleWithImages. Спробуй застосуй ось це - може бути, тобі допоможе
YZ> (тільки застосовуй ОБЯЗАТЕЛЬHО після того, як прибрав
YZ> ScaleWithImages стандартної Corel'овской заміною). Працює з активним
YZ> шаром, написаний для CorelDRAW 11:
Або я дурень або.
Ось якби сказали куди в скрипт вмонтувати потрібний код, щоб скрипт почав
трудиться по людськи, ось була б радість, а то я побіжно пробігся по коду,
мало що зрозумів.
До скоpее, Alexander.
. Hа пpактике найголовніше - це вміння ліпити відмазки.