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

ActiveX 开发指南

关于编辑折线（VBA/ActiveX）

2023-1-5 00:47| 发布者: admin| 查看: 779| 评论: 0|来自: AutoCAD

摘要: 2D 和 3D 折线、矩形、多边形和 3D 多边形网格都是折线变体，并且以相同的方式进行编辑。

2D 和 3D 折线、矩形、多边形和 3D 多边形网格都是折线变体，并以相同的方式进行编辑。

AutoCAD 可识别拟合多段线和样条拟合多段线。样条拟合折线使用曲线拟合，类似于 B 样条曲线。样条拟合折线有两种：二次折线和立方折线。这两条折线都由 AutoCAD 样条类型系统变量控制。拟合折线使用标准曲线进行曲线拟合，并利用在任何给定顶点上设置的任何切线方向。

若要编辑折线，请使用 or 对象的属性和方法。使用以下属性和方法打开或关闭折线、更改折线顶点的坐标或添加折点：LightweightPolylinePolyline

已关闭物业: 打开或关闭折线。
Coordinates 属性: 指定折线中每个折点的坐标。

使用以下方法更新折线的凸起或宽度：

添加顶点: 将顶点添加到轻量级折线。
SetBulge: 设置折线的凸起（给定线段索引）。
设置宽度: 设置折线的起点和终点宽度（给定线段索引）。

编辑折线

本示例创建轻量级折线。然后，它将凸起添加到折线的第三段，将顶点追加到折线，更改最后一段的宽度，最后闭合折线。

Sub Ch4_EditPolyline()
  Dim plineObj As AcadLWPolyline
  Dim points(0 To 9) As Double

  ' Define the 2D polyline points
  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

  ' Create a light weight Polyline object
  Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)

  ' Add a bulge to segment 3
  plineObj.SetBulge 3, -0.5

  ' Define the new vertex
  Dim newVertex(0 To 1) As Double
  newVertex(0) = 4: newVertex(1) = 1

  ' Add the vertex to the polyline
  plineObj.AddVertex 5, newVertex

  ' Set the width of the new segment
  plineObj.SetWidth 4, 0.1, 0.5

  ' Close the polyline
  plineObj.Closed = True
  plineObj.Update
End Sub