//Photoshop指令碼加入文字浮水印 beta 1
#target photoshop

var dlg = new Window("dialog", "自動加上文字浮水印",[0,0,220,200]);

dlg.center();

dlg.txt1 = dlg.add("statictext",[5,5,215,25],"請輸入浮水印文字");

dlg.markText = dlg.add("edittext",[5,25,215,50],"http://blog.colorbase.tw.colorbase.tw");

dlg.ok = dlg.add("button",[5,55,105,80],"確定");
dlg.ok.onClick = function()
{
	Watermarking(dlg.markText.text);

	function Watermarking(varText)
	{
		if(app.documents.length > 0)
		{
			var doc = app.activeDocument;
		}
		else
		{
			alert("請開啟要加浮水印的圖檔");
			return;
		}

		oldRulerUnits = app.preferences.rulerUnits;
		oldTypeUnits = app.preferences.typeUnits;
		app.preferences.rulerUnits = Units.PIXELS;
		app.preferences.typeUnits = TypeUnits.PIXELS

		var layer = doc.artLayers.add();

		layer.kind = LayerKind.TEXT;

		var text = layer.textItem;

		var txtColor = new SolidColor();
		var txtRgb = txtColor.rgb;
		txtRgb.red = 255;
		txtRgb.green = 255;
		txtRgb.blue = 255;
		text.contents = varText;
		text.font = "Vrinda";
		text.size = 24;
		text.tracking = 200;
		text.color= txtColor;
		text.kind = TextType.PARAGRAPHTEXT;
		text.position = Array( doc.width - text.width,
		doc.height - text.height - 5);
		layer.applyStyle("WatermarkingStyle");
		app.preferences.rulerUnits = oldRulerUnits;
		app.preferences.typeUnits = oldTypeUnits;
		alert("完成");
		}

		dlg.close();
};

dlg.cancel = dlg.add("button",[110,55,215,80],"取消");
dlg.cancel.onClick = function(){dlg.close()};

dlg.p1 = dlg.add("panel",[5,85,215,195],"關於作者");

var authorTxt = "作者：顏宏育 Roy Yan\n" +
"部落格：http://blog.colorbase.tw.colorbase.tw\n" +
"作品：http://free.colorbase.tw\n\n" +
"歡迎到我的網站逛逛 ^^";
dlg.p1.txt2 = dlg.p1.add("statictext",[5,15,200,95],authorTxt,
{multiline:true});

dlg.show();

#target photoshop
//使用Application物件將Photoshop推到最上層
app.bringToFront();

Dim app
Set app = CreateObject( "Photoshop.Application" )
'使用Application物件將Photoshop推到最上層
app.bringToFront

#target photoshop
alert("目前開啟圖檔數量：" + app.documents.length);

Dim app
Set app = CreateObject( "Photoshop.Application" )
MsgBox("目前開啟的圖檔數量：" & app.documents.count)

#target photoshop
//判斷是否有開啟圖檔
if(app.documents.length > 0)
{
	//有開啟圖檔，設定doc為目前圖檔的參照(reference)
	var doc = app.activeDocument;
	//顯示目前圖檔尺寸
	alert("目前圖檔尺寸為\n寬：" + doc.width + "\n高：" + doc.height);

	//顯示第一個圖檔文件的尺寸
	doc = app.documents[0];//圖檔依照順序從0開始
	alert("第一個圖檔尺寸為\n寬：" + doc.width + "\n高：" + doc.height);
}

Dim app
Dim doc
Set app = CreateObject( "Photoshop.Application" )
'判斷是否有開啟圖檔
If app.documents.count > 0 Then
	Set doc = app.activeDocument
	MsgBox("目前圖檔尺寸為" & vbcr & _
	"寬：" & doc.width& vbcr & "高：" & doc.height)

	Set doc = app.Documents.item(1)'//圖檔依照順序從1開始
	MsgBox("第一個圖檔尺寸為" & vbcr & _
	"寬：" & doc.width& vbcr & "高：" & doc.height)
End If

#target photoshop
var myColor = new SolidColor();
//設定SolidColor的RGB屬性，將顏色設成青色
myColor.rgb.red = 0;
myColor.rgb.green = 255;
myColor.rgb.blue = 255;
//將Photoshop的前景色設置為青色
app.foregroundColor = myColor;

