|
|
发表于 2016-1-16 19:09:00
|
显示全部楼层
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 = 0Set rasterObj = ThisDrawing.ModelSpace.AddRaster _
(imageName, insertionPoint, _
scalefactor, rotationAngle)
Exit Sub
End Sub |
|
置顶卡
