技术求助：如何压缩Excel宏生成的大体积KML文件？

从你描述的情况来看，每个扇区用350+个离散坐标点是导致KML体积膨胀的核心原因——其实规则的扇区完全不需要这么多点，下面分享几个针对性的压缩方案，都是我实际处理KML时用过的有效方法：

1. 用KML原生的圆弧/扇区语法替代离散坐标 #

KML 2.2及以上版本支持<gx:Circle>和<gx:Arc>这类参数化元素，对于规则扇区（圆心、半径、起始/结束角度确定），直接用这些元素定义，完全不需要几百个坐标点。

举个例子，原来你可能生成这样的冗余代码：

<Placemark>
  <Polygon>
    <outerBoundaryIs>
      <LinearRing>
        <coordinates>
          lon1,lat1,0 lon2,lat2,0 ... 350+个坐标
        </coordinates>
      </LinearRing>
    </outerBoundaryIs>
  </Polygon>
</Placemark>

现在可以改成参数化的扇区定义：

<Placemark>
  <name>XX扇区</name>
  <styleUrl>#sectorStyle</styleUrl> <!-- 后面说样式复用 -->
  <gx:Circle>
    <gx:coordinates>中心经度,中心纬度,0</gx:coordinates>
    <gx:radius>扇区半径（单位：米）</gx:radius>
    <gx:startAngle>起始角度（0=正北，顺时针增加）</gx:startAngle>
    <gx:endAngle>结束角度</gx:endAngle>
  </gx:Circle>
</Placemark>

这一段代码的体积只有原来的几十分之一，而且Google Earth渲染起来更高效。

2. 对离散坐标做简化处理（非规则扇区适用） #

如果你的扇区是不规则形状，必须保留离散坐标，可以用道格拉斯-普克算法（Douglas-Peucker Algorithm）去掉对形状影响极小的点。你可以在Excel宏里实现这个算法，生成KML前先简化坐标数组。

比如设置一个距离阈值（比如5米），算法会自动删除那些偏离主路径小于阈值的点，通常能把350+个点压缩到几十甚至十几个，完全不影响视觉效果。

下面是VBA里简化坐标数组的核心逻辑示例：

Function SimplifyCoordinates(coords As Variant, tolerance As Double) As Variant
    ' 道格拉斯-普克算法实现，输入坐标数组和距离阈值，输出简化后的数组
    ' 可搜索Douglas-Peucker的VBA成熟实现，直接复用即可
End Function

3. 打包成KMZ压缩文件 #

KMZ是Google Earth支持的压缩格式，本质是把KML文件（可附带资源）打包成ZIP压缩包。即使不修改KML内容，打包成KMZ后体积通常能缩小70%以上。

在Excel宏里可以用VBA调用系统ZIP功能生成KMZ，注意KMZ里的主KML文件必须命名为doc.kml。示例代码片段：

Sub KmlToKmz(kmlPath As String, kmzPath As String)
    Dim shellApp As Object
    Set shellApp = CreateObject("Shell.Application")
    ' 步骤：创建临时文件夹→将原KML重命名为doc.kml放入→压缩文件夹为KMZ→删除临时文件夹
End Sub

4. 复用样式减少冗余代码 #

检查你的KML，如果每个扇区都重复定义<Style>块，会产生大量冗余。把通用样式提取到<Document>下，用<styleUrl>引用即可：

<Document>
    <!-- 定义一次通用样式 -->
    <Style id="sectorStyle">
        <PolyStyle>
            <color>7f00ff00</color> <!-- 半透明绿色 -->
            <fill>1</fill>
            <outline>1</outline>
        </PolyStyle>
    </Style>

    <!-- 每个扇区只需要引用样式 -->
    <Placemark>
        <styleUrl>#sectorStyle</styleUrl>
        <gx:Circle>...</gx:Circle>
    </Placemark>
</Document>

如果有100个扇区，这能节省几百行重复的样式代码。

5. 减少坐标的小数精度 #

地球坐标的小数位数不需要太高：

• 保留4位小数：精度约10米，完全满足大多数可视化需求
• 保留5位小数：精度约1米，已经足够精确

在Excel宏里生成坐标时，用Round(lon, 4)和Round(lat, 4)来截断小数，每个坐标字符串会缩短2-3个字符，几百个点下来也能省不少体积。

内容的提问来源于stack exchange，提问作者geeta