« [do shell script]ファイル・フォルダの所有者オーナーの変更 | トップページ | [SVG]データを元にSVGを大量生成する »

[qlmanage]SVG to PNG


【スクリプトエディタで開く】|

#!/usr/bin/env osascript
----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
#
#qlmanage クイックルックを使ってSVGをPNGに
#
#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


property refMe : a reference to current application

###ダイアログ
set strName to (name of current application) as text
if strName is "osascript" then
  tell application "Finder" to activate
else
  tell current application to activate
end if

####ダイアログ用デスクトップパス
set aliasDefaultLocation to path to desktop folder from user domain as alias
####ダイアログ
set listChooseFiles to (choose file with prompt "ファイルを選んでください" default location aliasDefaultLocation of type {"public.svg-image"} with multiple selections allowed without showing package contents and invisibles) as list

#############################
###ダイアログ
set strName to (name of current application) as text
if strName is "osascript" then
  tell application "Finder" to activate
else
  tell current application to activate
end if
############
set aliasDefaultLocation to (path to desktop folder from user domain) as alias
############
set strMes to "フォルダを選んでください" as text
set strPrompt to "フォルダを選択してください" as text
try
  set aliasSaveDirPath to (choose folder strMes with prompt strPrompt default location aliasDefaultLocation with invisibles and showing package contents without multiple selections allowed) as alias
on error
  log "エラーしました"
return "エラーしました"
end try

set strSaveDirPath to (POSIX path of aliasSaveDirPath) as text

####ファイルの数だけ繰り返し
repeat with objFile in listChooseFiles
  ###UNIXパスに変換
  set theFilePath to POSIX path of objFile as text
  ###スクリプトに渡す
  set strCommandText to ("\"/System/Library/Frameworks/QuickLook.framework/Versions/A/Resources/qlmanage.app/Contents/MacOS/qlmanage\" -t -s 800 \"" & theFilePath & "\" -o \"" & strSaveDirPath & "\"") as text
  do shell script strCommandText
  
end repeat



  Usage: qlmanage [OPTIONS] path...
-h Display this help
-r Force reloading Generators list
-r cache Reset thumbnail disk cache
-m [name ...]   Display statistics about quicklookd. Stats names:
* plugins       Show the generators list
* server Show quicklookd life information
* memory Show quicklookd memory consumption
* burst Show statistics about the last burst
* threads       Show concurrent accesses stats
* other Show other information about quicklookd
-p Compute previews of the documents
-t Compute thumbnails of the documents
-x Use quicklookd (remote computation)
-i Compute thumbnail in icon mode
-s size Size for the thumbnail
-f factor       Scale factor for the thumbnail
-F factor       Scale factor for the thumbnail, draw downscaled and compare to 1x
-z Display generation performance info (don't display thumbnails)
-o dir Output result in dir (don't display thumbnails or previews)
-c contentType  Force the content type used for the documents
-g generator    Force the generator to use

|

« [do shell script]ファイル・フォルダの所有者オーナーの変更 | トップページ | [SVG]データを元にSVGを大量生成する »

AppleScript XML SVG」カテゴリの記事

AppleScript QuickLook」カテゴリの記事