如何获取TIF影像图的左下角坐标呢?

向卫

我想把影像图插入cass 谢谢大神 不能添加附件 有14M


这里面有坐标 但是是左上角的 也就是每个图像的插入比例还不一样 X,Y的像素值也不一样

zzyong00

cass不是在 cad平台下吗？cad怎么插入tif,你不知道吗？

向卫

zzyong00 发表于 2016-1-15 21:37
cass不是在 cad平台下吗？cad怎么插入tif,你不知道吗？

CAD下插入也得知道坐标

liupengchao221

Sub aa()

On Error Resume Next
Dim wenjian As String
Dim x  As 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
Sub aa()

On Error Resume Next

这个tif我会插 我图片上的哪个就差不了 那个影像只知道左上角坐标 可以得到图片的像素尺寸 可以计算左下角坐标 但是scalefactor只能控制x方向的缩放 Y方向的有一定的缩放 X放大1052.5左右后 Y有事是等比放大的 但是有的影像还差1米之类的 所以这个影像图大小不孤单是个问题