关于附加和缩放光栅图像 （VBA/ActiveX）

图像可以放置在图形文件中，但它们实际上不是文件的一部分。图像通过路径名或数据管理文档 ID 链接到图形文件。

链接的图像路径可以随时更改或删除。要附着图像，请使用该方法在图形中创建光栅对象。此方法采用四个值作为输入：要附着的图像文件的名称、图形中要放置图像的插入点、图像的比例因子和图像的旋转角度。请记住，Raster 对象表示指向图像的独立链接，而不是图像本身。AddRaster

附加图像后，可以多次重新附加它，为每个附件创建一个新对象。每个附件都有自己的剪辑边界以及自己的亮度、对比度、淡入淡出和透明度设置。单个图像可以剪切成多个部分，并在绘图中独立重新排列。Raster

您可以在创建光栅对象时设置光栅图像比例因子，以便图像的几何比例与在 AutoCAD 图形中创建的几何的比例相匹配。选择要附着的图像时，将以 1 个图像度量单位到 1 个 AutoCAD 度量单位的比例因子插入图像。要设置图像比例因子，您需要知道图像上几何图形的比例，并且需要知道要用于定义 1 个 AutoCAD 单位的度量单位（英寸、英尺等）。图像文件必须包含定义 DPI 的分辨率信息、每英寸点数和图像中的像素数。

如果图像具有分辨率信息，AutoCAD 会将其与您提供的比例因子和 AutoCAD 度量单位相结合，以在图形中缩放图像。例如，如果光栅图像是扫描的蓝图，其比例为 1 英寸等于 50 英尺或 1：600，并且 AutoCAD 图形设置为以 1 个单位表示 1 英寸，则要设置图像的比例因子，请为该方法的ScaleFactor参数输入 600。然后，AutoCAD 以一定比例插入图像，使图像中的几何图形与图形中的矢量几何图形对齐。AddRaster

Sub Ch10_AttachingARaster()
  Dim insertionPoint(0 To 2) As Double
  Dim scalefactor As Double
  Dim rotationAngle As Double
  Dim imageName As String
  Dim rasterObj As AcadRasterImage
  imageName = "C:/Program Files/AutoCAD Directory/sample/watch.jpg'
  insertionPoint(0) = 5
  insertionPoint(1) = 5
  insertionPoint(2) = 0
  scalefactor = 2
  rotationAngle = 0

  On Error GoTo ERRORHANDLER
  ' Attach the raster image in model space
  Set rasterObj = ThisDrawing.ModelSpace.AddRaster(imageName, insertionPoint, scalefactor, rotationAngle)
  ZoomAll
  Exit Sub

ERRORHANDLER:
  MsgBox Err.Description
End Sub