Dim app
Set app = CreateObject( "Photoshop.Application" )
'設定SolidColor的RGB屬性，將顏色設成青色
Set myColor = CreateObject( "Photoshop.SolidColor" )
mycolor.rgb.red = 0
mycolor.rgb.green = 255
mycolor.rgb.blue = 255
'將Photoshop的前景色設置為青色
app.foregroundColor = myColor

#target photoshop
//直接設定foregroundColor，將前景色設成青色
app.foregroundColor.rgb.red = 0;
app.foregroundColor.rgb.green = 255;
app.foregroundColor.rgb.blue = 255;

Dim app
Set app = CreateObject( "Photoshop.Application" )
'直接設定foregroundColor，將前景色設成青色
app.foregroundColor.rgb.red = 0
app.foregroundColor.rgb.green = 255
app.foregroundColor.rgb.blue = 255

#target photoshop

//-----設定-----------------------
var limitWidth = 200;//最大寬度
var limitHeight = 160;//最大高度
var ImgResolution = 72;//解析度
//--------------------------------

//把Photoshop推到最上層
app.bringToFront();

//設定使用的單位為「像素(Pixel)」
app.preferences.rulerUnits = Units.PIXELS;

//呼叫要處理縮圖的函數
ReSizeImg();

function ReSizeImg()
{
	//判斷是否有開啟圖檔
	if(app.documents.length > 0){
		//有開啟圖檔，設定doc為目前圖檔的參照(reference)
		var doc = app.activeDocument;
	}else{
		//沒有開啟圖檔
		alert("請開啟要調整大小的圖檔");
		return;
	}

	//如果原圖小於或等於縮圖尺寸，則跳出不處理
	if(doc.width <= limitWidth && doc.height <= limitHeight)return;

	//開始判斷縮圖大小
	var rsWidth = doc.width;
	var rsHeight = doc.height;
	var Scale = 1.0;

	if(doc.width > limitWidth){
		Scale = limitWidth / (doc.width + 0.0);
		rsWidth = doc.width * Scale;
		rsHeight = doc.height * Scale;
	}

	if (rsHeight > limitHeight){
		Scale = limitHeight / (doc.height + 0.0);
		rsWidth = doc.width * Scale;
		rsHeight = doc.height * Scale;
	}

	//執行更改圖像大小指令
	doc.resizeImage(rsWidth, rsHeight, ImgResolution, ResampleMethod.BILINEAR);
}

Dim app
Dim doc
Dim limitWidth
Dim limitHeight
Dim ImgResolution
Dim rsWidth
Dim rsHeight
Dim Scale
Set app = CreateObject( "Photoshop.Application" )

'-----設定-----------------------
limitWidth = 200 '最大寬度
limitHeight = 160 '最大高度
ImgResolution = 72 '解析度
'--------------------------------

'把Photoshop推到最上層
app.bringToFront()

'設定使用的單位為「像素(Pixel)」，跟JS不太一樣哦
app.preferences.rulerUnits = 1 ' psPixels

'呼叫要處理縮圖的函數
ReSizeImg()

Function ReSizeImg()

	'判斷是否有開啟圖檔
	If app.documents.count > 0 Then
		'有開啟圖檔，設定doc為目前圖檔的參照(reference)
		Set doc = app.activeDocument
	Else
		'沒有開啟圖檔
		MsgBox("請開啟要調整大小的圖檔")
		Exit Function
	End If

	'如果原圖小於或等於縮圖尺寸，則跳出不處理
	If doc.width <= limitWidth And doc.height <= limitHeight Then Exit Function

	'開始判斷縮圖大小
	rsWidth = doc.width
	rsHeight = doc.height
	Scale = 1.0

	if doc.width > limitWidth Then
		Scale = limitWidth / (doc.width + 0.0)
		rsWidth = doc.width * Scale
		rsHeight = doc.height * Scale
	End If

	if rsHeight > limitHeight Then
		Scale = limitHeight / (doc.height + 0.0)
		rsWidth = doc.width * Scale
		rsHeight = doc.height * Scale
	End If

	'執行更改圖像大小指令，跟JS不太一樣哦
	doc.resizeImage rsWidth, rsHeight, ImgResolution, 3
End Function