未完待续

ps_app= createOLEObject "Photoshop.Application"

ps_app.Load "d:\\test\\aaa.tga"

ps_app.ActiveDocument.Selection.SelectAll()

ps_app.ActiveDocument.Selection.Copy()

ps_app.ActiveDocument.Paste()

ps_app.Quit()

ReleaseOLEObject ps_app

ps_app= undefined

GC() --释放内存

 加载文件

　　ps_app.Load "d:\\test\\aaa.tga"

　　打开文件个数

　　　　ps_app.Documents.Count

　　当前活动文件

　　　　ps_app.ActiveDocument

　　　　　　另存为

　　　　　　ps_app.ActiveDocument.SaveAs(@"d:\test\ccc.psd")

　　　　　　   ps_app.ActiveDocument.SaveAs(@"d:\\test\\ccc", System.Type.Missing, System.Type.Missing, PsSaveDocumentType.psTargaSave) --C#里另存为其他格式的代码，不明白为什么会报错。望高人解答，错误如下：（System.Runtime.InteropServices.COMException”类型的未经处理的异常在 mscorlib.dll 中发生 ）

　　　　关闭当前活动文件

　　　　　　ps_app.ActiveDocument.Close 2  --close([PsSaveOptions]) 1 psSaveChanges 2 psDoNotSaveChanges 3 psPromptToSaveChanges

颜色                                                                                  -- ForegroundColor前景色，BackgroundColor背景色

　　ps_app.ForegroundColor.RGB.red = 255

　　ps_app.ForegroundColor.RGB.Green= 128

　　ps_app.ForegroundColor.RGB.Blue= 64

图片缩放

　　图片大小

　　　　ps_app.ActiveDocument.ResizeImage 512 512  -- ResizeImage([Width][, Height][, Resolution][, ResampleMethod])  

　　画布大小

　　　　ps_app.ActiveDocument.ResizeCanvas 1024 1024 1 --ResizeCanvas([Width][, Height][, Anchor]) Anchor （1上左，2上中，3上右，4中左，........9下右）

图层调整

　　ps_app.ActiveDocument.Layers.Parent.ActiveLayer.Opacity = 50 -- 透明度

　　ps_app.ActiveDocument.ActiveLayer.AdjustLevels 15 255 1 0 255 --使用色阶命令， inStart inEnd gamma outStart outEnd

　  ps_app.ActiveDocument.Layers.Parent.ActiveLayer.BlendMode = 12 --调整图层模式-PsBlendMode 1 (psPassThrough)2 (psNormalBlend)3 (psDissolve)4 (psDarken)5 (psMultiply)6 (psColorBurn)7 (psLinearBurn)8 　　           (psLighten)9 (psScreen)10 (psColorDodge)11 (psLinearDodge)12 (psOverlay)13 (psSoftLight)14 (psHardLight)15 (psVividLight)16 (psLinearLight)17 (psPinLight)18 (psDifference)19 (psExclusion)20 (psHue)21              　　　　       　(psSaturationBlend)22 (psColorBlend)23 (psLuminosity)26 (psHardMix)

　　向下合并图层

　　ps_app.ActiveDocument.Layers.Parent.ActiveLayer.Merge() --向下合并图层

首选项

单位 --1(像素)2（英寸）3（厘米）4（毫米）5（点）6（派卡）7（百分比）

　　标尺

　　　　ps_app.Preferences.RulerUnits = 1

　　文字

　　　　ps_app.Preferences.TypeUnits = 5

自定义函数

fn get_ForegroundColor_RGB = --得到前景色RGB
(
ForegroundColor = #()
ForegroundColor[1] = ps_app.ForegroundColor.RGB.red as integer
ForegroundColor[2] = ps_app.ForegroundColor.RGB.Green as integer
ForegroundColor[3] = ps_app.ForegroundColor.RGB.Blue as integer
return ForegroundColor
)

fn set_ForegroundColor_RGB R G B = --设置前景色RGB
(
ForegroundColor = #()
ForegroundColor[1] = ps_app.ForegroundColor.RGB.red = R
ForegroundColor[2] = ps_app.ForegroundColor.RGB.Green = G
ForegroundColor[3] = ps_app.ForegroundColor.RGB.Blue = B
return ForegroundColor
)