« 2022年6月 | トップページ | 2022年10月 »

【Acrobat】Acrobat または Reader にてデフォルトで手のひらツールを利用したい場合について(Mac版)コマンド版

Acrobat または Reader にてデフォルトで手のひらツールを利用したい場合について

こちらの記事の
Macの場合の対処方法
Macの場合 項目がData形式なので、そのままテキストでHandとは設定出来ません。
なのでバイナリーの<48616E6400>をインポートします最後にNULLが入るため色々方法がありますが…
PlistBuddyでインポートする方式にしました

↓データ入りです

ダウンロード - plistimport.zip


#!/usr/bin/env osascript
----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
#
#
(*
こちらのURL
https://adobe.ly/3qqoq8p
Acrobat または Reader にてデフォルトで手のひらツールを利用したい場合についてこちらの記事の Macの場合の対処方法
値はDATAなので以下 <48616E6400>
詳しくはこちら
https://force4u.cocolog-nifty.com/skywalker/2022/09/post-d635db.html

*)
#
#
# 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 objNSString : a reference to objMe's NSString
property objNSMutableString : a reference to objMe's NSMutableString
property objNSURL : a reference to objMe's NSURL

property objNSNotFound : a reference to 9.22337203685477E+18 + 5807

set objFileManager to objMe's NSFileManager's defaultManager()


tell application "Finder"
###このファイルのエイリアス
set aliasMe to path to me as alias
log aliasMe as alias
end tell
### UNIXパスに
set strMePath to POSIX path of aliasMe as text
log strMePath as text

### パスをNSString
set ocidMePathString to objNSString's stringWithString:strMePath
log ocidMePathString as text
log className() of ocidMePathString as text

### NSString NSURL
set ocidMePathNSURL to objNSURL's fileURLWithPath:ocidMePathString
log ocidMePathNSURL as text
log className() of ocidMePathNSURL as text

### このファイルがあるディレクトリ
set ocidMePathContainer to ocidMePathNSURL's URLByDeletingLastPathComponent
log ocidMePathContainer as text
log className() of ocidMePathContainer as text

### インポートするデータのパス
set ocidImportDataPath to ocidMePathContainer's URLByAppendingPathComponent:"ImportData/Hand.bin"
log ocidImportDataPath as text
log className() of ocidImportDataPath as text

###インポートするファイルのUNIXパス
set strImportDataPath to ocidImportDataPath's |path|() as text

