CAD栅格图拼接的vba怎么用？
大家好，我是小溜，CAD中栅格图拼接的vba应用-当我们下载了一些栅格影像或者相似地图时，希望他们拼接到一起，但是当数据量成千上百时操作起来就有困难了，这里介绍一个实例，来告诉大家CAD栅格图拼接的vba怎么用的。
对于“CAD”还有不懂的地方，点击这里了解更多关于“CAD”课程>>
工具/软件
硬件型号：小新Pro14
系统版本：Windows7
所需软件：CAD2010
方法/步骤
第1步
准备资料栅格瓦片，从网上下载瓦片，个人通过excel的vba从某个地图站下载的图片如图。批量下载时根据编号已经编号图片名字。注意下图图片名字格式。
第2步
图片11.523.3345是位于左上角，排列关系如图
第3步
准备代码，
Dim pic As AcadRasterImage '定义栅格变量Dim L As String'图片所在文件路径Dim x(0 To 2) As Double '图片左下角插入点Lengt = 3'缩放比例For i = 523 To 568'做的例子中图片名称范围行523-568 For j = 3345 To 3413'做的例子中图片名称范围列3345-3413 x(0) = 0 + Lengt * (j - 3345) '坐标X x(1) = 0 - Lengt * (i - 523) '坐标Y x(2) = 0 '坐标Z L = "D:\software_setup\pintu\11-dizhi\11." & i & "." & j & ".png" '图片所在的文件路径 Set pic = ThisDrawing.Application.ActiveDocument.ModelSpace.AddRaster(L, x, Lengt, 0) '将栅格插入cad中 Next jNext iMsgBox "操作完成"End Sub
第4步
打开cad，打开vba窗口，新建模块，插入代码，如图
第5步
点击vba窗口中的运行，批量插入图片。
第6步
显示结果如图。提示操作完成，然后全图观看结果。
第7步
发现插入图片有黑边何以通过imageframe命令。将值改为0，去掉边框。
注意/提示
相信“CAD栅格图拼接的vba怎么用？”这篇文章大家都已经学会了，如果大家还有其它疑问的话，可以持续关注溜溜自学网，我们每天都会为大家带来最新最实用软件小技巧。
相关文章
