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

AutoCAD 2025 开发者帮助

关于偏移对象（VBA/ActiveX）

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

关于偏移对象（VBA/ActiveX）

偏移对象会创建一个与原始对象具有指定偏移距离的新对象。

您可以偏移圆弧、圆、椭圆、直线、轻量级折线、折线、样条和 x线。

若要偏移对象，请使用为该对象提供的方法。此方法的唯一输入是要偏移对象的距离。如果此距离为负数，则AutoCAD将其解释为偏移以生成“较小”曲线（即，对于圆弧，它将偏移到小于起始曲线半径的给定距离的半径）。如果“较小”没有含义，则 AutoCAD 将沿较小的 X，Y，Z WCS 坐标方向偏移。如果偏移距离无效，则返回错误。Offset

对于许多对象，此操作的结果将是一条新曲线（可能与原始曲线的类型不同）。例如，偏移椭圆将导致样条曲线，因为结果确实符合椭圆的方程。在某些情况下，偏移结果可能需要是几条曲线。因此，该方法将新对象或对象数组作为变体返回。

偏移折线

本示例创建一条轻量级折线，然后偏移折线。

Sub Ch4_OffsetPolyline()
  ' Create the polyline
  Dim plineObj As AcadLWPolyline
  Dim points(0 To 11) As Double
  points(0) = 1: points(1) = 1
  points(2) = 1: points(3) = 2
  points(4) = 2: points(5) = 2
  points(6) = 3: points(7) = 2
  points(8) = 4: points(9) = 4
  points(10) = 4: points(11) = 1
  Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
  plineObj.Closed = True
  ZoomAll

  ' Offset the polyline
  Dim offsetObj As Variant
  offsetObj = plineObj.Offset(0.25)

  ZoomAll
End Sub