############################################
#### ユーザーLibraryパス取得
set ocidUserLibraryPath to (objFileManager's URLsForDirectory:(objMe's NSLibraryDirectory) inDomains:(objMe's NSUserDomainMask))
log ocidUserLibraryPath as text
log className() of ocidUserLibraryPath as text

###Arrayで入るのでパスURLを取り出す
set ocidNsurlLibraryPath to ocidUserLibraryPath's objectAtIndex:0
log ocidNsurlLibraryPath as text
log className() of ocidNsurlLibraryPath as text

#### コンポーネント追加
set ocidPreferencesPath to ocidNsurlLibraryPath's URLByAppendingPathComponent:"Preferences"
log ocidPreferencesPath as text
log className() of ocidPreferencesPath as text

#### コンポーネント追加
set ocidAcrobatReaderPlistPath to ocidPreferencesPath's URLByAppendingPathComponent:"com.adobe.Reader.plist"
log ocidAcrobatReaderPlistPath as text
log className() of ocidAcrobatReaderPlistPath as text

#### コンポーネント追加
set ocidAcrobatProPlistPath to ocidPreferencesPath's URLByAppendingPathComponent:"com.adobe.Acrobat.Pro.plist"
log ocidAcrobatProPlistPath as text
log className() of ocidAcrobatProPlistPath as text

####UNIXパス
set strAcrobatProPlistPath to ocidAcrobatProPlistPath's |path|() as text
set strAcrobatReaderPlistPath to ocidAcrobatReaderPlistPath's |path|() as text
log strAcrobatProPlistPath as text
log strAcrobatReaderPlistPath as text

####ファイルの有無 Pro
set boolChkAcrobatProPlistPath to (ocidAcrobatProPlistPath's checkResourceIsReachableAndReturnError:(missing value))
log boolChkAcrobatProPlistPath as boolean
####ファイルの有無 Reader
set boolChkAcrobatReaderPlistPath to (ocidAcrobatReaderPlistPath's checkResourceIsReachableAndReturnError:(missing value))
log boolChkAcrobatReaderPlistPath as boolean

if boolChkAcrobatProPlistPath is true then
try
###まずは 今の値を読み取ります
set strCommandText to "/usr/libexec/PlistBuddy -c \"Print :DC:Selection:DefaultSelect:1\" \"" & strAcrobatProPlistPath & "\""
set strCommandResult to (do shell script strCommandText) as text
log strCommandResult
on error
log "設定項目が見つかりません"
set strCommandResult to ""
end try
if strCommandResult contains "Hand" then
set strCommandResult to ""
log "設定済みです"
else
set strCommandResult to ""
try
###今ある値を削除して
set strCommandText to "/usr/libexec/PlistBuddy -c \"Delete :DC:Selection:DefaultSelect:1\" \"" & strAcrobatProPlistPath & "\""
do shell script strCommandText
end try
delay 1
####値をインポートします
set strCommandText to "/usr/libexec/PlistBuddy -c \"Import :DC:Selection:DefaultSelect:1 '" & strImportDataPath & "'\" '" & strAcrobatProPlistPath & "'"
do shell script strCommandText
delay 1
####正しくインポート出来たか?確認
set strCommandText to "/usr/libexec/PlistBuddy -c \"Print :DC:Selection:DefaultSelect:1\" \"" & strAcrobatProPlistPath & "\""
set strCommandResult to (do shell script strCommandText) as text
if strCommandResult contains "Hand" then
log "設定完了"
else
log "設定に失敗しました"
end if
set strCommandResult to ""
end if
end if



if boolChkAcrobatReaderPlistPath is true then
try
###まずは 今の値を読み取ります
set strCommandText to "/usr/libexec/PlistBuddy -c \"Print :DC:Selection:DefaultSelect:1\" \"" & strAcrobatReaderPlistPath & "\""
set strCommandResult to (do shell script strCommandText) as text
log strCommandResult
on error
log "設定項目が見つかりません"
set strCommandResult to ""
end try
if strCommandResult contains "Hand" then
log "設定済みです"
else
set strCommandResult to ""
try
###今ある値を削除して
set strCommandText to "/usr/libexec/PlistBuddy -c \"Delete :DC:Selection:DefaultSelect:1\" \"" & strAcrobatReaderPlistPath & "\""
do shell script strCommandText
end try
delay 1
####値をインポートします
set strCommandText to "/usr/libexec/PlistBuddy -c \"Import :DC:Selection:DefaultSelect:1 '" & strImportDataPath & "'\" '" & strAcrobatReaderPlistPath & "'"
do shell script strCommandText
delay 1
####正しくインポート出来たか?確認
set strCommandText to "/usr/libexec/PlistBuddy -c \"Print :DC:Selection:DefaultSelect:1\" \"" & strAcrobatReaderPlistPath & "\""
set strCommandResult to (do shell script strCommandText) as text
if strCommandResult contains "Hand" then
log "設定完了"
else
log "設定に失敗しました"
end if
set strCommandResult to ""
end if
end if


############################################



#########################ログ表示
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
#########################

手動でやる場合は以下 値はDATAなので以下 <48616E6400> _20220906_22_03_19

|

【Acrobat】Acrobat または Reader にてデフォルトで手のひらツールを利用したい場合について(Mac版)

Acrobat または Reader にてデフォルトで手のひらツールを利用したい場合についてこちらの記事の Macの場合の対処方法
値はDATAなので以下 <48616E6400> _20220906_22_03_19

|

« 2022年6月 | トップページ | 2022年10月 »