设置光栅图（raster image）的比例（scale）及手动设置高宽。

  ' Define the width and height of the image
                Dim width As Vector3d
                Dim height As Vector3d


                ' Check to see if the measurement is set to English (Imperial) or Metric units
                'If ZcDb.Measurement = MeasurementValue.English Then
                '    width = New Vector3d((rid.ResolutionMMPerPixel.X * Rimage.ImageWidth * high) / 25.4, 0, 0)
                '    height = New Vector3d(0, (rid.ResolutionMMPerPixel.Y * Rimage.ImageHeight * high) / 25.4, 0)
                'Else
                '    width = New Vector3d(rid.ResolutionMMPerPixel.X * Rimage.ImageWidth * high, 0, 0)
                '    height = New Vector3d(0, rid.ResolutionMMPerPixel.Y * Rimage.ImageHeight * high, 0)
                'End If


                If ZcDb.Measurement = MeasurementValue.English Then
                    width = New Vector3d((sc * high) / 25.4, 0, 0)
                    height = New Vector3d(0, high / 25.4, 0)
                Else
                    width = New Vector3d(sc * high, 0, 0)
                    height = New Vector3d(0, high, 0)
                End If




                Rimage.Orientation = New CoordinateSystem3d(insertPt, width, height)