OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Developer Forums > VBA > CorelDRAW/Corel DESIGNER VBA

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 26-08-2005, 18:57
ALEKSEY
Guest
 
Posts: n/a
Exclamation CorelScript.BitmapEffect Run-time error 61704

Делаю мультфильм. И надо Каждый кадр обрадотать фильтром. Написал скрипт в котором файлы перебираются в цыкле и обрабатываются но примерно после 20 - 22 файлов VBA и PHOTOPAINT вылетают приходится перегружать PHOTOPAINT чтобы запустить скрипт повторно. Я думаю что просто заканчиваются какие-то системные ресурсы, но как их очищать???
Выдается ошибка Run-time error 61704 и срабатывает она на команде CorelScript.BitmapEffect Как с этим бороться?
Reply With Quote
  #2  
Old 26-08-2005, 19:01
wOxxOm's Avatar
wOxxOm wOxxOm is offline
Senior Member
 
Join Date: Mar 2005
Posts: 836
Default

а ваще corelscript нужен-то очень? vba-аналог если есть то он быстрее будет и памяти жрать не будет. может кинешь скрипт? а кстати на english больше народу ответит ;-)
Reply With Quote
  #3  
Old 26-08-2005, 19:27
ALEKSEY
Guest
 
Posts: n/a
Exclamation Вот так

Вот скрипт силенок у него хватает на обработку 22 файлов дольше начинаются глюки с CorelScript.BitmapEffect оно просто вырубает VBA

Code:
Option Explicit
Public Sub Render()
    Dim n As Integer
    Dim m As Integer
    Dim d As Document
    Dim l As Layer
    Dim OriginalPath As String
    Dim OriginalFileType As String
    Dim RenderFileType As String
    Dim RenderPath As String
    Dim FileName As String
    Dim FileNameCount As Integer
    Dim I As String
    Dim T As String
    Dim FromIndex As Integer
    Dim ToIndex As Integer
    Dim nn As String
    
    FromIndex = 331
    ToIndex = 374
    
    OriginalPath = "C:\MIKA\Images\"
    OriginalFileType = ".jpg"
    RenderFileType = ".bmp"
    RenderPath = "C:\MIKA\RenderImages\"
    FileName = "mult"
    FileNameCount = 5
    
    For n = FromIndex To ToIndex
    
    nn = LTrim(Str(n))
    For m = 1 To FileNameCount - Len(nn)
    nn = "0" + nn
    Next m
    
    OpenDocument (OriginalPath + FileName + nn + OriginalFileType)
    Randomize
    I = LTrim(Str(Int(25 * Rnd)))
    T = LTrim(Str(Int(5 * Rnd)))
    ActiveDocument.Mask.SelectAll
    ActiveDocument.Layers.Add "верхний слой", , 18, pntCopySelection
    ActiveDocument.Layers("верхний слой").Activate
    CorelScript.BitmapEffect "Conte Crayon", "ConteCrayonEffect ConteColor=31,Intensity=" + I + ",Texture=" + T + ",PaperColor=5:233:233:215"
    ActiveDocument.Layers.Merge
    ActiveDocument.Resample 550, 400
    ActiveDocument.SaveAs(RenderPath + FileName + nn + RenderFileType, 769).Finish
    ActiveDocument.Close

    Next n

End Sub
Reply With Quote
  #4  
Old 27-08-2005, 03:14
wOxxOm's Avatar
wOxxOm wOxxOm is offline
Senior Member
 
Join Date: Mar 2005
Posts: 836
Default У меня этот скрипт идет без проблем

Сделал папки как в скрипте, накидал туда jpegов 500 штук mult#####.jpg - сходу взял и сделал 44 (твои номера) без всяких изменений скрипта.
У меня комп 1gb ram.
P.S. наверно надо обновить тебе corel. Если 11 то - SP1, потом SP2. Если 12 - то SP1. Обязательно. На неофициальную русскую версию вроде не поставится ;-(

Кстати это проще сделать action-ом в фотошопе, по-моему, а потом вызвать file->automation->batch. Вроде в шопе тоже есть crayon

Last edited by wOxxOm; 27-08-2005 at 03:16.
Reply With Quote
  #5  
Old 29-08-2005, 06:58
ddonnahoe's Avatar
ddonnahoe ddonnahoe is offline
Senior Member
 
Join Date: Jan 2004
Location: Louisville, KY
Posts: 552
Send a message via ICQ to ddonnahoe Send a message via AIM to ddonnahoe Send a message via MSN to ddonnahoe Send a message via Yahoo to ddonnahoe
Default

One more time in English please?
__________________
Sean
Waiting for a ride in the T.A.R.D.I.S.
Reply With Quote
  #6  
Old 29-08-2005, 09:30
wOxxOm's Avatar
wOxxOm wOxxOm is offline
Senior Member
 
Join Date: Mar 2005
Posts: 836
Default

Quote:
Originally Posted by ddonnahoe
One more time in English please?
;-))) gyu's having a problem with pnt12: script hangs after carrying out 20-25 repetitions of applying crayon effect as you've seen in script. I said script is ok 'cause on my p4 3000 1GB ram it works fin on 50 images, but he had an err (runtime err), see err# in his post. I suggested him to uninstall fully, then install suite. And surely update to sp1 ;-)
Reply With Quote
Reply


Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
How can I make a macro time out? Rick Randall CorelDRAW/Corel DESIGNER VBA 6 09-02-2005 11:16
saving time for machine printing bumblebee CorelDRAW/Corel DESIGNER VBA 0 24-10-2004 10:09
Trying to get my Time Recording script running... johndankey CorelDRAW/Corel DESIGNER VBA 12 26-04-2004 22:48
takes Draw a long time to start a new document! bbolte CorelDRAW/Corel DESIGNER VBA 5 14-05-2003 09:09


All times are GMT -5. The time now is 14:01.


Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Copyright © 2011, Oberonplace.com