[Photoshop]基本：application
#!/usr/bin/env osascript
----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
#
#
#
#
# com.cocolog-nifty.quicktimer.icefloe
----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
##自分環境がos12なので2.8にしているだけです
use AppleScript version "2.8"
use framework "Foundation"
use scripting additions
######ログ表示
doLogView()
property objMe : a reference to current application
property objNSNotFound : a reference to 9.22337203685477E+18 + 5807
tell application "Adobe Photoshop 2022"
#########################読み取りのみ
##log properties as record
log frontmost as boolean
log name as text
log version as text
log build as text
log scripting version as text
log scripting build date as text
log free memory as number
log default type as list
log windows file types as list
log macintosh file types as list
log system information as text
##log recent files as list
log locale as text
#########################設定可能
log display dialogs as text
-->(always/error dialogs/never)
##set always to display dialogs
log current tool as text
set listToolName to {"ArtHistoryBrushTool", "3DFOVTool", "3DObjectPanTool", "3DObjectRollTool", "3DObjectRotateTool", "3DObjectScaleTool", "3DObjectSlideTool", "3DOrbitCameraTool", "3DPanCameraTool", "3DRollCameraTool", "3DWalkCameraTool", "addKnotTool", "artBrushTool", "backgroundEraserTool", "blurTool", "bucketTool", "burnInTool", "cloneStampTool", "colorReplacementBrushTool", "colorSamplerTool", "convertKnotTool", "countTool", "cookieCutterTool", "cropTool", "customShapeTool", "deleteKnotTool", "directSelectTool", "dodgeTool", "ellipseTool", "eraserTool", "eyedropperTool", "freeformPenTool", "gradientTool", "handTool", "historyBrushTool", "lassoTool", "lineTool", "magicEraserTool", "magicStampTool", "magicWandTool", "magneticLassoTool", "marqueeEllipTool", "marqueeRectTool", "marqueeSingleColumnTool", "marqueeSingleRowTool", "moveTool", "paintbrushTool", "patchSelection", "pathComponentSelectTool", "patternStampTool", "penTool", "pencilTool", "polySelTool", "polygonTool", "quickSelectTool", "rectangleTool", "redEyeTool", "rotateTool", "roundedRectangleTool", "rulerTool", "saturationTool", "sharpenTool", "sliceSelectTool", "sliceTool", "smudgeTool", "spotHealingBrushTool", "textAnnotTool", "typeCreateMaskTool", "typeCreateOrEditTool", "typeVerticalCreateMaskTool", "typeVerticalCreateOrEditTool", "wetBrushTool", "zoomTool"}
try
set objResponse to (choose from list listToolName with title "短め" with prompt "長め" default items (item 1 of listToolName) OK button name "OK" cancel button name "キャンセル" with multiple selections allowed without empty selection allowed)
on error
log "エラーしました"
return
end try
if objResponse is false then
return
end if
set theResponse to (objResponse) as text
set current tool to theResponse
log current document as list
####塗りのデフォルトカラー
log foreground color as record
set recordForeColor to {class:RGB color, red:255, green:255, blue:255}
set foreground color to recordForeColor
set recordForeColor to {class:CMYK color, cyan:0.0, magenta:0.0, yellow:0.0, black:0.0}
set foreground color to recordForeColor
###背景色のデフォルトカラー
log background color as record
set recordBackgroundColor to {class:RGB color, red:255, green:255, blue:255}
set background color to recordBackgroundColor
set recordBackgroundColor to {class:CMYK color, cyan:0.0, magenta:0.0, yellow:0.0, black:0.0}
set background color to recordBackgroundColor
log color settings as list
####通知設定
set boolNotifiers to notifiers enabled as boolean
if boolNotifiers is false then
set notifiers enabled to true as boolean
else
set notifiers enabled to false as boolean
end if
log preferences folder as alias
###設定フォルダを開く
set aliasPrefDir to preferences folder as alias
tell application "Finder"
make new Finder window to aliasPrefDir
select folder aliasPrefDir
end tell
end tell
display notification "処理終了" with title "処理が終了" subtitle "処理が終了しました" sound name "Sonumi"
log ">>>>>>>>>>>>処理終了<<<<<<<<<<<<<<<"
return ">>>>>>>>>>>>処理終了<<<<<<<<<<<<<<<"
#########################ログ表示
to doLogView()
tell application "System Events"
set listAppList to title of (every process where background only is false)
end tell
repeat with objAppList in listAppList
set strAppList to objAppList as text
if strAppList is "スクリプトエディタ" then
tell application "Script Editor"
if frontmost is true then
try
tell application "System Events" to click menu item "ログを表示" of menu "表示" of menu bar item "表示" of menu bar 1 of application process "Script Editor"
end try
end if
end tell
end if
end repeat
end doLogView
#########################
| 固定リンク