<div dir="ltr"><div>飯島さま、<br><br>蛇足ながら…もっともローテクな方法を。<br><br>ポリゴンの面積計算はベクタ→ジオメトリツール→ジオメトリカラムの出力/追加で<br>計算できます（ポリゴンの場合、面積と周長のカラムが追加されます）。<br><br>プロセッシングツールでバッチ処理をすることも可能です。<br></div><br>Processing→Toolbox→開いたウィンドウ下部で[advanced interface]を選択<br>→QGIS geoalgrithms→Vector table tools<br>→Export/Add geometry columnsを右クリックし[バッチプロセス…]を選択<br>→Input layer, output layerに入力 <br>（Calculate usingは面積計算に使われる測地系です。レイヤの測地系が<br>緯度経度の時はプロジェクトの測地系をUTMや直角座標系に設定し、<br>[ProjectCRS]を選択したりしてます）<br><br>プログラムが苦手な方に処理をお願いする際など便利かもしれません。。<br><br>久保まゆみ<div class="gmail_extra"><br><br><div class="gmail_quote">2015年5月21日 11:47 Hayato IIJIMA <span dir="ltr"><<a href="mailto:hayato.iijima@gmail.com" target="_blank">hayato.iijima@gmail.com</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">垂水様、皆様<br>
<br>
山梨県の飯島です。次々と方法をご提示いただき、ありがとうございます！さすがOSGeoメーリングリスト......<br>
<br>
取り急ぎ、今木様の方法でやってみたらできましたので、ご報告させていただきます。<br>
<br>
先ほどのsample.shpがある環境でRを起動して、以下のように実行しました。あといまさらですが、最初に添付したsample.shpのEPSGコードは2450です（すいません、大事な情報を忘れていました）。<br>
<br>
setwd("C:...") #SHPがある場所へのパス<br>
library(maptools)<br>
crs <- CRS("+proj=tmerc +lat_0=36 +lon_0=138.5 +k=0.9999 +x_0=0 +y_0=0<br>
+ellps=GRS80 +towgs84=0,0,0,0,0,0,0 +units=m +no_defs")<br>
hrr.shp <- readShapePoly("sample", verbose=TRUE, proj4string=crs)<br>
library(rgdal)<br>
hrr.shp.2 <- spTransform(hrr.shp, CRS("+init=epsg:2450"))<br>
library(rgeos)<br>
AREA <- gArea(hrr.shp.2, byid=TRUE)<br>
library(foreign)<br>
d <- read.dbf("sample.dbf")<br>
d$AREA <- AREA<br>
write.dbf(d, file="sample.dbf")<br>
<br>
これを後は複数ファイルで処理できるようにforでループ化すればいいだけです。<br>
<br>
取り急ぎ、お礼まで。<br>
<br>
<br>
<br>
2015年5月21日 11:35 株式会社カーネル 垂水 <<a href="mailto:tarumi@kk-kernel.co.jp">tarumi@kk-kernel.co.jp</a>>:<br>
<div class="HOEnZb"><div class="h5">> 垂水です<br>
><br>
> Shapeファイルそのままではないですが、<br>
> spatialiteにインポートしてSQLで計算もありではないでしょうか？<br>
><br>
><br>
> On 2015/05/21 11:31, Taro Matsuzawa wrote:<br>
>> 松澤です。<br>
>><br>
>> この手のものはもしPythonを使うならQGISよりも<br>
>> ogrで直接処理したほうがよいのかなと思います。<br>
>> ipythonとか使えばデバッグも楽ですし、<br>
>> 何よりQGISのビルドがコケて環境破壊した時でも使えます。<br>
>> # MacPortsあるあるなのでWindowsならそんな事起きないと思うけど<br>
>><br>
>> 1. 面積計算<br>
>> <a href="https://pcjericks.github.io/py-gdalogr-cookbook/geometry.html#calculate-the-area-of-a-geometry" target="_blank">https://pcjericks.github.io/py-gdalogr-cookbook/geometry.html#calculate-the-area-of-a-geometry</a><br>
>> 2. Shapefileに属性テーブルを追加してデータを投入する例<br>
>> <a href="https://pcjericks.github.io/py-gdalogr-cookbook/vector_layers.html#create-a-new-shapefile-and-add-data" target="_blank">https://pcjericks.github.io/py-gdalogr-cookbook/vector_layers.html#create-a-new-shapefile-and-add-data</a><br>
>> (新規でファイル作ってるけど、やってることは同じだと思う)<br>
>><br>
>> これらの組み合わせでいける気がします。<br>
>> あと、Pythonでは他にもいろいろライブラリがあるみたいなので、<br>
>> 探してみるとよいかもしれません。<br>
>><br>
>> On 2015/05/21 11:12, Hayato IIJIMA wrote:<br>
>>> 今木様、皆様<br>
>>><br>
>>> 山梨県の飯島です。早速のお返事ありがとうございました。<br>
>>><br>
>>> こんなパッケージがあるとは知りませんでした。Rでできるならその方が得意なので、ありがたいです。早速試してみます。<br>
>>><br>
>>> 他の皆様も別な技をご存知でしたら、よろしくお願いします。<br>
>>><br>
>>><br>
>>> 2015年5月21日 10:45 Hiroo Imaki <<a href="mailto:hiroo@angeli.org">hiroo@angeli.org</a>>:<br>
>>>> 飯島様、<br>
>>>> お久しぶりです。Rでやっても良いのではないでしょうか？<a href="http://www.inside-r.org/packages/cran/rgeos/docs/gArea" target="_blank">http://www.inside-r.org/packages/cran/rgeos/docs/gArea</a>　が参考になると思います。spパッケージを使ってオブジェクトを作る必要がありますが。<br>
>>>> 参考までに。<br>
>>>> いまき<br>
>>>><br>
>>>> 2015-05-20 19:48 GMT-04:00 Hayato IIJIMA <<a href="mailto:hayato.iijima@gmail.com">hayato.iijima@gmail.com</a>>:<br>
>>>>> OSGeoメーリングリストの皆様<br>
>>>>><br>
>>>>> 山梨県の飯島と申します。このたびはお世話になります。<br>
>>>>><br>
>>>>><br>
>>>>> QGISのpythonコンソールで、SHPファイル（添付したようなファイル）のポリゴンごとの面積を計算する方法をご存知でしたら、ご教示いただければと思います。<br>
>>>>><br>
>>>>><br>
>>>>> ファイルが1つであればSHPファイルを開き、「属性テーブルを開く」→「フィールド計算機」で新しい列を作りその値として計算した面積を入れればいい話です。しかし、このようなファイルが多数ある場合、GUIによる作業は時間がかかるため、pythonで一気に処理できないかと思っています。<br>
>>>>><br>
>>>>><br>
>>>>> ネット上でQGISのpythonでの処理方法をいろいろ調べてみて、面積を計算して単に表示するとか、新しい列を作るといったことはできるのですが、面積を計算してその結果を新しい列に加えるということがどうしてもできないのです。<br>
>>>>><br>
>>>>> from PyQt4.QtCore import *<br>
>>>>> from qgis.analysis import *<br>
>>>>> input_dir="C:/..." #作業するSHPファイルまでのパス<br>
>>>>> import os<br>
>>>>> import glob<br>
>>>>> import processing<br>
>>>>> files = glob.glob(os.path.join(input_dir, r'*.shp'))<br>
>>>>><br>
>>>>> #面積を「表示」<br>
>>>>> for i in range(0, len(files)):<br>
>>>>> vlayer = QgsVectorLayer(files[i], "temp", "ogr")<br>
>>>>> #Gmail上でタブによる字下げがうまくいきませんが、実際にはタブで行頭を字下げしています（以下同様）。<br>
>>>>> for f in vlayer.getFeatures():<br>
>>>>> print f.geometry().area()<br>
>>>>><br>
>>>>> #新しい列を加える<br>
>>>>> #カラムを加える（試行錯誤）<br>
>>>>> for i in range(0, len(files)):<br>
>>>>> vlayer = QgsVectorLayer(files[i], "temp", "ogr")<br>
>>>>> #Gmail上でタブによる字下げがうまくいきませんが、実際にはタブで行頭を字下げしています（以下同様）。<br>
>>>>> caps = vlayer.dataProvider().capabilities()<br>
>>>>> if caps & QgsVectorDataProvider.AddFeatures:<br>
>>>>> res = vlayer.dataProvider().addAttributes([QgsField("AREA",<br>
>>>>> QVariant.Double)])<br>
>>>>><br>
>>>>> これらを合わせるとうまくいきそうな気もしますが、今のところできていません。<br>
>>>>> ちなみに、作業環境は以下のようです。<br>
>>>>><br>
>>>>> OS: Win7 64 bit<br>
>>>>> QGIS: 2.8<br>
>>>>><br>
>>>>> 調査に出ているためご教示いただいた後の返事が遅くなるかもしれませんが、よろしくお願い致します。<br>
>>>>><br>
>>>>><br>
>>>>> --<br>
>>>>> **********************************************************<br>
>>>>> 山梨県森林総合研究所　森林研究部　森林保護科<br>
>>>>><br>
>>>>> 研究員　　飯島　勇人（いいじま　はやと）<br>
>>>>><br>
>>>>> 〒400-0502<br>
>>>>> 山梨県南巨摩郡富士川町最勝寺2290-1<br>
>>>>> TEL:0556-22-8005（直）8001（代）<br>
>>>>> HP: <a href="http://www.pref.yamanashi.jp/shinsouken/" target="_blank">http://www.pref.yamanashi.jp/shinsouken/</a><br>
>>>>> E-mail: <a href="mailto:hayato.iijima@gmail.com">hayato.iijima@gmail.com</a><br>
>>>>> **********************************************************<br>
>>>>><br></div></div></blockquote></div></div></div>