# rcom練習用コード # rcomdemo.txt library(rcom) #練習1 x<-comCreateObject("GoogleEarth.ApplicationGE") comGetProperty(x,"VersionAppType") #アプリケーションタイプ comGetProperty(x,"VersionMajor") #バージョン(メジャー番号) comGetProperty(x,"VersionMinor") #バージョン(マイナー番号) comGetProperty(x,"VersionBuild") #バージョン(ビルド番号) #練習2 cam<-comCreateObject("GoogleEarth.CameraInfoGE") comSetProperty(cam,"FocusPointLatitude","35.651015") #フォーカス−緯度 comSetProperty(cam,"FocusPointLongitude","139.727556") #フォーカス−経度 comSetProperty(cam,"Range","100") #フォーカスからの距離(上空:m) comSetProperty(cam,"Tilt","50") #傾き(度) comSetProperty(cam,"Azimuth","111") #方位(度) comInvoke(x,"SetCamera",cam,"0.1") #実行 #練習3 cam0<-comInvoke(x,"GetCamera","1") comGetProperty(cam0,"FocusPointLatitude") #フォーカス−緯度 comGetProperty(cam0,"FocusPointLongitude") #フォーカス−経度 comGetProperty(cam0,"FocusPointAltitude") #フォーカス−高度(m) comGetProperty(cam0,"FocusPointAltitudeMode") #フォーカス−高度の基準 comGetProperty(cam0,"Range") #フォーカスからの距離(上空:m) comGetProperty(cam0,"Tilt") #傾き(度) comGetProperty(cam0,"Azimuth") #方位(度) #練習4 search<-comCreateObject("GoogleEarth.SearchControllerGE") comInvoke( search,"Search","東京タワー") #練習5 KMLData<-paste(' ', '', '', 'poly.kml', '', 'poly', '#msn_ylw-pushpin', '', '1', 'relativeToGround', '', '', '', '139.7441431187752,35.66085751628702,50 139.7437770251541,35.65962355418283,50 139.7454177799272,35.65927100666627,50 139.7458381440458,35.66052699303938,50 139.7441431187752,35.66085751628702,50', '', '', '', '', '', '', '',sep='') KMLData2 <-paste("", "", "", "TokyoTower", "", "139.4285", "35.3874", "0", "316.3662914479763", "0", "6.199453434125936", "", "", "139.745408,35.658617,0", "", "", "",sep="") GEI<-comCreateObject("GoogleEarth.ApplicationGE") comInvoke(GEI,"LoadKmlData",KMLData) comInvoke(GEI,"LoadKmlData",KMLData2)