# 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)