Using svc As Services = New Services()
Dim db As Database = New Database()
Using tr = db.TransactionManager.StartTransaction()
Using btr As BlockTableRecord = tr.GetObject(db.CurrentSpaceId, OpenMode.ForWrite)
Dim imagePath As String = "D:\\logo.png"
If (File.Exists(imagePath)) Then
Dim yximageDef = New RasterImageDef
yximageDef.SourceFileName = imagePath
yximageDef.Load()
Using rasterRef = New RasterImage()
rasterRef.ImageDefId = yximageDef.ObjectId
rasterRef.ShowImage = True
btr.AppendEntity(rasterRef)
rasterRef.AssociateRasterDef(yximageDef)
'计算图片的插入点位置、缩放比例
Dim scaleAll = 10 / rasterRef.ImageHeight
Dim w = rasterRef.ImageWidth * scaleAll
Dim h = 10 * 1.45
Dim insert = New Point3d(0, 0, 0)
rasterRef.Orientation = New CoordinateSystem3d(insert, Vector3d.XAxis, Vector3d.YAxis)
Dim transform = Matrix3d.Scaling(scaleAll, insert)
rasterRef.TransformBy(transform)
tr.Commit()
End Using
End If
End Using
End Using