ActionScript ها در فتوشاپ

یک مقاله جالب دیگه در همین رابطه منتها در CS

Tufte Sparklines Photoshop Script

اینجا ...

با سلام

سیستم عامل رایج در ایران ویندوز می باشد و فتوشاپ برای ویندوز ، زبان ویژوال بیسیک را برای اسکریپت نویسی در نظر گرفته است و جاوا بطور مشترك براي ويندوز و مكينتاش كاربرد دارد. از مزاياي جاوا امكان اجرا مستقيم اسكريپت ها از منوي Script مي باشد ولي اسكريپت هاي ويژوال بيسيك و يا اپل بصورت يك برنامه اجرايي قابل استفاده مي باشند. اسکریپت زير در زبان ويژوال بيسيك نوشته شده است.

آنچه من از اسکریپتهایي كه در ويژوال بيسيك براي فتوشاپ نوشته مي شوند فهمیده ام این است که اينها مجموعه اي از کدها هستند که در نهایت بصورت یک برنامه اجرایی ترجمه شده و در اختیار کاربران قرار می گیرند. یعنی شما با اجرای یک برنامه ی ساده یکسری دستورات را به فتوشاپ اعلام می کنید و فتوشاپ آنها را برای شما انجام می دهد. کدهای زیر نمونه ای از این دستورات هستند که بصورت یک فایل اجرایی با نام Script.exe ترجمه شده و بحالت Zip پیوست این متن گردیده است. در صورت تمایل آن را دانلود نموده و اجرا نمایید.
کار این اسکریپت این است که:
مجموعه ای از عکسها را با فرمت JPEG به همراه تنظیمات آن از قبیل درصد فشردگی ذخیره میکند.
برای اجرای این فایل به مطلب زیر توجه فرمایید:

ابتدا فتوشاپ را باز کرده ، تمامی عکسهای مورد نظر خود را وارد نمایید. سپس در کادر Destination Folder مسیری را برای ذخیره فایلهای جدید انتخاب نمایید یا از همان مسیر پیش فرض برنامه استفاده کنید. سایر تنظیمات از قببل درصد فشردگی و... را انتخاب نموده در آخر دکمه Save As را بزنید.

در انتها یادآوری می نمایم روشی که آقای محبی بیان فرمودند بهترین راه برای انجام اتوماسیون در فتوشاپ می باشد و زمانی باید به اسکریپت ها مراجعه نمود که با ایجاد Action رسیدن به نتیجه مطلوب امکان پذیر نباشد.

با تشکر
همایون کریمخان زند

' A Sample Script for Photoshop (Based on VB):
'
'Purpose: Save documents as JPEG:
'
'Date: 1384/2/24
'
'Prepare for Akkasee website forum(Digital Softwares)
'
'-----------------------------------------------------------

Option Explicit

Dim fmtOptionType As PsFormatOptionsType 'Get formatoption Type

Private Sub cmd_SaveAsJPEG_Click()


On Error Resume Next

Dim appRef As Photoshop.Application
Dim docRef As Photoshop.Document
Dim lngnumDocs As Long 'number of documents.
Dim strPath As String
Dim dblInterval As Double
Dim ExtType As Photoshop.PsExtensionType
Dim JPEGSaveOptions As Photoshop.JPEGSaveOptions

Set appRef = New Photoshop.Application
Set JPEGSaveOptions = New Photoshop.JPEGSaveOptions
Set docRef = appRef.ActiveDocument

lngnumDocs = appRef.Documents.Count
dblInterval = 3060 / lngnumDocs
lbl_Progress.Width = 10
ExtType = psUppercase

If appRef.Documents.Count <= 0 Then
MsgBox "There is no document.Please open a document,Then Run Script.", vbCritical, "Script"
Exit Sub
End If



Do Until lngnumDocs = 0 ' now save as JPEG

strPath = txt_DesFolder.Text
If Right(strPath, 1) <> "\" Then
strPath = strPath & "\"
End If
strPath = strPath & appRef.ActiveDocument.Name


Set docRef = appRef.ActiveDocument
JPEGSaveOptions.EmbedColorProfile = True
Call FormatOption
JPEGSaveOptions.FormatOptions = fmtOptionType
JPEGSaveOptions.Matte = psNoMatte
JPEGSaveOptions.Quality = txt_Quality.Text
docRef.SaveAs strPath, Options:=JPEGSaveOptions, asCopy:=True, extensionType:=ExtType
docRef.Close
lngnumDocs = lngnumDocs - 1
lbl_Progress.Width = lbl_Progress.Width + dblInterval
lbl_Result.Caption = Left(((lbl_Progress.Width / 3060) * 100), 2) & "%"
DoEvents
Loop
lbl_Result.Caption = "Done"
End Sub

Private Sub Form_Load()

'Add items to combobox
cbo_Scan.AddItem "3"
cbo_Scan.AddItem "4"
cbo_Scan.AddItem "5"
cbo_Scan.Text = "3"
End Sub



Private Sub opt_Optimized_Click()
cbo_Scan.Enabled = False
End Sub

Private Sub opt_Progressive_Click()
cbo_Scan.Enabled = True
End Sub

Private Sub opt_Standard_Click()
cbo_Scan.Enabled = False
End Sub

Private Sub txt_Quality_Validate(Cancel As Boolean)

