CAD开发者社区 › 首页 ›AutoCAD二次开发指南› ActiveX 开发指南› ActiveX：开发人员指南› 创建和编辑 AutoCAD 实体› 关于修改对象（VBA/ActiveX） › 查看内容

ActiveX 开发指南

关于偏移对象（VBA/ActiveX）

2023-1-5 01:05| 发布者: admin| 查看: 853| 评论: 0|来自: AutoCAD

摘要: 偏移对象会在距原始对象的指定偏移距离处创建一个新对象。

偏移对象会在距原始对象的指定偏移距离处创建一个新对象。

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

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