mirror of
https://github.com/sbrow/ps.git
synced 2025-12-29 18:47:38 -05:00
121 lines
4.9 KiB
Plaintext
121 lines
4.9 KiB
Plaintext
DIM objApp
|
|
SET objApp = CreateObject("Photoshop.Application")
|
|
REM Use dialog mode 3 for show no dialogs
|
|
DIM dialogMode
|
|
dialogMode = 3
|
|
DIM idsetd
|
|
idsetd = objApp.CharIDToTypeID("setd")
|
|
DIM desc2
|
|
SET desc2 = CreateObject("Photoshop.ActionDescriptor")
|
|
DIM idnull
|
|
idnull = objApp.CharIDToTypeID("null")
|
|
DIM ref2
|
|
SET ref2 = CreateObject("Photoshop.ActionReference")
|
|
DIM idPrpr
|
|
idPrpr = objApp.CharIDToTypeID("Prpr")
|
|
DIM idLefx
|
|
idLefx = objApp.CharIDToTypeID("Lefx")
|
|
Call ref2.PutProperty(idPrpr, idLefx)
|
|
DIM idLyr
|
|
idLyr = objApp.CharIDToTypeID("Lyr ")
|
|
DIM idOrdn
|
|
idOrdn = objApp.CharIDToTypeID("Ordn")
|
|
DIM idTrgt
|
|
idTrgt = objApp.CharIDToTypeID("Trgt")
|
|
Call ref2.PutEnumerated(idLyr, idOrdn, idTrgt)
|
|
Call desc2.PutReference(idnull, ref2)
|
|
DIM idT
|
|
idT = objApp.CharIDToTypeID("T ")
|
|
DIM desc3
|
|
SET desc3 = CreateObject("Photoshop.ActionDescriptor")
|
|
DIM idScl
|
|
idScl = objApp.CharIDToTypeID("Scl ")
|
|
DIM idPrc
|
|
idPrc = objApp.CharIDToTypeID("#Prc")
|
|
Call desc3.PutUnitDouble(idScl, idPrc, 416.666667)
|
|
DIM idSoFi
|
|
idSoFi = objApp.CharIDToTypeID("SoFi")
|
|
DIM desc4
|
|
SET desc4 = CreateObject("Photoshop.ActionDescriptor")
|
|
DIM idenab
|
|
idenab = objApp.CharIDToTypeID("enab")
|
|
Call desc4.PutBoolean(idenab, True)
|
|
DIM idMd
|
|
idMd = objApp.CharIDToTypeID("Md ")
|
|
DIM idBlnM
|
|
idBlnM = objApp.CharIDToTypeID("BlnM")
|
|
DIM idNrml
|
|
idNrml = objApp.CharIDToTypeID("Nrml")
|
|
Call desc4.PutEnumerated(idMd, idBlnM, idNrml)
|
|
DIM idOpct
|
|
idOpct = objApp.CharIDToTypeID("Opct")
|
|
idPrc = objApp.CharIDToTypeID("#Prc")
|
|
Call desc4.PutUnitDouble(idOpct, idPrc, 100.000000)
|
|
DIM idClr
|
|
idClr = objApp.CharIDToTypeID("Clr ")
|
|
DIM desc5
|
|
SET desc5 = CreateObject("Photoshop.ActionDescriptor")
|
|
DIM idRd
|
|
idRd = objApp.CharIDToTypeID("Rd ")
|
|
Call desc5.PutDouble(idRd, CInt(wScript.Arguments(0)))
|
|
DIM idGrn
|
|
idGrn = objApp.CharIDToTypeID("Grn ")
|
|
Call desc5.PutDouble(idGrn,CInt(wScript.Arguments(1)))
|
|
DIM idBl
|
|
idBl = objApp.CharIDToTypeID("Bl ")
|
|
Call desc5.PutDouble(idBl, CInt(wScript.Arguments(2)))
|
|
DIM idRGBC
|
|
idRGBC = objApp.CharIDToTypeID("RGBC")
|
|
Call desc4.PutObject(idClr, idRGBC, desc5)
|
|
idSoFi = objApp.CharIDToTypeID("SoFi")
|
|
Call desc3.PutObject(idSoFi, idSoFi, desc4)
|
|
DIM idFrFX
|
|
idFrFX = objApp.CharIDToTypeID("FrFX")
|
|
DIM desc6
|
|
SET desc6 = CreateObject("Photoshop.ActionDescriptor")
|
|
idenab = objApp.CharIDToTypeID("enab")
|
|
Call desc6.PutBoolean(idenab, True)
|
|
DIM idStyl
|
|
idStyl = objApp.CharIDToTypeID("Styl")
|
|
DIM idFStl
|
|
idFStl = objApp.CharIDToTypeID("FStl")
|
|
DIM idOutF
|
|
idOutF = objApp.CharIDToTypeID("OutF")
|
|
Call desc6.PutEnumerated(idStyl, idFStl, idOutF)
|
|
DIM idPntT
|
|
idPntT = objApp.CharIDToTypeID("PntT")
|
|
DIM idFrFl
|
|
idFrFl = objApp.CharIDToTypeID("FrFl")
|
|
DIM idSClr
|
|
idSClr = objApp.CharIDToTypeID("SClr")
|
|
Call desc6.PutEnumerated(idPntT, idFrFl, idSClr)
|
|
idMd = objApp.CharIDToTypeID("Md ")
|
|
idBlnM = objApp.CharIDToTypeID("BlnM")
|
|
idNrml = objApp.CharIDToTypeID("Nrml")
|
|
Call desc6.PutEnumerated(idMd, idBlnM, idNrml)
|
|
idOpct = objApp.CharIDToTypeID("Opct")
|
|
idPrc = objApp.CharIDToTypeID("#Prc")
|
|
Call desc6.PutUnitDouble(idOpct, idPrc, 100.000000)
|
|
DIM idSz
|
|
idSz = objApp.CharIDToTypeID("Sz ")
|
|
DIM idPxl
|
|
idPxl = objApp.CharIDToTypeID("#Pxl")
|
|
Call desc6.PutUnitDouble(idSz, idPxl, CLng(wScript.Arguments(3)))
|
|
idClr = objApp.CharIDToTypeID("Clr ")
|
|
DIM desc7
|
|
SET desc7 = CreateObject("Photoshop.ActionDescriptor")
|
|
idRd = objApp.CharIDToTypeID("Rd ")
|
|
Call desc7.PutDouble(idRd, CInt(wScript.Arguments(4)))
|
|
idGrn = objApp.CharIDToTypeID("Grn ")
|
|
Call desc7.PutDouble(idGrn, CInt(wScript.Arguments(5)))
|
|
idBl = objApp.CharIDToTypeID("Bl ")
|
|
Call desc7.PutDouble(idBl, CInt(wScript.Arguments(6)))
|
|
idRGBC = objApp.CharIDToTypeID("RGBC")
|
|
Call desc6.PutObject(idClr, idRGBC, desc7)
|
|
idFrFX = objApp.CharIDToTypeID("FrFX")
|
|
Call desc3.PutObject(idFrFX, idFrFX, desc6)
|
|
idLefx = objApp.CharIDToTypeID("Lefx")
|
|
Call desc2.PutObject(idT, idLefx, desc3)
|
|
Call objApp.ExecuteAction(idsetd, desc2, dialogMode)
|
|
|