(* 圖檔目錄 *)
SetDirectory["/Users/chungyuandye/Desktop"];
(* 圖檔路徑 *)
filenames=FileNames["*.png"]
(*{-995,-883},{95,1560}為擷取區塊座標*)
temp=ImageTake[Import[#],{-995,-883},{95,1560}]&/@filenames
(*檔案輸出*)
Export["crop-"<>#,ImageTake[Import[#],{-995,-883},{95,1560}]]&/@filenames
(* 圖檔組合 *)
ImageAssemble[Partition[temp,1]]
讀者回應 ( 0 意見 )
訂閱發佈留言 (Atom)
發佈留言
Please leave your name and tell me what you thought about this site. Comments, suggestions and views are welcomed.
如果這篇文章對你有幫助，那請留個訊息給我～