If txt_Quality.Text < 0 Or txt_Quality.Text > 12 Then
Cancel = True
MsgBox "You must insert a number at range: 0-12 ", vbCritical, "Script error"
txt_Quality.SetFocus
txt_Quality.SelStart = 0
txt_Quality.SelLength = 2

End If

End Sub

Sub FormatOption()

'get Format option Type:
If opt_Standard.Value Then fmtOptionType = psStandardBaseline
If opt_Optimized.Value Then fmtOptionType = psOptimizedBaseline
If opt_Progressive.Value Then fmtOptionType = psProgressive

End Sub

دوستاني كه موفق نشده اند اسكريپت مورد نيازشان را در سايتهاي معرفي شده ( از سوي نويسندگان اين موضوع - در صفحه اول) پيدا كنند ، شرح اسكريپت مورد نيازشان را ذكر كرده تا آن را نوشته شده و در اين سايت براي استفاده ايشان و ساير علاقه مندان قرار دهم.

همايون كريمخان زند

نقل قول:

---

نوشته اصلی توسط homayoonka

دوستاني كه موفق نشده اند اسكريپت مورد نيازشان را در سايتهاي معرفي شده ( از سوي نويسندگان اين موضوع - در صفحه اول) پيدا كنند ، شرح اسكريپت مورد نيازشان را ذكر كرده تا آن را نوشته شده و در اين سايت براي استفاده ايشان و ساير علاقه مندان قرار دهم.

همايون كريمخان زند

---

چه پيشنهاد خوبي. فرصت را غنيمت شماريد.

اسكريپت نويسي در فتوشاپ سي اس دو چه تغييراتي كرده:
what's new in photoshop cs2 scripting?

جناب زند ، ضمن تشکر از اسکریپتون ، متاسفانه من موفق نشدم از اون استفاده کنم ، همه مراحل رو انجام میدم به مرحله Save که میرسم ارور دریافت میکنم !

لطفا متن ارور را بفرماييد تا بررسي كنم.

با تشكر

نقل قول:

---

نوشته اصلی توسط nmroshan

چه پيشنهاد خوبي. فرصت را غنيمت شماريد.

اسكريپت نويسي در فتوشاپ سي اس دو چه تغييراتي كرده:
what's new in photoshop cs2 scripting?

---

با تشكر از لينك بسيار خوب شما

ظاهرا در نسخه جديد فتوشاپ Cs2 شركت ادوب زبان اصلي اسكريپت نويسي را بر پايه جاوا قرارداده است و امكانات جديد را از قبيل طراحي محيط ويژوالي براي اين زبان در نظر گرفته است. در نسخه هاي قبلي امكان طراحي يك محيط ويژوالي( شامل كنترل ها و ...) فقط براي ويژوال بيسيك وجود داشت نه جاوا ، ولي در نسخه جديد اين امكان به آن افزوده شده و من تصور مي كنم در ماههاي آينده اسكريپت نويسي در محيط جاوا براي فتوشاپ يكي از نيازهاي جديد پروژه هاي گرافيكي شود. نظير آنچه كه فعلا براي فلش انجام مي شود.

همايون كريمخان زند

یک کتاب خوب در این زمینه پیدا کردم !

کد:

---

http://dl1.rapidshare.de/files/1151578/19494411/www.AvaxHome.ru_-_Adobe.Scripting.rar

---

منتها حجم یک ریزه بالاست ، نظرتون با ترجمه این کتاب چیه ؟

نقل قول:

---

نوشته اصلی توسط homayoonka

لطفا متن ارور را بفرماييد تا بررسي كنم.

با تشكر

---

من دقیقا مراحلی که فرمودید رو پیش میرم ، PS رو باز میکنم ، عکسهای مورد نظر رو وارد میکنم ، Script رو اجرا میکنم ،
در Destination Folder آدرس مورد نظر رو وارد میکنم و هنگام Save به این ارور بر میخورم !

http://img213.echo.cx/img213/3858/psscripting1tq.th.png

اين ارور وقتي رخ مي دهد كه در محيط فتوشاپ هيچ پنجره اي وجود نداشته باشد. يعني وقتي شما فتوشاپ را باز كرديد و عكسهاي مورد نظر را وارد آن نموديد بايد به تعداد عكسها در فتوشاپ، پنجره بازشده باشد. در اين حالت با وارد نمودن مسير در كادر destination folder و انتخاب پارامترهاي ذخيره JPEG وبعد با زدن دكمه SaveAs عكسها به ترتيب ذخيره شده و بسته مي شوند. در انتهاي كار ،هيچ پنجره اي در فتوشاپ باز نخواهد بود.
من اين اسكريپت را در فتوشاپ سي اس و ويندوز اكس پي امتحان نموده ام. شما يكبار ديگر به ترتيب زير عمل كنيد قاعدتا نبايد ارور بدهد:

1- فتوشاپ را باز كنيد.
2- تمامي عكسهاي مورد نظر را در فتوشاپ باز كنيد.
3- تنظيمات ذخيره سازي را انتخاب نماييد.
4- دكمه Save را بزنيد.

لطفا نتيجه كار هم را به من اطلاع دهيد.
در مورد ترجمه كتابي كه ذكر كرديد فكر بسيار خوبي است منتها اگر فرصت اجازه دهد و لطف خداوند شامل حالمان شود حتما با كمك تمامي دوستان و علاقه مندان انجامش خواهيم داد.


با تشكر فراوان

همايون كريمخان زند