如何获取TIF影像图的左下角坐标呢?
本帖最后由 向卫 于 2016-1-16 09:46 编辑我想把影像图插入cass 谢谢大神 不能添加附件 有14M
这里面有坐标 但是是左上角的 也就是每个图像的插入比例还不一样 X,Y的像素值也不一样
cass不是在 cad平台下吗？cad怎么插入tif,你不知道吗？ zzyong00 发表于 2016-1-15 21:37 static/image/common/back.gif
cass不是在 cad平台下吗？cad怎么插入tif,你不知道吗？
CAD下插入也得知道坐标 Sub aa()
On Error Resume Next
Dim wenjian As String
Dim xAs Double
Dim y As Double
Dim z As Double
Dim i As Double '比例
Dim j As Double
Dim p(2) As Double
var = ThisDrawing.Utility.GetPoint
x = Int(var(0) / 1000)
y = Int(var(1) / 1000)
wenjian = y & ".00-" & x & ".00.tif"
wenjian = "E:\韩工作资料\工作资料1\影像界限\影像\" & wenjian
Dim scalefactor As Double
Dim rotationAngle As Double
Dim imageName As String
Dim insertionPoint(2) As Double
Dim rasterObj As AcadRasterImage
imageName = wenjian
insertionPoint(0) = x * 1000
insertionPoint(1) = y * 1000
insertionPoint(2) = 0
scalefactor = 1000
rotationAngle = 0
Set rasterObj = ThisDrawing.ModelSpace.AddRaster _
(imageName, insertionPoint, _
scalefactor, rotationAngle)
Exit Sub
End Sub liupengchao221 发表于 2016-1-16 19:09 static/image/common/back.gif
Sub aa()
On Error Resume Next
这个tif我会插 我图片上的哪个就差不了 那个影像只知道左上角坐标 可以得到图片的像素尺寸 可以计算左下角坐标 但是scalefactor只能控制x方向的缩放 Y方向的有一定的缩放 X放大1052.5左右后 Y有事是等比放大的 但是有的影像还差1米之类的 所以这个影像图大小不孤单是个问题
页:
[1]