018集——圆弧(ARC)转多段线(lwpolyline)——cad vba 中按一定精度拟合加点实现

        在国土资源管理项目中，我们经常会遇到CAD转gis数据实现入库，而cad中的arc圆弧转为gis数据只能转出弧的顶点坐标，导致图形变形失真。若一个一个对弧进行手工增加点转为多段线，耗时耗力，效率极其低下。这里给出解决方案，使用vba一键搞定。 

        首先，在cad中画出一个弧，然后转为多段线，最后删除弧。

程序调试成功，我们来看下具体效果：

        由上图可知，我们已成功转为多段线 。

        接下来我们对弧转多段线进行函数封装，使用时直接调用即可。

         函数如上，我们对圆弧进行80等分，此数值可根据用户需求进行调整。

        接下来我们随意打开一个cad图，调用函数实现弧转多段线。

 

至此，我们圆满完成任务。

以上代码版权归本博所有，代码需求请联系本博。