У меня проблема с зависанием Google Планета Земля как при попытке открыть его, так и при попытке вставить в него файлы KML.
Открытие Google Планета Земля:
Иногда, когда я пытаюсь открыть Google Планета Земля, он просто зависает, пока:
Загрузка myplaces.kml, включая включенные оверлеи
Я предполагаю, что эта проблема вызвана тем фактом, что, если я добавлю общий размер кмль, которые я сохранил, в "мои места", они будут где-то по соседству с 3 МБ. Когда я ищу в моей компе «мои места», размер этого файла составляет чуть меньше 400 КБ. Я предполагаю, что это означает, что Google Планета Земля хранит его в другом формате.
В любом случае, что мне делать? Я действительно предпочел бы сохранить все в «моих местах» в Google Планета Земля, поскольку каждый файл загружается вечно, но если мне нужно удалить «мои места» и начать все сначала, я думаю, мне придется это сделать. Кроме того, я не могу просто закрыть Google Планета Земля и снова открыть его, когда он перестает работать, потому что он все еще не работает. Иногда, если я оставлю его на некоторое время, не касаясь его, после того, как он закроется, он откроется в порядке. Есть идеи, что происходит?
Построение километров в Google Планета Земля:
Файлы kml, которые я пытаюсь загрузить в Google Earth, варьируются от 67 КБ для файла, содержащего 177 точек, до 454 КБ с 1172 точками. У меня также был файл kml, который я должен был построить, это 937kb, содержащий 2637 точек. Большую часть времени, чтобы получить файлы для печати, я должен отредактировать kml с помощью блокнота, удалить все точки, кроме одной, построить эту точку, а затем повторно запустить макрос Excel, чтобы получить полный файл обратно. Затем я строю график, который вызывает это сообщение:
Вы уверены, что хотите перезагрузить этот файл, все несохраненные изменения будут потеряны?
Затем в этот момент он начинает рисовать просто отлично. Если я попытаюсь просто дважды щелкнуть файл kml без выполнения процесса, о котором я только что говорил, Google Планета Земля перестает отвечать на запросы. Вот пример моего кода и пример части файла kml, который он создает.
Есть идеи о том, что я могу сделать, чтобы решить эти проблемы?
Будет ли лучше использовать шаблон для заполнения данных для kml?
Примечания:
Я использую Windows XP на своем компьютере. Мой босс работает на Vista Business, и у него обычно эта проблема больше, чем у меня.
Я знаю, что код довольно уродлив и его нужно почистить, но мой начальник сказал мне не беспокоиться, так как то, что я делаю, не будет использовано в производстве и больше сосредоточится на получении файлы, которые ему нужны, чем сделать код более читабельным. Пожалуйста, успокойся на безобразии.
Это код, который мне пришлось изменить, чтобы получить необходимые нам данные, и поэтому я не знаю ничего о том, насколько он эффективен по сравнению с другими методами.
Код:
Sub Create_KML()
REM Builds KML from spread sheet
REM Open File For Random As #1 ' "c:\Users\mwilson\Desktop\Trash.txt
REM Open "c:\Users\mwilson\Desktop\Test Google\Trash.txt" For Output As #1
Open "C:\Documents and Settings\eecoop\Desktop\10 day avg rssi Google kml\MorrisAveOpelikaMIUS.kml" For Output As #1
i = 2
miuID = Range("A" & i).Text
RSSI = Range("C" & i).Text
ColID = Range("G" & i).Text
ColName = Range("F" & i).Text
Address = Range("M" & i).Text & ", Opelika, AL"
Print #1, "<?xml version=""1.0"" encoding=""utf-8""?>"
Print #1, "<kml xmlns=""http://www.opengis.net/kml/2.2"">"
Print #1, "<Document>"
While miuID <> ""
If RSSI >= -85 Then
DotColor = "Green.png"
ElseIf RSSI >= -95 Then
DotColor = "Yellow.png"
ElseIf RSSI >= -105 Then
DotColor = "Orange.png"
Else
DotColor = "Red.png"
End If
Print #1, " <Placemark>" '3
Print #1, " <name>"; RSSI; " / "; ColID; "</name>" '4
Print #1, " <description>"; miuID; " Owned by "; ColName; "</description>" '4
Print #1, " <Style>" '5
Print #1, " <IconStyle>" '6
Print #1, " <scale>.6</scale>" '7
Print #1, " <Icon>" '8
Print #1, " <href>"; DotColor; "</href>" '9
Print #1, " </Icon>" '10
Print #1, " </IconStyle>" '11
Print #1, " </Style>" '12
Print #1, " <address>"; Address; "</address>" '13
Print #1, " </Placemark>" '14
i = i + 1
miuID = Range("A" & i).Text
RSSI = Range("C" & i).Text
ColID = Range("G" & i).Text
ColName = Range("F" & i).Text
Address = Range("M" & i).Text & ", Opelika, AL"
Wend
Print #1, "</Document>"
Print #1, "</kml>" '15
Print #1, " "
Close #1
End Sub
KML:
<?xml version="1.0" encoding="utf-8"?>
<kml xmlns="http://www.opengis.net/kml/2.2">
<Document>
<Placemark>
<name>-108 / 4</name>
<description>110001124 Owned by Morris Ave.</description>
<Style>
<IconStyle>
<scale>.6</scale>
<Icon>
<href>Red.png</href>
</Icon>
</IconStyle>
</Style>
<address>3501 BIRMINGHAM HWY, Opelika, AL</address>
</Placemark>
<Placemark>
<name>-95 / 4</name>
<description>110001146 Owned by Morris Ave.</description>
<Style>
<IconStyle>
<scale>.6</scale>
<Icon>
<href>Yellow.png</href>
</Icon>
</IconStyle>
</Style>
<address>2100 INDUSTRIAL BLVD, Opelika, AL</address>
</Placemark>