ARCGIS中VBA写GEOREFERENCE的问题！

Posted 2023-05-10

我昨晚配准，图片四个角点的位置是对了，但是，出现了黑框，请问这个该怎么去除呢？我的程序如下：
Sub MyMacro()
Dim pInDataset As IRasterLayer
Dim pGeoReference As IGeoReference
Dim prasterLayer As IRasterLayer
Dim pInputPtCol As IPointCollection
Dim pOutputPtCol As IPointCollection
Dim pInputPoint As IPoint
Dim pOutputPoint As IPoint
Dim pmxdoc As IMxDocument
Dim pmap As IMap
Dim prlayer1 As IRasterLayer
Set pmxdoc = ThisDocument
Set pmap = pmxdoc.FocusMap
'Set pSpatRefFact = New SpatialReferenceEnvironment
Set prasterLayer = New RasterLayer
prasterLayer.CreateFromFilePath "C:\Users\KEVIN\Desktop\mytest\DS09059A001MC081.jpg"
Set prasterLayer.SpatialReference = pmap.SpatialReference
Set pGeoReference = prasterLayer
Set pInputPtCol = New Polyline
Set pOutputPtCol = New Polyline
Set pInputPoint = New esriGeometry.Point
Set pOutputPoint = New esriGeometry.Point
pInputPoint.PutCoords 0#, 0#
pInputPtCol.AddPoint pInputPoint
pInputPoint.PutCoords 300#, 0#
pInputPtCol.AddPoint pInputPoint
pInputPoint.PutCoords 300#, -300#
pInputPtCol.AddPoint pInputPoint
pInputPoint.PutCoords 0#, -300#
pInputPtCol.AddPoint pInputPoint
pOutputPoint.PutCoords 675605.8369, -2019173.005
pOutputPtCol.AddPoint pOutputPoint
pOutputPoint.PutCoords 167686.5444, -2132562.983
pOutputPtCol.AddPoint pOutputPoint
pOutputPoint.PutCoords 32333.28192, -1508368.828
pOutputPtCol.AddPoint pOutputPoint
pOutputPoint.PutCoords 532976.9612, -1396825.87
pOutputPtCol.AddPoint pOutputPoint
pGeoReference.Warp pInputPtCol, pOutputPtCol, 0
pGeoReference.Rectify "C:\Users\KEVIN\Desktop\mytest\mytest.jpg", "jpg"
MsgBox ("Finished!")
End Sub

参考技术A

右击图层，打开图层属性对话框，勾选下图箭头所指位置，最后按确定即可：

vba adodb读取文本文件

参考技术A write2TextFile里的strbuf = .readtext，表示是读取文件内容，此时游标在所有文本后面，写入内容的话就变成追加。建议换行后再写新内容。
如果注释掉strbuf = .readtext，就从文件头开始写。如果新文本长度大于原内容长度，相当于实现覆盖的效果。否则会出现新文本原文本混合的情况。如果原文件文本是12345新内容是666，写完就是66645。似乎adodb.stream没有删除文本的功能，所以函数里直接删除文件再创建了。