yue_pan_pan 2023-08-25 16:19 采纳率: 47.6%
浏览 12
已结题

teigha.net4.0 如何画一张图片。我自己画的图片load报错

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

img

  • 写回答

10条回答 默认 最新

  • coder_small_bell 2023-08-25 21:53
    关注

    图片路径有问题吧?

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论
查看更多回答(9条)

报告相同问题?

问题事件

  • 已结题 (查看结题原因) 8月28日
  • 已采纳回答 8月28日
  • 创建了问题 8月25日

悬赏问题

  • ¥15 keil的map文件中Image component sizes各项意思
  • ¥15 BC260Y用MQTT向阿里云发布主题消息一直错误
  • ¥20 求个正点原子stm32f407开发版的贪吃蛇游戏
  • ¥15 划分vlan后,链路不通了?
  • ¥20 求各位懂行的人,注册表能不能看到usb使用得具体信息,干了什么,传输了什么数据
  • ¥15 Vue3 大型图片数据拖动排序
  • ¥15 Centos / PETGEM
  • ¥15 划分vlan后不通了
  • ¥20 用雷电模拟器安装百达屋apk一直闪退
  • ¥15 算能科技20240506咨询(拒绝大模型回答)