CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2023 开发者帮助 › 查看内容

AutoCAD 2023 开发者帮助

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

2024-5-18 18:55| 发布者: admin| 查看: 15| 评论: 0|原作者: admin|来自: AutoCAD

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

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

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

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

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

注意：如果未在附着的图像文件中定义分辨率信息，则 AutoCAD 会将图像的原始宽度作为一个单位进行计算。插入后，以 AutoCAD 为单位的图像宽度等于比例因子。

附加光栅图像

本示例在模型空间中添加栅格图像。此示例使用名为 watch.jpg 的文件。将代码中分配给变量的图像的名称和位置替换为工作站上可用的图像。imageName

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