Пакетная обработка CPPX3

zemnoy

out of space

Топикстартер

15 лет на форуме

17.04.2008

Порядка 100 файлов, разных по размеру и разрешению, надо привести к одному размеру использую скрипт:

Код:

WITHOBJECT "CorelPHOTOPAINT.Automation.13"
	.SetDocumentInfo 640, 481
	.ImageResample 640, 481, 240, 240, TRUE
	.ImageResample 472, 355, 240, 240, TRUE
	.ObjectCreateFromBackground 
	.ImagePapersize 472, 246, 0, 55, 5, 255, 255, 255, 0
	.ObjectMerge TRUE
		.EndObject 
END WITHOBJECT

Но потом приходится обрабатывать еще раз:

Код:

WITHOBJECT "CorelPHOTOPAINT.Automation.13"
	.ImageResample 472, 246, 240, 240, TRUE
END WITHOBJECT

Как сделать в одном скрипте?